login.asp

在flash中

<%
Set MyFileObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyTextFile = MyFileObject.CreateTextFile("G:\写作\flashxmlbbs\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

MyTextFile.WriteLine(username)
MyTextFile.WriteLine(pwd)
righ = "-1"

'判断
set conn=Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/xmlbbs/xmlbbs.mdb")
set rs=Server.CreateObject("ADODB.Recordset")
strSql="select * from UserInfo where username = '" & username & "' and userpwd = '" & pwd & "'"
rs.open strSql,conn, 1, 1     
if not(rs.bof and rs.eof) then
    righ = rs("userright")
Else 
	righ = "0"
end if
rs.close
conn.close

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