Dönüşümlü Gösterim Yapmaya yarayan bu uygulama çok basit bi sistem aslında sistem için malzemeler 1 veri tabanı ve 2 tablo
tablo isimleri id(autonumber),isim(text) olsun
ve reklam.asp
<%
Set sabilisim=Server.CreateObject("Adodb.Connection")sabilisim.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabani.mdb")set rs = server.createobject("ADODB.Recordset")sql = "select * from tablo"rs.open sql,sabilisim,1,3Randomizerastgele = Int((rs.RecordCount*Rnd)+0)rs.Move(rastgele) response.write rs("isim")%>
bu sayfayı istediğiniz yere inc edip kullanabilirsiniz
Hiç yorum yok:
Yorum Gönder