Trackback的完整实现
来源:互联网 发布:mac怎么样切换输入法 编辑:程序博客网 时间:2024/06/10 06:26
Trackback的完整实现
http://www.coders.cn/blog/article.asp?id=16
作为所谓的Blog三大特征之一的Trackback Ping,在网络上并没有一个真正的规范,它实际上最早是在Moveable发明并开始运用的一种技术,与另外两项被广泛认为是Blog最主要特征的RSS和Permalink相比,RSS本质上是是一种遵循W
但是作为开发人员,我们不需要去讨论或者争论Trackback是不是死了、它会不会带来恶意Spam这些问题,就像垃圾邮件的存在,并不影响电子邮件的技术进步和使用一样。对于开发人员来讲,既然Trackback被认为是Blog的三大技术之一,而且blog程序的用户有这种需求,那我们在开发blog的时候,就应该包含这项技术。而且,我们应该尽可能地使我们开发的技术符合标准,或者规范,至少让它发挥作用。
Trackback Ping是由Moveable Type发明的规范,那么在没有更权威的标准之前,我们使用这项技术,当然应该以他们的规范为准,这里是他们的Trackback技术规范文档:http://www.movabletype.org/docs/mttrackback.html。
Trackback的完整实现至少包含两个方面,其一:客户端发送Trackback Ping;其二:服务器端接收和处理Trackback Ping,并向客户端返回处理结果。然后,根据需要我们可以考虑在客户端接收或者不接收,处理或者不处理返回的信息。下面是具体的代码:
'#函数名:Trackback
'#作 用:向指定的URL发送Trackback Ping,并根据服务器端返回的信息,提示用户处理情况。
'#参 数:
'#RemoteURL = 目标URL,也即所引用的blog所提供的引用地址
'#MyBlogURL = 我的Blog的URL
'#MyBlogName = 我的blog站点名称
'#MyBlogTitle = 当前这篇blog的标题
'#MyBlogExcerpt = 当前这篇blog的摘要
'#返回结果:字符串,以“|”分隔,第一部分为数字,0表示成功,1表示有错;第二部分是具体信息。
Function Trackback(RemoteURL,MyBlogURL,MyBlogName,MyBlogTitle,MyBlogExcerpt)
Dim objXMLHttp,objXML,intStat,strMessage,strPostInfo
'对参数进行必要的处理,比如URLEncode之类
MyBlogURL = Server.URLEncode(MyBlogURL)
MyBlogName = Server.URLEncode(MyBlogName)
MyBlogTitle = Server.URLEncode(MyBlogTitle)
MyBlogExcerpt = Server.URLEncode(MyBlogExcerpt)
'构造要发送的请求内容
strPostInfo = "title=" & MyBlogTitle
strPostInfo = strPostInfo & "&url=" & MyBlogURL
strPostInfo = strPostInfo & "&excerpt=" & MyBlogExcerpt
strPostInfo = strPostInfo & "&blog_name=" & MyBlogName
'创建对象
Set objXMLHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
'以post方式打开XMLHTTP对象
objXMLHttp.Open "POST", RemoteURL, false
'发送请求内容,判断发送情况,并进行处理
On Error Resume Next
objXMLHttp.Send strPostInfo
If Err.Number <> 0 Then
Trackback = "1|TrackBack错误:无法连接服务器"
Else
If (objXMLHttp.readyState <> 4) Or (objXMLHttp.Status <> 200) Then
objXMLHttp.Abort
Trackback = "1|Trackback超时"
Else
objXML.async = false
objXML.load(objXMLHttp.responseXML)
If objXML.parseError.errorCode <> 0 Then
Trackback = "1|TrackBack响应解析错误"
Else
If objXML.getElementsByTagName("error")(0).Text="0" Then
Trackback = "0|Trackback成功"
Else
Trackback = "1|Trackback错误:"&objXML.getElementsByTagName("message")(0).Text
End If
End If
End If
End If
'释放对象
Set objXMLHTTP = Nothing
Set objDom = Nothing
End Function
'#过程名:DealRequest
'#作 用:接收和处理客户端发来的Trackback Ping
'#参 数:无
Sub DealRequest()
Dim blog_id,tbTitle,tbName,tbURL,tbExcerpt,stat
'从所请求的URL中提取所引用的blogID,以便从数据库中检索对应的blog
'这个参数根据你所写的blog程序提供的Trackback地址形式而定
'这里我们假设这个参数为“id”
blog_id = Request.QueryString("id")
'读取出客户端传来的请求中的每个部分
'注意,这里没有对以Get方式提交的请求作出处理
'因为2003年以后根据技术规范已经不再接受Get方式的请求
'如果希望增强兼容性,可以加上对Get方式的请求的处理
tbTitle = Request.Form("title")
tbName = Request.Form("blog_name")
tbURL = Request.Form("url")
tbExcerpt = Request.Form("excerpt")
'检索数据库中id为blog_id的blog数据和url为tbURL的Trackback记录
'如果blog不存在,或者Trackback记录已存在,向客户端返回相应的出错说明
'我们这里调用一个进程tbResponseXML来完成这项工作
'调用时,以参数stat=0[1,2]分别表示成功、日志不存在和记录已存在
tbResponseXML(stat)
'如果是成功,还应当做好更新TrackBack记录和相关blog引用数的工作
End Sub
'#过程名:tbResponseXML
'#作 用:接收和处理客户端发来的Trackback Ping
'#参 数:
'#stat:错误代码,0=成功;1=日志不存在;2=Trackback记录已存在
'#strCodePage:要返回的XML的编码
Sub tbResponseXML(stat,strCodePage)
Response.ContentType = "text/xml" & vbNewLine
Response.Write "<?xml version=""1.0"" encoding=""" & strCodePage & """?>" & vbNewLine
Response.Write " <response>" & vbNewLine
Response.Write " <error>" & stat & "</error>" & vbNewLine
If stat = 1 Then
Response.Write " <message>The blog you're trackbacking isn't exist!</message>" & vbNewLine
ElseIf stat = 2 Then
Response.Write " <message>You can not Trackback a blog twice from the same URL.</message>" & vbNewLine
End If
Response.Write " </response>"
End Sub
- Trackback的完整实现
- (转)Trackback的完整实现
- TrackBack 的简单概念和实现架构
- 发送Trackback ping的HTML实现!
- [摘]trackback的原理与实现
- 如何实现自动Trackback
- TrackBack 的实现原理 及 asp.net代码
- (转)TrackBack 的简单概念和实现架构
- TrackBack 的资料。
- TrackBack的初次体会
- 关于trackback的测试
- 浅谈Trackback的用法
- 测试我的TRACKback
- TrackBack
- Trackback......
- TrackBack
- TrackBack
- TrackBack
- C程序设计谭浩强版课后习题答案
- 【转载】利用blog提升google排名
- 接口 interface
- 不负众望 Java API文档中文版正式发布
- 找不到組件 'MySql.Data.dll' 的相依性1/9
- Trackback的完整实现
- ViewState初探
- 年度盘点
- look
- ListCtr的用法
- 信赖
- 时间管理的40项准则
- 大财富论――破解IT人士的财富密码(二)
- 过好日子是一种能力