Schreib einfach die Zeile Server.ScriptTimeout = [Anzahl in sekunden]
irgendwo zwischen. Beste Gr��e | Michele Marsching Application Development KlickTick.de * Internetservices & -consulting http://www.klicktick.de [EMAIL PROTECTED] # -----Urspr�ngliche Nachricht----- # Von: Kai Beppler [mailto:[EMAIL PROTECTED]] # Gesendet: Donnerstag, 16. Mai 2002 18:06 # An: ASP Diskussionsliste fuer Anfaenger # Betreff: [aspdebeginners] Script Timeout ver�ndern? # # # Hallo, # hab ein ASP Chat mit reingenommen, nun bekomme ich als die Fehlermeldung # "Script Timeout". # # kann ich im folgendem Code das Timeout irgendwo beeinflussen bzw. # ver�ndern? # Ich hab mich total verwurschtelt... # # # <!-- #INCLUDE FILE="adovbs.inc" --> # <% # 'page will show, when is all loaded # Response.Buffer = True # # 'page can't be refreshed # Response.Expires = -1000 # # 'name of chat database # Const ChatMDB = "E:\dbroot\chat.mdb" 'relative path to database # Const Records = 20 'how many records will be shown at one page # Const TimeOut = 10 'inactivity timeout in minutes # Const SiteTitle = "ASP CHAT created by DETONATOR-TREIBER.COM # [EMAIL PROTECTED] " # # Function Connect (Path2DB) # Set DB = Server.CreateObject("ADODB.Connection") # DB.Mode = adModeReadWrite 'Since we will be adding entries. # DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + # Server.MapPath(Path2DB)) # Set Connect = DB # End Function # # Function Session_TimeOut () # on error resume next # db=Connect (ChatMDB) # Set rst = Server.CreateObject ("ADODB.Recordset") # rst.Open "Select * FROM USERS", DB, adOpenStatic, adLockPessimistic # do until rst.eof # tmpTim=rst("LAST") # tmpH=Hour(tmpTim) # tmpM=Minute(tmpTim) # tmpM=clng(tmpM)+TimeOut # if clng(tmpM) >59 then # tmpH=clng(tmpH)+1 # tmpM=clng(tmpM)-60 # if clng(tmpH)>23 then # tmpH=clng(tmpH)-23 # end if # end if # # if not clng(hour(Time))=clng(tmpH) and not clng(hour(Time))+1=clng(tmpH) # then # DeleteUserTemp rst("ROOM"), rst("NICK") # rst.delete # rst.Update # else # if clng(tmpH)=clng(hour(time)) and clng(tmpM) < # clng(Minute(Time)) then # DeleteUserTemp rst("ROOM"), rst("NICK") # rst.delete # rst.Update # end if # if clng(tmpH)=clng(hour(time))+1 and clng(tmpM) > clng(Minute(Time)) # then # DeleteUserTemp rst("ROOM"), rst("NICK") # rst.delete # rst.Update # end if # end if # rst.MoveNext # loop # 'this is for slow down / prevent errors with more than once accessing some # data # tmr=Timer # do until tmr+0.1<Timer # loop # # End Function # # Function DeleteUserTemp(Room, User) # on error resume next # 'remove all messages sent privatly to this user # if not user="" then # db=Connect (ChatMDB) # Set rst2 = Server.CreateObject ("ADODB.Recordset") # rst2.Open "Select * FROM MESSAGES WHERE OPTIONS = '" & user & "'", DB, # adOpenStatic, adLockPessimistic # do until rst2.EOF # rst2.Delete # rst2.Update # rst2.Movenext # loop # end if # # 'add logout message # Set rst2 = Server.CreateObject ("ADODB.Recordset") # rst2.Open "Select * FROM MESSAGES", DB, adOpenStatic, adLockPessimistic # rst2.addnew # rst2("FROM")=user # rst2("TIME")=Time # rst2("MSG_TYPE")=1 # rst2("OPTIONS")="&TO_ALL" # rst2("ROOM_ID")=clng(ROOM) # rst2("MSG")="...:: " & server.HTMLencode(user) & " has been # disconnected # (session timeout expired) ::..." # rst2.update # # 'increase number of messages to view # Set rst2 = Server.CreateObject ("ADODB.Recordset") # rst2.Open "Select * FROM USERS WHERE (ROOM = " & clng(ROOM) & ") AND # (MESSAGES < " & clng(Records) & ")" , DB, adOpenStatic, adLockPessimistic # do until rst2.eof # rst2("MESSAGES")=clng(rst2("MESSAGES"))+1 # rst2.update # rst2.movenext # loop # # 'delete record which is above # set rst2 = Server.CreateObject ("ADODB.Recordset") # rst2.Open "Select * FROM MESSAGES WHERE (ROOM_ID = " & # clng(ROOM) & ") AND # (OPTIONS = '&TO_ALL') ORDER BY ID ASC", DB, adOpenStatic, # adLockPessimistic # do until rst2.eof # if rst2.RecordCount>Records then # rst2.delete # rst2.update # exit do # end if # rst2.movenext # loop # # End Function # %> # # # Gruss Kai # # # | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/ # | [aspdebeginners] als [EMAIL PROTECTED] subscribed # | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv # | Sie knnen sich unter folgender URL an- und abmelden: # | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp # | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/ | [aspdebeginners] als [email protected] subscribed | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv | Sie knnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
