login.asp

使用flash Socket 实现聊天室功能

<%
Set MyFileObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyTextFile = MyFileObject.CreateTextFile("G:\写作\flashxmlchat\source\login.xml", 8, TRUE)
MyTextFile.WriteLine(Request.Form)

set objDom = server.CreateObject("microsoft.xmldom")
objDom.loadxml(Request.Form)
set objname = objdom.documentElement.SelectSingleNode("//LOGIN/USERNAME")
username = objname.text

set objpwd = objdom.documentElement.SelectSingleNode("//LOGIN/PWD")
pwd = objpwd.text

righ = "-1"
'判断
set conn=Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/xmlchat/xmlchat.mdb")
set rs=Server.CreateObject("ADODB.Recordset")
strSql="select * from UserInfo where UserName = '" & username & "' and Pwd = '" & pwd & "'"
rs.open strSql,conn, 1, 1     
if not(rs.bof and rs.eof) then
    application("VisitorNum") = application("VisitorNum") + 1	
    application("VisitorName") = application("VisitorName") & username & "," & rs("ID") & ";"
    righ = rs("Right")
    tempstr= username & " login......"
    application("AllCanSee") = application("AllCanSee") & tempstr
Else 
	righ = "0"
end if
rs.close
conn.close

'返回
response.write("<LOGIN><USRENAME name=""" & username & """ right=""" & righ & """>" & username & "</USERNAME></LOGIN>")
%>