传奇盛世 声望:Microsoft VBScript 运行时错误 (0x800A01A8)

来源：百度文库 编辑：高考问答 时间：2024/04/29 15:01:45
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'objDom.documentElement'
<%
Set MyFileObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyTextFile = MyFileObject.CreateTextFile("d:\chat\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>")
%>

电脑操作系统出现错误信息全程解答
CMOS battery failed CMOS电池失效。一般出现这种情况就是说明给主板CMOS供电的电池已经快没电了，需要朋友们及时更换主板电池。 ?? CMOS check sum error-Defaults loaded ?? CMOS执行全部检查时发现错误，要载入系统预设值。一般来说出现这句话有两种解释：一种是说主板CMOS供电电池快要没电了，朋友们可以先换个电池试试看......
http://Windows.chinaitlab.com/system/34583.html

Microsoft VBScript Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 microsoft vbscript 编译器错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 (0x800A000D)