|
ARAMA MOTORU YAPIMI
db.mdb adında bir veritabanımız olsun ve
içinde isimler adında bir tablo olsun.ısimler tablosunun içindede ID(AutoNumber)
ve isim(Text) adlarında 2 tane alanımız olsun.
isimler adı altında frost ve lancelot gibi 2 tane isim olsun.şimdi
form.html sayfamızı yapalım ki burdan aramak istediğimiz isimi
yazacağız.
form.asp
-------------------------------------------------------------
<html>
<head>
<title>Form</title>
</head>
<body>
<form method="Get" action="arabul.asp">
<Input Type="Text"
name="isim" size="20">
<Input Type="submit" value="Bul" name="cmd">
</form>
</body>
</html>-------------------------------------------------------------
evet formumuz tamam siz bu sayfadan giriş yapacaksınız ve bir isim
yazacaksınız.
buda arabul.asp olsun
-------------------------------------------------------------
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("db.mdb")
isim = request.querystring("isim")
Set objRS = Server.CreateObject("ADODB.Recordset")
sql = "Select * from isimler where isim Like
'%" & isim & "%' "
objRS.Open sql,conn,1,3
If objRS.eof Then
response.Write "Hiç kayıt bulunamadı."
response.End
Else
Do While Not objRS.eof
response.Write "Bulunan Sonuçlar"
response.Write "<br>"
response.Write objRS("isim")
objRS.movenext
Loop
End If
%>
Veritabanımızda girdiğimiz isimleri bulan ve sıralayan basit bir
uygulama. |
