سلام اين نمونه فايل global.asa من اين بايد session ها رو بعد از 15 دقيقه پاك كنه از داخل ديتا بيس و لي نمي دونم چرا تا ابد و دهر باقي مي مونه
کد:
<script Language= vbscript Runat=server>
Sub Session_onStart
Session.timeout=15
Response.Expires=0
Response.Write("<h1>New Session "& Session.Sessionid &"</h1>")
End Sub
sub Session_onEnd
set objconn3=server.createobject("ADODB.connection")
objconn3.connectionstring="DRIVER={Microsoft Access Driver (*.mdb)};"&_
"dbq=" & Server.MapPath("shop.mdb")
objconn3.open
set objrs3=server.createobject ("ADODB.Recordset")
objrs3.open "shop",objconn3,3,3
do while not objrs3.eof
if (objrs3("session")=session.sessionid ) then
'dd
objrs3.Delete
else
'ddddd
end if
objrs3.movenext
loop
objrs3.close
set objrs3=nothing
objconn3.close
set objconn3=nothing
End Sub
</script>