Serach
//search.asp dosyası------------------------------------------------------------------------------ <% 'Optimize eden varlık=Toygar Dundaralp 'e-Mail=tdundaralp@msn.com %> <% option explicit %> <% dim sol,sag,sayi,connobj,rsobj,sql,ara,sayiand,soland,sagand set connobj=server.createobject("adodb.connection") connobj.open("Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("denek.mdb")) set rsobj=server.createobject("adodb.recordset") ara=request.form("ara") if instr(ara,"'") then ara=replace(ara,"'","") end if if instr(ara," and ") then ara=replace(ara," and ","|") sayiand=instr(ara,"|") soland=left(ara,sayiand-1) sagand=mid(ara,sayiand+1) sql="select site,bilgi from denek where kelime1 like '"&soland&"' or kelime2 like '"&soland&"' or " &_ "kelime3 like '"&soland&"' or kelime4 like '"&soland&"' or kelime1 like '"&sagand&"' or " &_ "kelime2 like '"&sagand&"' or kelime3 like '"&sagand&"' or kelime4 like '"&sagand&"'" elseif instr(ara,"*") then sol=left(ara,1) sag=right(ara,1) sayi=len(ara)-1 if left(ara,1)="*" then ara=mid(ara,2) sql="select site,bilgi from denek where kelime1 like '%"&ara&"' or kelime2 like '%"&ara&"' or " &_ "kelime3 like '%"&ara&"' or kelime4 like '%"&ara&"'" elseif right(ara,1)="*" then ara=left(ara,sayi) sql="select site,bilgi from denek where kelime1 like '"&ara&"%' or kelime2 like '"&ara&"%'or " &_ "kelime3 like '"&ara&"%' or kelime4 like '"&ara&"%'" end if else sql="select site,bilgi from denek where kelime1 like '"&ara&"' or kelime2 like '"&ara&"' or " &_ "kelime3 like '"&ara &"' or kelime4 like '"& ara &"'" end if rsobj.open sql,connobj,2,3 do while not rsobj.eof response.write "" & rsobj(0) &"" &"" & rsobj(1) &"
" rsobj.movenext loop %> <% rsobj.close set rsobj = nothing connobj.close set connobj = nothing %> //search.asp dosyası--------------------------------buraya kadar-------------------------------- //html dosyası--------------------------------------