Fuzbing.ORG

İlk olarak bir db.mdb adında veri tabanımız olduğunu ve bunun içerisinde alanları id(otomatik sayı) - isim(metin) - hit(sayı) olan veri adında bir tablo olduğunu var sayalım.

— Default.asp —

<%
‘db ye bağlanalım
Set baglan = Server.CreateObject(”ADODB.Connection”)
baglan.Open “Provider=Microsoft.JET.OLEDB.4.0;Data Source=” &Server.MapPath(db.mdb”)

‘Tablomuza bağlanalım

Set rs = Server.Createobject(”ADODB.RecordSet”)
SQL=”Select * From veri order by hit desc”
rs.Open SQL, baglan, 1,3

‘verileri listeletiyelim

Do While Not rs.oef
%>
<a href=”hit.asp?id=<%=rs(”id”)”><%=rs(isim”)%></a> - <%=rs(hit)%><br>
<%
rs.MoveNext
Loop

rs.Close
Set rs = Nothing
%>

— hit.asp —

‘veri tabanımıza bağlanalım

Set baglan = Server.CreateObject(”ADODB.Connection”)
baglan.Open “Provider=Microsoft.JET.OLEDB.4.0;Data Source=” &Server.MapPath(db.mdb”)

‘id mizi String le göndermiştik alıyoruz bunu

id=Request.QueryString(”id”)

‘Tablomuza Bağlanalım

Set rs = Server.Createobject(”ADODB.RecordSet”)
SQL=”Select * From veri order by hit desc”
rs.Open SQL, baglan, 1,3

rs(”hit”)=rs(”hit”)+1
rs.Update

Response.Redirect(”sabilisim.asp”)

rs.Close
Set rs = Nothing
%>

Alıntıdır.