Hallo
ich habe mir vor kurzem den coolchat angeschaut. In der global.asa
werden die Chatr�ume initialisiert. Wann wird denn immer die Prozedur in
Application_OnStart ausgef�hrt ? Wird es bei jedem User neuinitialisiert
? Irgenwie, wenn man neue ChatR�ume bildet, werden sie in den
Aplikation-Variablen nicht abgespeichert.
Gru�
Chris
Der Quellcode:
Sub Application_OnStart
' roomData holds data per room
' roomData(x,y)
' x: number of room
' y: 1- room name 2- number of user in room 3- room password
' Modification 1 (see readme file)
' ================================
Dim roomData(3,3)
' userData holds data per user in each room
' userData(x,y,z)
' x : number of rooms
' y : 1-user name 2-user time stamp 3-user picture file name 4-user key
5-securityLvl
' Modification 2 (see readme file)
' ================================
Dim userData(3,5,30) ' Maximum room, data per user, maximum users per
room
' Modification 3 (see readme file)
' ================================
' Initialize room arrays
' ----------------------
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "chat"
Set objRS = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM chatRoom;"
objRS.Open strSQL, objConn, 3, 1
Application("numRoom") = objRS.RecordCount
If Application("numRoom") > UBound(roomData,1) Then
Application("numRoom") = UBound(roomData,1)
End If
For i=1 to Application("numRoom")
roomData(i,1) = objRS("roomName")
roomData(i,2) = 0
roomData(i,3) = objRS("password")
objRS.MoveNext
Next
objRS.Close
' Initialize userdata to no user
For i=1 to UBound(userData,1)
For j=1 to UBound(userData,3)
userData(i,4,j) = -1
Next
Next
' Application variables/constants
' -------------------------------
Application("roomData") = roomData
End Sub
| 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
