jag fattar inte hur man gör en sök motor.. jag har gjort allt annat på sidan förutom Sök motorn så jag kan den ASP jag behöver kunna just nu.. vad begär du från mej? jag e bara 17 år och har fått lära mej allt själv... det finns gränser :)
cHeMiCaL-X
Om du e så "grym" :) kan du ju göra det åt mej :) :) det e typ det ända jag behöver nu är sök motor såsom här på wF. sen jag jag färdig med sidan whoho! =) nästan iallfall =)
Här kommer en kod som jag skrev för ganska länge sedan, det är ju alltid något att utgå ifrån, men fråga mig bara inte hur den fungerar, det får ni lista ut själva... ;)
[kod]'** Skapar SQL-strängarnas Where-satser utifrån vad som stoppas in. **'
Function getSQLPartofMatch( tmp_strString, strFields, strPtrn, bolNOT, rplce )
Set objRegExp = New RegExp
objRegExp.IgnoreCase = True
objRegExp.Global = True
arrFields = Split( strFields, ", " )
strOperator = "AND"
objRegExp.Pattern = strPtrn
Set myMatch = objRegExp.execute(tmp_strString)
For each item in myMatch
objRegExp.Pattern = strPtrn
strTmpString = objRegExp.Replace( item, "$1" )
If rplce Then
tmp_strString = Replace( tmp_strString, item, "" )
End If
tmp_strSQL = tmp_strSQL & " ( "
For i = 0 To Ubound( arrFields )
If i < Ubound( arrFields ) Then
strInternalOperator = "OR"
Else
strInternalOperator = ""
End If
If bolNOT Then
strStartOp = " NOT"
strEndOp = " "
If strInternalOperator = "OR" Then strInternalOperator = "AND"
Else
strStartOp = ""
strEndOp = ""
End If
tmp_strSQL = tmp_strSQL & " ( " & arrFields( i ) & strStartOp & " LIKE '%" & strTmpString & "%' " & strEndOp & " ) " & strInternalOperator
Next
tmp_strSQL = tmp_strSQL & " ) " & strOperator
Next
getSQLPartofMatch = tmp_strSQL
End Function
Function getSQLofSearchParser( strString, strFields )
arrPtrns = Array( "\+{1}""(.*?[^""])""", _
"\+{1}[""]{0}(\S+)([""]){0}", _
"-{1}""(.*?[^""])""", _
"-{1}[""]{0}(\S+)([""]){0}", _
"[""]{0}(\S+)([""]){0}" )
For i = 0 To Ubound( arrPtrns )
If i = 4 Then
rplce = false
Else
rplce = true
End If
If i = 2 OR i = 3 Then
bolNOT = true
Else
bolNOT = false
End If
strPtrn = arrPtrns( i )
tmp_strSQL = tmp_strSQL & getSQLPartofMatch( strString, strFields, strPtrn, bolNOT, rplce )
Next
If tmp_strSQL <> "" Then
getSQLofSearchParser = " WHERE " & strStartSQL & Left( tmp_strSQL, Len( tmp_strSQL ) - 3 )
End If
End Function
------------------
Doesn't 'expecting the unexpected' make the unexpected expected? webeye.nu
