3 svar · 163 visningar · startad av hacktheplanet
Jag använder denna kod för att slumpa fram bilder men när jag klickar på uppdatera mycket så fasnar sidan och servern blir överbelastad kan inte komma in på http://localhost!!!
varför blir det så?
<%
Response.Buffer = True
Set Rs = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("Database/members.mdb")
Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
Sql = "Select count(*) as Found from members where not bild = 'Bilder/Medlemmar/ingen.gif'"
Set Record = Rs.Execute(Sql)
Ialt = Record("found")
Sql = "Select * from members where not bild = 'Bilder/Medlemmar/ingen.gif'"
record.close
set record = nothing
Set Record = server.createobject("adodb.recordset")
record.cursorlocation = 3
record.open sql,rs
dim bilder(3)
randomize
for i = 0 to 3
found = false
do until false
RandNum = Int(Rnd * Ialt)
for j = 0 to i - 1
if bilder(j) = RandNum then
found = true
exit for
end if
next
if not found or i = 0 then exit do
loop
bilder(i) = RandNum
record.Movefirst
Record.Move randNum
Response.Write "<td><center>"
Response.Write "<a href='whois.asp?checkid=" & Record("id") & "'><img src='" & Record("bild") & "' alt='" & Record("username") & Record("username") & "' border = '1' width= '65' height= '77'></a>"
response.write "</td>"
next
record.close
rs.close
%>
Vet inte varför ... du stänger ditt connection object som här heter rs vilket inte är så lyckat eftersom den benämningen brukar vara för recordset objectet. Kan förvilla när någon annan felsöker koden.
Testa detta längst ned på din sida:
Set rs = Nothing
och se om det blir någe bättre
cya,
PatrikB
------------------
'## -- second place is the first looser -- ##'
nope funkar inte
do until false
Detta lär väl knappast inträffa?
------------------
"Tål det inte att skämtas om, är det inte värt att ta på allvar."
