"
tmpBuf = tmpBuf & ""
Response.Write tmpBuf
' Anything Else ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Case Else
tmpBuf = tmpBuf & ""
tmpBuf = tmpBuf & ""
Response.Write tmpBuf
End Select
Function ListUsers()
Dim UsersBuf
Set XMLDOC = CreateObject("Microsoft.XMLDOM")
XMLDOC.async = False
XMLDOC.resolveExternals = False
If Application("xmldoc") = "" Then
Application("xmldoc") = ""
End If
XMLDoc.LoadXML Application("xmldoc")
XPath = "//users/*"
Set UsersList = XMLDOC.SelectNodes(XPath)
If UsersList.Length = 0 Then
ListUsers = "Oda boş"
Else
For Each UserName In UsersList
ThisUserTimeout = GetUserSettings(UserName.GetAttribute ("nick"), "timer") + (UserTiemout * 100)
If Timer > ThisUserTimeout Then
DisconnectUser(UserName.GetAttribute ("nick"))
Exit For
End If
UsersBuf = UsersBuf & UserName.GetAttribute ("nick") & " " '" (" & FormatNumber((ThisUserTimeout - Timer)/100,2) & ")" & " "
Next
ListUsers = UsersBuf
End IF
End Function
Function ConnectUser (NickName)
Set XMLDOC = CreateObject("Microsoft.XMLDOM")
XMLDOC.async = False
XMLDOC.resolveExternals = False
If Application("xmldoc") = "" Then
Application("xmldoc") = ""
End If
XMLDoc.LoadXML Application("xmldoc")
XPath = "//user[@nick='" & NickName & "']"
Set RegisteredUser = XMLDOC.SelectSingleNode(XPath)
If RegisteredUser Is Nothing Then
XPath = "//users"
Set UsersList = XMLDOC.SelectSingleNode(XPath)
Set NewUser = XMLDOC.CreateElement("user")
NewUser.SetAttribute "nick", NickName
NewUser.SetAttribute "timer", Timer
UsersList.AppendChild NewUser
Application("xmldoc") = XMLDOC.xml
Session("nickname") = NickName
Session("refresh") = 5
ConnectUser = True
Else
ConnectUser = False
End If
End Function
Function DisconnectUser(NickName)
Set XMLDOC = CreateObject("Microsoft.XMLDOM")
XMLDOC.async = False
XMLDOC.resolveExternals = False
If Application("xmldoc") = "" Then
Application("xmldoc") = ""
End If
XMLDoc.LoadXML Application("xmldoc")
XPath = "//user[@nick='" & NickName & "']"
Set UserList = XMLDOC.SelectNodes(XPath)
If UserList Is Nothing Then
DisconnectUser = False
Else
For Each Node In UserList
Node.parentNode.removeChild Node
Next
Application("xmldoc") = XMLDoc.xml
DisconnectUser = True
End If
End Function
Function GetUserSettings(LoginName, PropertyName)
If LoginName = "" then Exit Function
Set XMLDOC = CreateObject("Microsoft.XMLDOM")
XMLDOC.async = False
XMLDOC.resolveExternals = False
If Application("xmldoc") = "" Then
Application("xmldoc") = ""
End If
XMLDoc.LoadXML Application("xmldoc")
XPath = "//user[@nick='" & LoginName & "']"
Set SelectedUser = XMLDOC.SelectSingleNode(XPath)
If SelectedUser Is Nothing Then
GetUserSettings = ""
Else
If Len(SelectedUser.GetAttribute(PropertyName)) = 0 Then
GetUserSettings = ""
Else
GetUserSettings = SelectedUser.GetAttribute(PropertyName)
End If
End If
End Function
Function SetUserSettings(NickName,UserProperty,PropertyInfo) ' As Boolean
Set XMLDOC = CreateObject("Microsoft.XMLDOM")
XMLDOC.async = False
XMLDOC.resolveExternals = False
If Application("xmldoc") = "" Then
Application("xmldoc") = ""
End If
XMLDoc.LoadXML Application("xmldoc")
XPath = "//user[@nick='" & NickName & "']"
Set SelectedUser = XMLDOC.SelectSingleNode(XPath)
If SelectedUser Is Nothing Then
SetUserSettings = False
Else
SelectedUser.SetAttribute UserProperty, PropertyInfo
Application("xmldoc") = XMLDOC.XML
SetUserSettings = True
End If
End Function
Function HTMLFormat(sInput)
Dim sAns
Dim sIIIStart, sIIIEnd
sAns = Replace(sInput, " ", " ")
sAns = Replace(sAns, Chr(34), """)
sIllStart = "<" & Chr(37)
sIllEnd = Chr(37) & ">"
If InStr(sAns, sIllStart) > 0 Or InStr(sAns, sIllEnd) > 0 Then
sAns = Replace(sAns, "<" & Chr(37), "")
sAns = Replace(sAns, Chr(37) & ">", "")
End If
sAns = Replace(sAns, ">", ">")
sAns = Replace(sAns, "<", "<")
sAns = Replace(sAns, vbCrLf, " ")
sAns = Replace(sAns, "[b]", "")
sAns = Replace(sAns, "[/b]", "")
sAns = Replace(sAns, "[i]", "")
sAns = Replace(sAns, "[/i]", "")
HTMLFormat = sAns
End Function
%>
Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
