|
|
|||||||
| ASP, Perl, Php, Html ASP, Perl, Php, Html, Java gibi her tür programcılık dili için yardım alabilceğimiz bölüm... |
 |
|
|
LinkBack | Seçenekler | Stil |
13.01.07, 20:15
|
#1 (permalink) |
|
Banned
Üyelik Tarihi: Jan 2007
Mesaj Sayısı: 696
Konu Sayısı: 255
Rep Gücü: 0
Rep Puanı: 2341
Rep Derecesi :
 
Ruh Hali:
|
Arama Motoru
//search.asp dosyası------------------------------------------------------------------------------ <% 'Optimize eden varlık=Toygar Dundaralp 'e-Mail=tdundaralp@msn.com %> <% option explicit %> <body bgcolor=336699> <style type=text/css> a{color:white;font-family:tahoma;font-size:12;font-weight:bold} a:hover{color:#990000} </style> <font color=orange face=tahoma size=2><b> <% 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 |
|
|
|
| Bookmarks |
| Seçenekler | |
| Stil | |
|
|
Normal
