Arama Motoru

ibiramcan · 27.03.08, 22:41

//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

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
-->motoru Kaputa SiĞmayanlar	audi tt	Motorlu Araçlar Dünyası	1	07.02.08 19:59
Css arama motoru	kralex	Teknoloji Haberleri	0	02.02.08 22:29
Kendinize arama motoru yapın(resimli)	GAMZELİ	PC-Program	0	02.01.08 21:17
Ses Hızını 10 Kat Aşan Jet Motoru	spettro	Teknoloji Haberleri	0	14.08.07 11:07
Dünyanın En Hızlı Motoru	carlos1907	Motor Dünyası	0	13.07.07 12:03

27.03.08, 22:41	#1
ibiramcan	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 solsagsayiconnobjrsobjsqlarasayiandsoland 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(arasayiand-1) sagand=mid(arasayiand+1) sql="select sitebilgi 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(ara1) sag=right(ara1) sayi=len(ara)-1 if left(ara1)="" then ara=mid(ara2) sql="select sitebilgi from denek where kelime1 like '%"&ara&"' or kelime2 like '%"&ara&"' or " &_ "kelime3 like '%"&ara&"' or kelime4 like '%"&ara&"'" elseif right(ara1)="" then

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Arama Motoru

Arama Motoru

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Benzer Konular