23. januar 2003 - 22:32Der er
7 kommentarer og 1 løsning
Søgning på flere ord?
Jeg har dette script, som jeg gerne vil have til at virke, så man kan søge på flere ord.
If Len(strKeyword) = 0 Then Response.Clear Response.Redirect("Forum.asp") Else strKeyword = Replace(strKeyword,"'","''") End If
' Opbygger en dynamisk SQL streng strSQL = "SELECT Id, Dato, Titel, Indlaeg FROM Poster WHERE" strSQL = strSQL & " (Titel LIKE '%" & strKeyword & "%')" strSQL = strSQL & " OR (Indlaeg LIKE '%" & strKeyword & "%')"
' Skaber DSNLess forbindelse til DBen strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath ("../db/Forum.mdb") Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open strDSN
' Skaber et recordset udfra SQL strengen Set rs = myConn.Execute(strSQL) If Not (rs.BOF Or rs.EOF) Then ' Hvis der er fundet poster på søgningen Do While Not rs.EOF
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
30 point er for lidt. temp joinword skal du ikke bruge. og % i stedet for * sådan:
If instr(strKeyWords, " ") <> 0 Then aryStrKeyword = split(strKeyword, " ")
SQLQ = SQLQ & "(SELECT ID FROM ASAR WHERE" For i = 0 To UBound(aryKeywords) SQLQ = SQLQ & tempJoinWord & "(" & _ 'Ret og slet her "BookName LIKE '*" & aryKeywords(i) & "*' OR " & _ "Content LIKE '*" & aryKeywords(i) & "*' OR " & _ "SiteURL LIKE '*" & aryKeywords(i) & "*' OR " & _ "SiteKeywords LIKE '*" & aryKeywords(i) & "*')" tempJoinWord = " AND " 'slet den Next SQLQ = SQLQ & ")" end if
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
