<!--#include file="autopostlog.asp"-->
<%
'回帖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 &"<br>")
'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("<a href="&questionlink.Item(0).Text&">>>>>>>查看详细</a>")
'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("<a href="""& link.Item(0).Text &""">"& title.Item(0).Text &"</a><br>")
Next
Else
Response.Write("文档还未准备就绪。状态:"& xml.ReadyState &"<br>")
'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
'URL="http://localhost/asppage/test.xml"
'URL="http://localhost/asppage/test.xml"
'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("</b><br>节点类型:" &id_value.nodeTypeString) '
'Response.Write("<br>节点值:" & 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 "<SPAN Class='txt'>" & oItem(i).childNodes(0).text & "</SPAN><BR>"
'title=oItem.childNodes.item(0).text
'Link=oItem.childNodes.item(1).text
'pubdate=oItem.childNodes.item(4).text
'next
'end if
%>
分享到:
相关推荐
16.6.4 用于插入程序员信息的完整服务器端 代码 16.7 搜索程序员信息 16.7.1 客户端 16.7.2 服务器端 16.8 清除程序员表单 16.9 输入程序员成果报告 16.9.1 客户端 16.9.2 服务器端 16.10 清除成果报告历史...
16.6.4 用于插入程序员信息的完整服务器端 代码 16.7 搜索程序员信息 16.7.1 客户端 16.7.2 服务器端 16.8 清除程序员表单 16.9 输入程序员成果报告 16.9.1 客户端 16.9.2 服务器端 16.10 清除成果报告历史...
16.6.4 用于插入程序员信息的完整服务器端 代码 16.7 搜索程序员信息 16.7.1 客户端 16.7.2 服务器端 16.8 清除程序员表单 16.9 输入程序员成果报告 16.9.1 客户端 16.9.2 服务器端 16.10 清除成果报告历史...
5.2.2 客户端和服务器端 121 5.2.3 DOM在出版过程中的应用 122 5.3 使用DOM和XML的应用实例 125 5.3.1 简单的客户端实例 125 5.3.2 更复杂的编程实例 133 5.4 DOM和XML的未来 143 5.4.1 W3C的工作 143 5.4.2 应用 ...
Server Side ViewState 在服务器端存贮ViewState (ASP.NET 2.0) VS2005 ASP.NET本地化学习笔记&感受 在自定义Server Control中捆绑JS文件 Step by Step 深度解析Asp.Net2.0中的Callback机制 使用 Web 标准生成 ASP...
FusionCharts有一个非免费的商用版本,其功能更加强大,事实上,不仅是HTML+JavaScript,无论是何种服务器端编程语言,比如PHP, ASP, .NET, JSP, ColdFusion, JavaScript, Ruby on Railsy等等,甚至是在你的Windows...
BLOG完美的利用了浏览器的XML解析技术,完全实现数据和界面的分离,使网络传输数据量大大减少,加载速度远远超过了市面上所有的BLOG产品,有效的减轻了服务器的带宽压力,服务器端使用四大动态网站开发语言中速度最...
数字证书:从文件中读取数字证书,生成文件输入流,输入文件为c:/mycert.cer,获取一个处理X.509证书的证书工厂…… Java+ajax写的登录实例 1个目标文件 内容索引:Java源码,初学实例,ajax,登录 一个Java+ajax写...
X3BLOG完美的利用了浏览器的XML解析技术,完全实现数据和界面的分离,使网络传输数据量大大减少,加载速度远远超过了市面上所有的BLOG产品,有效的减轻了服务器的带宽压力,服务器端使用四大动态网站开发语言中速度...
数字证书:从文件中读取数字证书,生成文件输入流,输入文件为c:/mycert.cer,获取一个处理X.509证书的证书工厂…… Java+ajax写的登录实例 1个目标文件 内容索引:Java源码,初学实例,ajax,登录 一个Java+ajax写...
是基于.net2.0+SQL2000/2005/2008+XML+XSLT+AJAX技术构建的开源cms系统,服务器端采用当前最流行的动态网页开发语言ASP.NET(C#) 2.0编写,支持多种数据库,包括SQLSERVER2000\SQLSERVER2005\ORACLE\MYSQL\DB2\ACCESS...
在ASP.Net课程的一开始,不是直接教学员怎么拖ASP.Net控件进行快速开发,而是通过ashx的模式开发原始的动态网站,让学员明白“请求—处理—响应模型”、“Http协议、Http无状态”、“c#代码渲染生成浏览器端...
BLOG完美的利用了浏览器的XML解析技术,完全实现数据和界面的分离,使网络传输数据量大大减少,加载速度远远超过了市面上所有的BLOG产品,有效的减轻了服务器的带宽压力,服务器端使用四大动态网站开发语言中速度最...
BLOG完美的利用了浏览器的XML解析技术,完全实现数据和界面的分离,使网络传输数据量大大减少,加载速度远远超过了市面上所有的BLOG产品,有效的减轻了服务器的带 <br>宽压力,服务器端使用四大动态网站开发语言...
JCaptcha4Struts2 是一个 Struts2的插件,用来增加验证码的支持,使用时只需要用一个 JSP 标签 (<jcaptcha:image label="Type the text "/> ) 即可,直接在 struts.xml 中进行配置,使用强大的 JCaptcha来生成验证码...
JCaptcha4Struts2 是一个 Struts2的插件,用来增加验证码的支持,使用时只需要用一个 JSP 标签 (<jcaptcha:image label="Type the text "/> ) 即可,直接在 struts.xml 中进行配置,使用强大的 JCaptcha来生成验证码...
JCaptcha4Struts2 是一个 Struts2的插件,用来增加验证码的支持,使用时只需要用一个 JSP 标签 (<jcaptcha:image label="Type the text "/> ) 即可,直接在 struts.xml 中进行配置,使用强大的 JCaptcha来生成验证码...
JCaptcha4Struts2 是一个 Struts2的插件,用来增加验证码的支持,使用时只需要用一个 JSP 标签 (<jcaptcha:image label="Type the text "/> ) 即可,直接在 struts.xml 中进行配置,使用强大的 JCaptcha来生成验证码...
X3BLOG完美的利用了浏览器的XML解析技术,完全实现数据和界面的分离,使网络传输数据量大大减少,加载速度远远超过了市面上所有的BLOG产品,有效的减轻了服务器的带宽压力,服务器端使用四大动态网站开发语言中速度...