asp服务器生成文件,asp在服务器端获取网页生成的xml文件，并解析

'回帖id(pid)

Dim pid

pid=Request.QueryString("pid")

Dim returnurl

'preurl = Server.URLEncode(request.ServerVariables("HTTP_REFERER"))

returnurl=request.QueryString("returnurl")

returnurl="http://bbs.91.cn/"&returnurl

'Response.End()

Dim http

Set http=Server.CreateObject("Microsoft.XMLHTTP")

'http.Open "GET","http://localhost/PHPStudy/xmltest.php",False

http.Open "GET","http://bbs.91.cn/bbstoblog.php?pid="&pid,False

http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

http.send

Dim xml

Set xml=Server.CreateObject("Microsoft.XMLDOM")

xml.Async=False

xml.ValidateOnParse=False

xml.Load(http.ResponseXML)

If xml.ReadyState>2 Then

Response.Write("文档已经准备就绪。状态："& xml.ReadyState &"
")

'Response.Write(http.ResponseText)

'Response.End()

Dim item,i

Set item=xml.getElementsByTagName("ask")

For i=0 To (item.Length-1)

'For i=0 To 0

Dim questiontitle,questioncontent,questionlink,answertitle,answercontent,passportid

Set questiontitle=item.Item(i).getElementsByTagName("questiontitle")

Set questioncontent=item.Item(i).getElementsByTagName("questioncontent")

Set questionlink=item.Item(i).getElementsByTagName("questionlink")

Set answertitle=item.Item(i).getElementsByTagName("answertitle")

Set answercontent=item.Item(i).getElementsByTagName("answercontent")

set passportid=item.Item(i).getElementsByTagName("passportid")

'Response.Write(questiontitle.Item(0).Text)

'Response.Write(questioncontent.Item(0).Text)

'Response.Write(">>>>>>查看详细")

'Response.Write(answertitle.Item(0).Text)

'Response.Write(answercontent.Item(0).Text)

'Response.Write(passportid.Item(0).Text)

'Response.Write(item.length)

Dim qtitle,qcontent,qlink,atitle,acontent,puid

qtitle=questiontitle.Item(0).Text

qcontent=questioncontent.Item(0).Text

qlink=questionlink.Item(0).Text

atitle=answertitle.Item(0).Text

acontent=answercontent.Item(0).Text

puid=passportid.Item(0).Text

Dim blogid,username

Dim rs

Set rs = server.createobject("adodb.recordset")

rs.open "SELECT TOP 1 * FROM [oblog_user] where puid="&puid&"", conn, 1, 1

if(not rs.eof) then

blogid=rs("userid")

username=rs("username")

'Response.Write("ccccc")

else'该用户还位开通blog

'Response.Write("dddddd")

Response.Redirect(returnurl)'用户还没开通blog就直接返回到bbs

'Response.Redirect("autoreg.asp")

'Response.Redirect("http://www.qq.com")

end if

'Response.Write(blogid)

'Response.Write(qtitle)

'Response.Write(""& title.Item(0).Text &"
")

Next

Else

Response.Write("文档还未准备就绪。状态："& xml.ReadyState &"
")

'bbs写入blog出问题也跳回bbs

Response.Redirect(returnurl)

End If

Set http=Nothing

Set xml=Nothing

'dim xmlDom,userinfo,id_node,id_value,username_node,username_value,password_node,password_value

'Set xml = Server.CreateObject("Microsoft.XMLHTTP")

'xml.Open "GET", url, False

'xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

'xml.Send

'Response.Write(xml.ResponseText)

'Response.End()

'Set xmlDom = server.createObject("microsoft.xmldom")

'xmlDom.async=False

'xmlDom.ValidateOnParse=false

'set userinfo = xmlDom.DocumentElement

' set id_node=userinfo.childNodes.item(0)

' set id_value=id_node.childNodes.item(0)

'set username_node = userinfo.childNodes.item(1)

'set username_value=username_node.childNodes.item(0)

'set password_node=userinfo.childNodes.item(4)

'set password_value=password_node.childNodes.item(0)

'Response.Write("
节点类型：" &id_value.nodeTypeString) '

'Response.Write("
节点值：" & userinfo.nodeValue)

' Response.Write(username_value.nodeValue)

'Response.Write(password_value.nodeValue)

'if xmlDom.ReadyState>2 Then

'set oItem=xmlDom.getElementsByTagName("item")

'for i=0 to oItem.length-1

'response.write "" & oItem(i).childNodes(0).text & "
"

'title=oItem.childNodes.item(0).text

'Link=oItem.childNodes.item(1).text

'pubdate=oItem.childNodes.item(4).text

'next

'end if

%>