因为最近做了整合方面的改动，我第一反应是难道这方面有问题？可是自己测试什么问题都不存在。后来用户抓图来看，是登陆表单的位置一片空白。

　　于是远程协助帮她处理。一般情况下，有人正常有人不正常都会是缓存的问题或者浏览器设置的问题。所以我首先做的也就是这两件事。可是处理之后问题依旧。在用户电脑上打开网页源代码，发现登陆表单是个JS脚本。代码输出正常的。该JS路径在我的电脑上访问就一切正常，而在用户的电脑上则访问不到。测试的时候进一步发现，用户的电脑上似乎只能访问我们博客系统的html静态文件，所以asp文件都返回404错误。

　　这种问题以前确实没有遇到。只遇到过静态文件可以访问动态脚本不能访问的，那都是IIS的问题，服务器端的问题。于是要从代码下手了。

　　打开login.asp（登陆脚本就是由它输出的），源代码头部首先就看到ChkSpider这个函数。我知道这是检测搜索引擎的，如果发现客户端是搜索引擎，直接截断输出。难道是这个有问题？，首先把这行代码注释了，刷新页面，登陆窗口正常显示了。

　　后来用户又在访问User_Index.asp的时候遇到同样的问题，看来改具体文件不是办法了，打开Class_Sys.asp文件，找到ChkSpider这个函数，进入函数后直接让它Exit Function。再测，问题全都没了。

　　这个问题一般情况下很难遇到，但是实际上几率并不算特别小，只要用户计算机名称包含了google、sohu、sina、soso、baidu、yahoo等字符串（不用严格等同于Spider的名称，只要包含相关字符串），就会被当作是Spider来处理。

　　看来Oblog的这个检测逻辑需要改进一下了。要么，对常用Spider的名称做精确匹配，要么，就换一种方式来检测吧。这个本身并没有问题的代码，跟千奇百怪的计算机名称撞车的可能性还是很大的。

相关日志

• 2005-11-24 -- 为我的blog写的Google地图生成器
• 2005-11-18 -- 用ASP为blog程序编写Trackback功能
• 2008-06-22 -- 动易SW中的一个严重但不影响使用的bug（二）
• 2008-06-18 -- 动易SW中的一个严重但不影响使用的bug(一)
• 2008-06-14 -- 615：新域名正式启用
• 2008-06-04 -- 在ASP中实现UNIX时间戳
• 2008-05-23 -- 给UCenter的拥蹩们泼点冷水
• 2008-04-14 -- PJBlog自带留言簿增强版改进
• 2005-11-23 -- ASP中的数字和字符比较
• 2005-11-14 -- 重新做我的blog了

　　这次继续分析这个Bug。在新版本的API_Function.asp这个文件中，selectSingleNode这个函数一共用到了5次，有两次是在SendPost函数里，在很早的版本里那两个地方就用的是selectSingleNode，因为那里传递的参数用的是“//status”和“//message”，是正确的XPath，因此不用考虑那里了。此外的三处，代码如下：

'**************************************************
'函数名：getNodeText
'作  用：获取XML文件中指定节点的文本
'参  数：strNodeName   ----节点名称
'返回值：解析出来的文本值，
'**************************************************
Function getNodeText(strNodeName)
    If IsNull(strNodeName) Or IsEmpty(strNodeName) Or strNodeName = "" Then Exit Function
    If IsNode(strNodeName) Then
        getNodeText = sMyXmlDoc.documentElement.selectSingleNode(strNodeName).Text
    Else
        getNodeText = ""
    End If
End Function  

'**************************************************
'函数名：setNodeText
'作  用：设置XML文件中指定节点的文本
'参  数：strNodeName   ----节点名称
'　　　　strNodeText   ----要设置的文本
'返回值：0 = 设置成功; 否则返回Err.Description
'**************************************************
Function setNodeText(strNodeName, strNodeText)
    If IsNull(strNodeText) Or IsEmpty(strNodeText) Or strNodeText = "" Then Exit Function
    If IsNull(strNodeName) Or IsEmpty(strNodeName) Or strNodeName = "" Then Exit Function
    If IsNode(strNodeName) Then sMyXmlDoc.documentElement.selectSingleNode(strNodeName).Text = strNodeText
End Function  

'**************************************************
'函数名：IsNode
'作  用：检查一个Node是否存在且文本不为空
'参  数：strNodeName   ----节点名称
'返回值：True or False
'**************************************************
Function IsNode(strNodeName)
    IsNode = False
    If strNodeName = "" Then Exit Function
    If sMyXmlDoc.documentElement.selectSingleNode(strNodeName) Is Nothing Then
        IsNode = False
    Else
        IsNode = True
    End If
End Function

　　我们来看，为什么设置message的值不会成功并且不报错呢？原因就在于setNodeText这个函数的最后一句：

　　IsNode这个函数，从函数的注释（还好这个没改）可以看出，作用是“检测一个元素是否存在且文本不为空”，这个函数本来的作用是用于检查传递的数据包中的“自定义元素”和“扩展元素”的，因为各个接口对标准的支持程度不同，因此在获取数据的时候，有的元素可能只是穿了空值过来，那我们就没有必要对该元素进行处理了，所以要用IsNode来检查一下。但是在setNodeText这个函数里没有调用过IsNode检查。就算调用了，按照以前的方式，一定会取到“message”元素的默认值，从而返回True。

　　在新版本中，由于采用了selectSingleNode来取“message”已经取不到了，自然，IsNode这个函数在检查到message的时候，必然返回空值，因为 sMyXmlDoc.documentElement.selectSingleNode Is Nothing这个判断为真了，所以会返回False。于是，sMyXmlDoc.documentElement.selectSingleNode(“message”).Text 这个语句就不会执行，也就不会引发500错误了。

　　做个假设，如果在修改了取元素的方式之后，没有给setNodeText和getNodeText加上IsNode判断，则必然引发500错误。或者，没有修改过IsNode这个函数，则仍然会返回True，然后引发500错误。正好是加上了判断，于是所有对message元素的值的读写都被忽略了，默认值“操作已成功”就这样被原封不动地回发给所有请求，而响应包中的用户数据元素也一样。

　　下面是纠正bug的代码：

第二种改法：用selectSingleNode的方法，代码如下

　　这样就能充分利用selectSingleNode的简洁了，但是还要注意哦，由于新版本的createXmlDom不再是自动生成支持的最高版本的xmldom对象，而是生成默认版本（系统默认版本一般都是3.0以下），而低于4.0的版本中，selectSingleNode对XPath的支持是有问题的，不支持带函数的XPath，所以还要小心！

相关日志

• 2008-06-18 -- 动易SW中的一个严重但不影响使用的bug(一)
• 2008-05-23 -- 给UCenter的拥蹩们泼点冷水
• 2008-06-22 -- 静态页面生成的思考
• 2008-06-04 -- 在ASP中实现UNIX时间戳
• 2007-01-30 -- 整合开发的新思路
• 2006-04-12 -- 用JavaScript动态输出的JS脚本不能执行
• 2010-10-30 -- webkit中BFC元素临近浮动元素时的边距bug
• 2009-07-08 -- ASP.NET MVC 最佳实践（四）
• 2009-07-07 -- ASP.NET MVC 最佳实践（三）
• 2009-07-05 -- PHP 5.3.0 发布

BUG描述：整个动易API接口的响应功能，除了操作状态码正常，其它部分完全失效，不会返回错误提示，也不会返回用户信息。

BUG重现：在启用了整合的站点，直接访问/API/API_Response.asp，将会看到<status>1</status>（表示请求不正确或者操作失败），以及<message>操作已成功完成</message>（操作成功返回的默认值）。就表示该BUG存在。

BUG影响：大部分情况下，各个应用程序并不会向动易请求用户信息，因此除了在登陆失败、注册失败等失败操作会提示用户“操作已成功”的假象以外，暂时不会造成其它影响。

　　动易SW里有这样一个问题，只有启用了整合接口并且曾经在整合的其它系统中遇到过错误提示的朋友才会发现：

　　每当整合出现问题或者是登陆、注册等一系列操作出错的时候，我们知道以前是返回错误的具体提示，包括服务器缺乏相关组件，或者接口配置错误，或者用户信息错误等，都会有不同的提示。到了SW里，这些操作同样也会返回错误，不会让你操作成功。但是错误的提示是什么呢？全部都是“操作已成功完成”，这个搞笑的问题出在哪里呢？

　　以前设计API的时候，考虑到最常见的情况是用户注册、登陆、注销这些日常操作，而这些操作里又是成功的居多，所以我在用于返回信息的Response.xml模板里，设置了默认返回状态为0（表示成功），默认返回信息为“操作已成功完成”。这就是这个bug的缘起了。

　　那么，以前老的版本反而没有这个问题，为什么新版本里出现这个问题呢？第一反应：当出现错误的时候，没有修改message，也就是错误提示信息。好，我们打开API_Response.asp检查一下，发现当操作错误的时候，代码是这样的：

If FoundErr Then
    sPE_Items(conStatus, 1) = "1"
    sPE_Items(conMessage, 1) = ErrMsg
    prepareXML (False)
    WriteXml
Else
    sPE_Items(conStatus, 1) = "0"
    prepareXML (False)
    WriteXml
End If

　　我用黄色背景标记的这行，翻译过来就是“设置提示信息的内容为ErrMsg（具体的错误信息）”，说明不是没有修改，于是我们继续往下查，sPE_Items这是一个API使用的全局数组，二维的，sPE_Items(a, b)，a代表xml里的不同元素，b为0标识我们要访问的是元素名称，1标识我们要访问的是元素里的内容；而conMessage是一个常数，实际上它等于4。在全局数组里sPE_Items(4, 1)代表的就是xml中message这个元素的内容。

　　接下来是prepareXML(False)这个函数。这个函数的作用是加载xml模板，然后用数组里的内容去替换默认值。经检查，在prepareXML这个函数里，当返回出错信息的时候的代码如下：

　　这里不会有什么问题，看来问题就出在setNodeText这个函数上了。新版本中的这个函数是：

　　以前的版本中代码是：

　　区别就在于，新版本用selectSingleNode这个方法获取节点，以前版本中我用getElementsByTagName().Item(0)这个方法来获取节点。两个方法都是返回xml文档树中的一个元素对象。新版本的代码简洁，直接从树中读取一个元素，而我的方法是读取文档树中所有标签为strNodeName（本例中指的是message）的元素列表，然后取第一个。

　　我排错的时候看到这里就已经明白问题所在了。因为当初我第一次写到这里的时候就犯过新版中这个错误。selectSingleNode这个方法的参数类型是XPath，而getElementsByTagName这个方法的参数类型是string。我们这里给的“message”，不是一个XPath，如果在我们的文档中用XPath来标识这个元素，正确的应该是“/root/body/message”，但是由于sMyXmlDoc这个对象取得是xml文档树的根元素，也就是root，所以其实也可以用“/body/message”来访问到。文档中只有一个message元素，因此也可以用“//message”来访问。不管用哪一种都行，但是用“message”是不对的。

　　所以这里给xml中所有body的子元素赋值都会失败。这就是问题所在了。

　　同理可知，在新版本的接口中，如果是整合的程序向动易发送请求，那么不管什么请求，返回的xml包中，都只有两个有效数据，一个是告诉对方响应者是动易系统，另一个就是告诉对方操作状态是成功还是失败。至于错误的具体提示，只有默认值，而其它的数据，比如检索用户信息，返回的则全部是空值。还好目前的整合中基本上不会用到这些元素，所以也就成了一个“严重”但不影响使用的bug了。关于这个bug为什么没有引发500错误以及如何修正，下次我再继续说。

　　除此之外，动易的新版本接口还增加了一个新元素（sex），可以理解为符合接口规范的自定义元素，但是这个元素表示的是用户性别。这是在标准中定义的必备扩展元素，元素名称是gendar（英文单词意思是性别）。等于放弃了对标准元素gendar的支持，增加了一个自定义元素sex。

　　不知道三方是否在这个新增元素上做过沟通取得了共识。如果没有的话，那么这里又是一个新bug，就是通用注册的时候，其它程序将不能通知动易记录用户的性别，动易也没法通知其它用户。

　　我第一次看到这个新增元素的时候百思不得其解。如果是gendar命名不恰当，要改的话，那应该会发公告通知PDO接口规范更新到1.1或者2.0，新增sex元素，gendar元素状态变为“不推荐”，这是w3c在xhtml规范里喜欢用的方式。先不推荐但是还兼容，让你有时间慢慢改，以后时机恰当再取消。

　　但是我奇怪的是gendar无论从语意上讲还是从哪方面讲，都不算是命名不规范的元素啊，甚至是比sex更规范的元素。sex只不过是在部分web应用里习惯的用法而已。其英文单词意思是“性”，而不是“性别”。

　　莫非做这个修改的技术员在修改接口的时候不看接口规范？不得而知了。但是对于selectSingleNode不能根据元素名称选择元素这个问题，的确是不应该犯的。

　　发现我写的代码被更改并不是因为我写错了，本来应该是高兴的吧，但是我却高兴不起来。我依然是动易的忠实FANS，我希望它更好。

相关日志

• 2008-06-22 -- 动易SW中的一个严重但不影响使用的bug（二）
• 2008-05-23 -- 给UCenter的拥蹩们泼点冷水
• 2008-06-22 -- 静态页面生成的思考
• 2008-06-04 -- 在ASP中实现UNIX时间戳
• 2007-01-30 -- 整合开发的新思路
• 2006-04-12 -- 用JavaScript动态输出的JS脚本不能执行
• 2010-10-30 -- webkit中BFC元素临近浮动元素时的边距bug
• 2009-07-08 -- ASP.NET MVC 最佳实践（四）
• 2009-07-07 -- ASP.NET MVC 最佳实践（三）
• 2009-07-05 -- PHP 5.3.0 发布

　　但是在研究UC的过程中却也有一些细小的收获。这篇文章说说PHP中的时间戳。在PHP中，时间函数time()获得的不是我们在ASP中的事件函数Now()所返回的“2008-06-04 21:19:41”这样的形式，而是“1123495443”这样的形式。这个记录的是所表示的时间与1970年1月1日午夜零点之间的事件差，单位为秒，不考虑闰年等因素。

　　如果要编写UC的ASP客户端，这个问题是必然要面对的，实际上即使不为UC编写客户端，这个特性引入ASP还是有不少好处的。下面是具体的实现办法：

　　这两个函数分别用于标准时间转Unix时间戳和Unix时间戳转标准时间。用法在函数前面的注释里写得很清楚了。

相关日志

• 2008-05-23 -- 给UCenter的拥蹩们泼点冷水
• 2009-07-05 -- PHP 5.3.0 发布
• 2008-06-22 -- 动易SW中的一个严重但不影响使用的bug（二）
• 2008-06-18 -- 动易SW中的一个严重但不影响使用的bug(一)
• 2009-07-08 -- ASP.NET MVC 最佳实践（四）
• 2009-07-07 -- ASP.NET MVC 最佳实践（三）
• 2009-07-01 -- ASP.NET MVC 最佳实践（二）
• 2009-06-28 -- ASP.NET MVC 最佳实践（一）
• 2009-06-08 -- 在 IIS 7.x 中用 FastCGI 运行 PHP
• 2008-09-19 -- Oblog检测搜索引擎的一个问题

在康盛创想的论坛上能看到有不少JSP程序、ASP.NET程序员都在咨询或者说抱怨官方的开发文档和示例太难看懂，完全是基于PHP的，如果不把PHP搞懂，很难实现在其它开发平台下的接口开发。而官方的回答只是“以后考虑”。

动易SF 1.1的发布公告中也指出基于UCenter的接口已经列入开发计划中。令广大动易站长欢欣鼓舞。

但是，我却不得不在这里给众多开发人员和站长们泼一盆冷水&mdash;&mdash;基于目前的UCenter，是没办法开发其它平台的接口的。原因很简单，UCenter服务器端默认了客户端的接口路径为“应用URL” + “api/uc.php”，而且这个是不能在配置文件或者后台修改的。

也就是说，不管你在什么平台下，是什么开发语言，你的接口必须为uc.php。那么，只有一个解决方法，就是在你的服务器上映射.php的后缀到你的程序语言的解析器，让.php也变成asp文件或者.net页面的后缀。那你的站点就不可能再同时支持php和asp，或者php和jsp，或者php和asp.net。而如果你是虚拟主机用户，你需要做的事情更多。

我们可以通过简单的方法修改UCenter，使之支持各平台语言的接口（要修改的文件只有4个左右），但是如此一来，等于是第三方开发人员或者说二次开发人员需要对服务器端进行修改，那已经不像是一个“通用平台”的问题了。

其次，在跨平台的信息传递中，UCenter大量使用的是Get/Post方式发送URLEncode编码的数据，而不是在所有平台所有编码语言下都有良好支持的xml格式。这样开发人员不得不继续花费大量时间来处理编码问题。

还有，UCenter由于采用PHP开发，大量使用了PHP的特性的东西，比如UNIX时间戳，比如键值对的数组，而在其它语言平台中，对这些东西的支持是各有不同的。虽然能够处理，但是却非常麻烦。

UCenter目前给我们带来一个最大的启发，就是一个中心，多套应用的模式，以及采用P3P来实现跨域Cookie处理的思路。

我相信，随着UCenter的出现解决了一系列跨站整合中的问题后，完善的跨站用户中心应该会很快出现。而UCenter如果不在下一版本中做大规模的改变，它是不太可能成为最终的通用整合中心的。至少这么久以来，我们可以看到康盛自己的.NET论坛都还没能支持这个UCenter，就能说明一些问题。

相关日志

• 2008-06-22 -- 动易SW中的一个严重但不影响使用的bug（二）
• 2008-06-18 -- 动易SW中的一个严重但不影响使用的bug(一)
• 2008-06-04 -- 在ASP中实现UNIX时间戳
• 2009-07-05 -- PHP 5.3.0 发布
• 2008-06-22 -- 静态页面生成的思考
• 2007-01-30 -- 整合开发的新思路
• 2006-04-12 -- 用JavaScript动态输出的JS脚本不能执行
• 2009-07-08 -- ASP.NET MVC 最佳实践（四）
• 2009-07-07 -- ASP.NET MVC 最佳实践（三）
• 2009-07-01 -- ASP.NET MVC 最佳实践（二）

不过这两个版本在垃圾广告过滤上并没有特别的改进，有两处判断应该是非法操作不能留言但是仅仅是提示非法操作而没有终止留言函数执行。

我在这个基础上增加了这两处的终止执行留言函数，再加入了官方版本的高级过滤支持。此外顺便把IP显示改成了实际地址显示（用最新的纯真数据库，调用纯真网站的数据），如果需要看真实IP，可以把鼠标指到留言人的昵称上即可。

具体效果可见本站留言簿。（注：本站验证码不含在此版本中，因为验证码样式是修改的Pjblog文件而不是留言插件）

点击下载此文件

相关日志

• 2008-09-19 -- Oblog检测搜索引擎的一个问题
• 2008-06-22 -- 动易SW中的一个严重但不影响使用的bug（二）
• 2008-06-18 -- 动易SW中的一个严重但不影响使用的bug(一)
• 2008-06-04 -- 在ASP中实现UNIX时间戳
• 2008-05-23 -- 给UCenter的拥蹩们泼点冷水
• 2005-11-24 -- 为我的blog写的Google地图生成器
• 2005-11-23 -- ASP中的数字和字符比较
• 2005-11-18 -- 用ASP为blog程序编写Trackback功能

 　　这个东西很简单，google地图是规范的XML文件，只要按照Google说明的格式把网址都列出来就可以了。因为我的blog重新做以后内容还少，Google说一个地图文件可以容纳50000个索引，按照每天新增一篇日至计算的话，还要100多年以后我的地图才会超出标准，所以我就没有打算做地图索引，直接用一个文件做地图了。

 　　这个小程序大约花了一个小时写完的，中间还跟朋友聊天，吃宵夜了

 　　生成的地图包括blog分类和每篇blog的地址，这里需要注意的是PJblog支持生成asp文件的方式来保存blog，所以提交给Google的最好是固定地址，也就是不是article.asp?id=xxx这样的，而是default.asp?id=xxx这样的。

 　　我给分类地址都做了更新频率和重要性的标记，分类的地址设定为每日更新（因为我是每天写一篇日志），重要性设置为1，非blog分类的其它模块设置重要性为0.5，而blog就只提供地址。

 　　因为是针对自己的站点写的，所以我没有对这个程序做太多完善，够我用就行了。如果有用PJblog的朋友感兴趣的话，可以下载附件的txt文件，那个就是完整源代码。

 　　点击下载此文件

相关日志

• 2008-09-19 -- Oblog检测搜索引擎的一个问题
• 2005-11-18 -- 用ASP为blog程序编写Trackback功能
• 2009-05-23 -- windows 7 x64 上的Google Chrome
• 2009-04-05 -- 使用Google AjaxLib API托管的js库
• 2008-06-22 -- 动易SW中的一个严重但不影响使用的bug（二）
• 2008-06-18 -- 动易SW中的一个严重但不影响使用的bug(一)
• 2008-06-14 -- 615：新域名正式启用
• 2008-06-04 -- 在ASP中实现UNIX时间戳
• 2008-05-23 -- 给UCenter的拥蹩们泼点冷水
• 2008-04-14 -- PJBlog自带留言簿增强版改进

一开始我不太明白这到底有什么区别，比如

a = "1"
If a = 1 Then
     'Something
End If

和

a = "1"
If a = "1" Then
     'Something
End If

 在VB中，变量的数据类型默认是Variant，在必要的时候自动转换，例如上例第一种，由于表达式右边是数字，因此系统会自动将字符串变量a转换为数字类型，然后进行数字的比较。而第二种则没有转换类型这个过程。

这个从代码上看没有任何区别的比较过程，在执行时却差着一个步骤。这就是老迷关于他为什么更愿意保持字符串变量的字符串类型来进行比较的原因。

最简单的运用就是用户登录时，比如有个是否保存cookies的选项。通常是用下拉选择或者单选按钮，表单数据经过ASP程序读取之后，Request.Form(“cookies”)的值默认情况下是字符串类型的。我们往往是把它当成数字来用，有时候我们还习惯用 a = Cint(Request.Form(“cookies”))的方式在读取时进行转换，也或者不做转换，直接用 If a = 1 来判断。

实际上不管用哪种方法，都离不开一个转换的过程，而且为了避免 Cint 函数出错，我们往往还需要在前面增加一个IsNumeric的验证，这样一来，多出来的就不只是一个步骤了。

而如果我们直接把Request.Form(“cookies”)作为字符串考虑，我们只需要一行代码即可：

If Request.Form("cookies") <> "" and a = "1" Then

就同时完成了数据有效性验证和比较。

这个很小的细节，在实际编程中用到的地方非常多，每个地方都多两个步骤，那的确在性能上就是比较低大的浪费了。

相关日志

• 2005-11-18 -- 用ASP为blog程序编写Trackback功能
• 2009-04-13 -- 简单、通用的JQuery Tab实现
• 2009-04-05 -- 使用Google AjaxLib API托管的js库
• 2008-09-19 -- Oblog检测搜索引擎的一个问题
• 2008-06-22 -- 动易SW中的一个严重但不影响使用的bug（二）
• 2008-06-18 -- 动易SW中的一个严重但不影响使用的bug(一)
• 2008-06-04 -- 在ASP中实现UNIX时间戳
• 2008-05-23 -- 给UCenter的拥蹩们泼点冷水
• 2008-04-14 -- PJBlog自带留言簿增强版改进
• 2006-04-16 -- CSS居然可以这样用

 　　但是作为开发人员，我们不需要去讨论或者争论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,"utf-8") 

    '如果是成功，还应当做好更新TrackBack记录和相关blog引用数的工作
End Sub

'#过程名：tbResponseXML
'#作 用：接收和处理客户端发来的Trackback Ping
'#参 数：
'#stat：错误代码，0=成功；1=日志不存在；2=Trackback记录已存在
'#strCharset：要返回的XML的编码 

Sub tbResponseXML(stat,strCharset)
    Response.ContentType = "text/xml"
    Response.Charset = strCharset
    Response.Write "<?xml version=""1.0" encoding=""" & strCharset & """?>"
    Response.Write "<error>" & stat & "</error>"
    If stat = 1 Then
        Response.Write "<message>The blog you're trackbacking isn't exist!</message>"
    ElseIf stat = 2 Then
        Response.Write "<message>You can not Trackback a blog twice from the same URL.</message>"
    End If
End Sub

相关日志

• 2008-09-19 -- Oblog检测搜索引擎的一个问题
• 2005-11-24 -- 为我的blog写的Google地图生成器
• 2005-11-23 -- ASP中的数字和字符比较
• 2009-04-13 -- 简单、通用的JQuery Tab实现
• 2009-04-05 -- 使用Google AjaxLib API托管的js库
• 2008-06-22 -- 动易SW中的一个严重但不影响使用的bug（二）
• 2008-06-18 -- 动易SW中的一个严重但不影响使用的bug(一)
• 2008-06-14 -- 615：新域名正式启用
• 2008-06-04 -- 在ASP中实现UNIX时间戳
• 2008-05-23 -- 给UCenter的拥蹩们泼点冷水