当前位置: 代码迷 >> ASP >> 缺少对象: 'XMLDOM.documentElement.SelectSingleNode(.)' 急求帮助!多谢
  详细解决方案

缺少对象: 'XMLDOM.documentElement.SelectSingleNode(.)' 急求帮助!多谢

热度:557   发布时间:2012-02-14 19:19:19.0
缺少对象: 'XMLDOM.documentElement.SelectSingleNode(...)' 急求帮助!谢谢!
错误类型:
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


------解决方案--------------------
  相关解决方案