北京打车10公里多少钱:熟悉动网的高手请进急！！

今天刚从ACCESSO转为2000SQL数据库后，解决一些出现的问题后，就剩这个问题没有办法解！需要你们的帮忙，谢了！！

出现问题的提示：

Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: 'Node.attributes.setNamedItem(...).text'

/dispbbs.asp，行 321

指定出现问题代码部分

'插入门派数据节点，避免不三不四的门派名称出现
If Not IsObject(Application(Dvbbs.CacheName & "_GroupName")) Then Load_GroupName()
XMLDom.documentElement.appendChild(Application(Dvbbs.CacheName & "_GroupName").documentElement.cloneNode(True))
Else
Set XMLDom=Server.CreateObject("Msxml2.FreeThreadedDOMDocument" & MsxmlVersion)
XMLDom.appendChild(XMLDom.createElement("post"))
End If
Rem 主贴信息节点的插入 节点名称postinfo
Set Node = XMLDom.documentElement.appendChild(TopicInfo.documentElement.firstChild)
Node.attributes.setNamedItem(XMLDom.createNode(2,"pagecount","")).text=PageCount < - 注：提示说明这行有错，大家看看
Node.attributes.setNamedItem(XMLDom.createNode(2,"boardtype","")).text=Dvbbs.Replacehtml(Dvbbs.Boardtype)
Rem 传送客户端浏览器信息节点
XMLDom.documentElement.appendChild(Dvbbs.UserSession.documentElement.lastChild.cloneNode(True))
Rem 传送用户信息节点
Set Node=XMLDom.documentElement.appendChild(Dvbbs.UserSession.documentElement.firstChild.cloneNode(True))
Rem 附加一些需要用到的用户权限数据
If CanRead Then
Node.attributes.setNamedItem(XMLDom.createNode(2,"canread","")).text=1
End If