请问哪位高手有实现Trackback的程序？谢谢，急！！！

Question

请问哪位高手有实现Trackback的程序？

Answer 1

http://www.coders.cn/blog/article.asp?id=16作为所谓的Blog三大特征之一的Trackback Ping，在网络上并没有一个真正的规范，它实际上最早是在Moveable发明并开始运用的一种技术，与另外两项被广泛认为是Blog最主要特征的RSS和Permalink相比，RSS本质上是是一种遵循W3C RDF规范的XML格式，Permalink是一种非常通用的静态地址技术，而Trackback Ping目前为止仅仅是在blog程序中得到运用，除了Moveable的一份技术规范文档外，也没有什么权威的标准，尤其在国内，众多blog程序有的支持有的不支持，有的有限支持，甚至还有因标准不一致而不能互相通信的(参见《blog is dead(blog已死)》http://blog.igooi.com/archive/2005/10/28/6716.aspx)。　　但是作为开发人员，我们不需要去讨论或者争论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 strPostInfoIf 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