MYSQL De Rasgele Veri
-
<%
if application("recordcount")="" then
Set ustyazik= Server.CreateObject("ADODB.Connection")
ustyazik.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & application("veritabani_yolu") & "\site.mdb"
Set ustyazi=Server.CreateObject("Adodb.Recordset")
Sorgu="SELECT * FROM sozler"
ustyazi.Open Sorgu,ustyazik,1,1
application("recordcount")=ustyazi.recordcount
ustyazi.Close
Set ustyazi=Nothing
ustyazik.Close
Set ustyazik=Nothing
end if
intLowerBound =1
intUpperBound =application("recordcount")
Randomize()
intRangeSize = intUpperBound - intLowerBound + 1
sngRandomValue = intRangeSize * Rnd()
sngRandomValue = sngRandomValue + intLowerBound
intRandomInteger = Int(sngRandomValue)
Set ustyazik= Server.CreateObject("ADODB.Connection")
ustyazik.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & application("veritabani_yolu") & "\site.mdb"
Set ustyazi=Server.CreateObject("Adodb.Recordset")
Sorgu="SELECT * FROM sozler WHERE kimlik="& intRandomInteger
ustyazi.Open Sorgu,ustyazik,1,1
ustyazii=ustyazi("soz")
ustyazi.Close
Set ustyazi=Nothing
ustyazik.Close
Set ustyazik=Nothing%>
eğer asp ile yapmak istiyosan yukardak kod çalışıyo tabi bunun için öncelikle kimlik diye bi otomatik artan sayı olması gerekiyo ve arada silinmiş kayıt olmaması gerekiyo arada kayıt silinir ilerde belki diyosan bi do while koy boolean değerle kontrol ettir iş tamamdır ;)
-
dostum eline koluna sağlık işe yaradı walla :)
-
ne demek dostum ihtiyacın olursa her zaman burdayım;)