错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'XMLDOM.documentElement.SelectSingleNode(...) '
/ajwang/bbs/Conn.asp, 第 63 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)
网页：
GET /ajwang/bbs/EditProfile.asp
以下是代码
58 Set XMLDOM=Server.CreateObject( "Microsoft.XMLDOM ")
59 Set SiteConfigXMLDOM=Server.CreateObject( "Microsoft.XMLDOM ")
60 SiteConfigXMLDOM.loadxml( " <bbsxp> "&SiteSettingsXML& " </bbsxp> ")
61 ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
62 Function SelectSingleNode(str)
63 str=XMLDOM.documentElement.SelectSingleNode(str).text
64 SelectSingleNode=str
65 end Function
66
67 Function SiteConfig(str)
68 str=SiteConfigXMLDOM.documentElement.SelectSingleNode(str).text
69 if IsNumeric(str) then str=int(str)
70 SiteConfig=str
71 end Function
72 ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
是点击这个EditProfile.asp页面是出错的可能关联处是这里
sql= "select * from [myweb_User] where UserID= "&CookieUserID& " "
Rs.Open sql,Conn,1,3
XMLDOM.loadxml( " <bbsxp> "&Rs( "UserInfo ")& " </bbsxp> ")
Set objRoot = XMLDOM.documentElement
objRoot.SelectSingleNode( "QQ ").text = " "&server.HTMLEncode(Request( "QQ "))& " "
objRoot.SelectSingleNode( "ICQ ").text = " "&server.HTMLEncode(Request( "ICQ "))& " "
objRoot.SelectSingleNode( "AIM ").text = " "&server.HTMLEncode(Request( "AIM "))& " "
objRoot.SelectSingleNode( "MSN ").text = " "&server.HTMLEncode(Request( "MSN "))& " "
objRoot.SelectSingleNode( "Yahoo ").text = " "&server.HTMLEncode(Request( "Yahoo "))& " "
objRoot.SelectSingleNode( "Skype ").text = " "&server.HTMLEncode(Request( "Skype "))& " "
Set objNodes=XMLDOM.documentElement.ChildNodes
for each element in objNodes
UserInfoList=UserInfoList& " < "&element.nodename& "> "&element.text& " </ "&element.nodename& "> "&vbCrlf
next
if IsDate(birthday) then
Rs( "birthday ")=birthday
else
Rs( "birthday ")=null
end if
------解决方案--------------------