以文本方式查看主题

-  中文XML论坛 - 专业的XML技术讨论区  (http://bbs.xml.org.cn/index.asp)
--  『 XML基础 』  (http://bbs.xml.org.cn/list.asp?boardid=1)
----  帮我看看有什么错误  (http://bbs.xml.org.cn/dispbbs.asp?boardid=1&rootid=&id=6210)

--  作者：xgy2000
--  发布时间：3/25/2004 7:17:00 PM

--  帮我看看有什么错误
function DisplayInformation()
dim objXMLDoc
dim objRoot
dim nPKID
dim strFromUser
dim strInfoTitle
dim dateCreateTime
dim strHtml
dim i
strHtml = ""
set objXMLDoc = CreateObject("MSXML2.DOMDocument")
objXMLDoc.async = false
objXMLDoc.load(Server.MapPath("InformationContent.asp"))
set objRoot = objXMLDoc.documentElement
for i = 0 to (objRoot.ChildNodes.length-1)
 nPKID         = objRoot.ChildNodes(i).ChildNodes(0).text
 strFromUser   = objRoot.ChildNodes(i).ChildNodes(1).text
 strInfoTitle  = objRoot.ChildNodes(i).ChildNodes(3).text
 dateCreateTime= objRoot.ChildNodes(i).ChildNodes(5).text
strHtml = strHtml & "<tr><td>" & strFromUser & ">" & chr(13)
strHtml = strHtml & "<td><a  href='#' onclick='javascript:EditInformation("& nPKID & ")'>" & strInfoTitle & "</td>" & chr(13)
strHtml = strHtml & "<td><font size=1>" & dateCreateTime & "</font></td></tr>" & chr(13)


next
set objXMLDoc = nothing
DisplayInformation = strHtml
end function

W 3 C h i n a ( since 2003 ) 旗 下 站 点
苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》
 46.875ms