Ikke noget specielt jeg smid et link så du kunne se om det var sådan noget du søgte.
Jeg syntes også at 3000 points er vildt overdrevet :). Koden her, er lavet til et andet spm her på eksperten og han gav 300 points for det:
Den består af to filer Default.asp:
<html>
<head>
<title></title>
</head>
<body>
<center>
<table border=1>
<form method=\"post\" action=\"result.asp\">
<tr><td>Søg:</td><td><input name=\"keyword\"></td></tr>
<tr><td>Vælg felter:</td><td><input type=\"checkbox\" name=\"felter\" value=\"vedr\">Vedr</td></tr>
<tr><td> </td><td><input type=\"checkbox\" name=\"felter\" value=\"emne\">Emne</td></tr>
<tr><td> </td><td><input type=\"checkbox\" name=\"felter\" value=\"handelsetekst.tekst\">Handelsetekst</td></tr>
<!-- <tr><td> </td><td><input type=\"checkbox\" name=\"felterHtbl\" value=\"handelsetekst.tekst\">Handelsetekst</td></tr>-->
<!-- Indsæt flere sæge felter her -->
<tr><td colspan=2 align=\"center\"><input type=\"submit\" value=\"Søg\" name=\"Action\"></td></tr>
</form>
</table>
</form>
<br>
<br>
hej download koden + mini databse til dette eks <a href=\"sog.zip\">her</a>.
</center>
</body>
</html>
-*-*-*-*-*-*-*- Og result.asp:
<% Response.Buffer = True %>
<html>
<head>
<title>Søgeresultat</title>
</head>
<body>
<center>
<%
\' Henter værdien fra sidste side
strKeywordForm = Trim(Request.Form(\"Keyword\"))
If Len(strKeywordForm) = 0 Then \' Hvis der ikke er skrevet i feltet
Response.Clear
Response.Redirect(\"default.asp\")
End if
strKeywordForm = Replace(strKeywordForm,\"\'\",\"\'\'\")
strKeywordForm = Replace(strKeywordForm,\" \",\" \")
nFeltItems = Request.Form(\"felter\").Count
If nFeltItems = 0 then \' Hvis der ikke er skrevet i feltet
Response.Redirect(\"default.asp\")
End If
wordArray = Split(strKeywordForm,\" \",-1)
firstTime = true
lastFunctionWord = \"\"
changeFunction = false
for wc = LBound(wordArray) to UBound(wordArray)
if firstTime = true then
firstTime = false
if nFeltItems > 0 then
strSQL = \"((\" & Request.Form(\"felter\")(1) & \" LIKE \'%\" & wordArray(wc) & \"%\'\"
for i = 2 to nFeltItems
strSQL = strSQL & \" OR \" & Request.Form(\"felter\")(i) & \" LIKE \'%\" & wordArray(wc) & \"%\'\"
next
strSQL = strSQL & \")\"
end if
else
if Ucase(wordArray(wc)) = \"OG\" then
if (lastFunctionWord = \"ELLER\") and (changeFunction = false) then
lastFunctionWord = \"OG\"
strSQL = strSQL & \") AND (\"
changeFunction = true
else
lastFunctionWord = \"OG\"
strSQL = strSQL & \" AND \"
changeFunction = false
end if
elseif Ucase(wordArray(wc)) = \"ELLER\" then
if lastFunctionWord = \"OG\" and changeFunction = false then
lastFunctionWord = \"ELLER\"
strSQL = strSQL & \") OR (\"
changeFunction = true
else
lastFunctionWord = \"ELLER\"
strSQL = strSQL & \" OR \"
changeFunction = false
end if
elseif Ucase(wordArray(wc)) = \"IKKE\" then
strSQL = \"(\" & strSQL & \")\"
strSQL = strSQL & \") AND (\"
lastFunctionWord = \"IKKE\"
else
if lastFunctionWord = \"IKKE\" then
str_NOT = \" NOT \"
function_Word = \" AND \"
else
str_NOT = \"\"
function_Word = \" OR \"
end if
if nFeltItems > 0 then
strSQL = strSQL & \"(\" & Request.Form(\"felter\")(1) & str_NOT & \" LIKE \'%\" & wordArray(wc) & \"%\'\"
for i = 2 to nFeltItems
strSQL = strSQL & function_Word & Request.Form(\"felter\")(i) & str_NOT & \" LIKE \'%\" & wordArray(wc) & \"%\'\"
next
strSQL = strSQL & \")\"
end if
end if
end if
next
strSQL = strSQL & \")\"
strDSN = \"Data Source=d:\\home\\eagleeyedk\\db\\db5.mdb;Provider=Microsoft.Jet.OLEDB.4.0;\"
\'strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\".\\db\\db5.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
myConn.Open strDSN
strSQLWhere = strSQL
\'DENNE SQL HVIS DER ER TO TABLLER SOM SKAL JOINES
strSQL = \"SELECT *, tabel_navn.ID as tabelID \"
strSQL = strSQL & \"FROM tabel_navn LEFT JOIN Handelsetekst ON tabel_navn.cpr = Handelsetekst.cpr\"
strSQL = strSQL & \" WHERE \" & strSQLWhere
\'DENNE SQL HVIS DER KUN ER EN TABEL
\'strSQL = \"SELECT * FROM tabel_navn WHERE \" & strSQLWhere
rs.Open strSQL, myConn, 1, 3
Response.write \"Antal fundet : \" & rs.RecordCount
if not (rs.BOF and rs.EOF) then
Response.Write \"<table border=1>\"
Response.Write \"<tr><td>ID</td><td>Emne</td><td>Vedr</td><td>Handelsetekst</td></tr>\"
do while not rs.EOF
Response.Write \"<tr>\"
Response.Write \"<td>\" & rs(\"tabelID\") & \"</td>\"
Response.Write \"<td>\" & rs(\"Emne\") & \"</td>\"
Response.Write \"<td>\" & rs(\"Vedr\") & \"</td>\"
Response.Write \"<td>\" & rs(\"tekst\") & \"</td>\"
Response.Write \"</tr>\"
rs.MoveNext
loop
Response.Write \"</table>\"
end if
rs.Close
myConn.Close
Set myConn = Nothing
%>
</center>
</body>
</html>
Jeg vil meget gerne hjælpe dig vidre med det, men det bliver ikke iaften, jeg er på vej ud af døres.
Du kan rette OG/ELLER til + og IKKE til - i koden.
Bemærk SQL sætningen som jeg bruger JOINer to tabller så hvis du bare har en table brugen den som er udkommenteret lige neden under.
Som det er lige nu får søge-koden kolonne navne fra Default.asp siden checkboxe så de skal ændre eller skal det laves om til at den søger i nogle faste kolonner.
Prøv at kikke lidt på det.
Ny bruger
Nybegynder
Opret
Preview
