裁纸刀下 » 博客

Oblog检测搜索引擎的一个问题

小李刀刀 — Fri, 19 Sep 2008 03:10:26 +0000

　　今天上班的时候，有一个用户反映博客登陆不了了。

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

　　于是远程协助帮她处理。一般情况下，有人正常有人不正常都会是缓存的问题或者浏览器设置的问题。所以我首先做的也就是这两件事。可是处理之后问题依旧。在用户电脑上打开网页源代码，发现登陆表单是个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的名称做精确匹配，要么，就换一种方式来检测吧。这个本身并没有问题的代码，跟千奇百怪的计算机名称撞车的可能性还是很大的。

615：新域名正式启用

小李刀刀 — Sat, 14 Jun 2008 20:09:00 +0000

　　今天是2008年6月15日，之所以要记录一下这个日子，并不是因为今天是我到厦门工作后的第一个发工资日。第一、现在才凌晨3点，而且今天是周末，发工资也要周一；第二、我一直不知道台海网的工资卡是自己办卡上报卡号的，还以为像以前单位一样是统一开户后发卡下来，所以我连工资卡都还没去办。

　　今天之所以特殊，是因为今天我的博客正式启用了新的域名：wukangrui.net。

　　回忆起来，我的博客前后也换过不少域名了，好像曾经用过iiscn.net，madbirds.com，coders.cn，到上一个oophome.net，以及现在的wukangrui.net。貌似最早的几个似乎都比现在的好，呵呵，我都不知道当初为什么会放弃iiscn.net这个域名，可能是因为自己从来就没打算过做一个以IIS技术为内容的网站吧，个人博客，还是要有点个人特色才好。

　　正式基于上面的这句话，于是我的域名最后变成了这个样子。有的朋友看到这个域名自然会心领神会，有的看到可能会觉得奇怪。不管是什么吧，呵呵，反正以后这个域名再也不会变了。这个域名会和我的博客一样长久，甚至比我的博客更长久。比如某一天我的博客由于各种各样不可知的外力因素没准会被迫关闭掉，但是我的域名不会，国际顶级域名无需备案，也不需要服务器空间的支持，只要坚持续费，就是我的。因此这个域名永远不会丢掉的。

　　至于oophome.net，我一直都计划是要用它来做纯技术的东西，如今可以了，我会在几个月之后正式启用这个域名和“刀刀实验室”的站点。内容嘛，从域名上可以想象得到，如果从域名上想象不到，那么就从中文名字上想象吧。

　　到现在为止，我手上持有的域名总共是5个：

6571.net
oophome.com
oophome.net
wukangrui.com
wukangrui.net

　　这些域名里，6571.net或许将来我会无偿地让给别人；wukangrui.com和oophome.com或许某一天我一冲动会把他们放弃，但是oophome.net和wukangrui.net，我想我是永远不会放弃的。

为我的blog写的Google地图生成器

小李刀刀 — Thu, 24 Nov 2005 07:26:00 +0000

　　好长时间没用ASP开发了，今天用Div+CSS重构学校的官方网站，做得头晕，回到家突然想起来给自己的blog做一个google的站点地图生成程序，就动手了。

　　这个东西很简单，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文件，那个就是完整源代码。

　　点击下载此文件

用ASP为blog程序编写Trackback功能

小李刀刀 — Fri, 18 Nov 2005 12:56:00 +0000

　　作为所谓的Blog三大特征之一的Trackback Ping，在网络上并没有一个真正的规范，它实际上最早是在Moveable发明并开始运用的一种技术，与另外两项被广泛认为是Blog最主要特征的RSS和Permalink相比，RSS本质上是是一种遵循W3C RDF规范的XML格式，Permalink是一种非常通用的静态地址技术，而Trackback Ping目前为止仅仅是在blog程序中得到运用，除了Moveable的一份技术规范文档外，也没有什么权威的标准，尤其在国内，众多blog程序有的支持有的不支持，有的有限支持，甚至还有因标准不一致而不能互相通信的(参见《blog is dead(blog已死)》)。

　　但是作为开发人员，我们不需要去讨论或者争论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 "encoding=""" & strCharset & """?>"
    Response.Write "" & stat & ""
    If stat = 1 Then
        Response.Write "The blog you're trackbacking isn't exist!"
    ElseIf stat = 2 Then
        Response.Write "You can not Trackback a blog twice from the same URL."
    End If
End Sub

重新做我的blog了

小李刀刀 — Mon, 14 Nov 2005 21:24:00 +0000

今天是11月15日，我决定采用新的blog程序。原来的部分文章被我整理过来了，大部分没有。

采用新的blog，是因为我不想浪费时间在修改blog程序上，所以找了一个在我看来各方面都比较能满足我的需要的blog系统。我关注的是，它很简洁，很清爽。而且符合WEB规范。

在自我放逐了一段时间之后，我希望从这个新的blog投入使用开始，也宣布刀刀的恢复正常。

感谢我的朋友们，新朋友，老朋友。

裁纸刀下 » 博客

Oblog检测搜索引擎的一个问题

相关日志

615：新域名正式启用

相关日志

为我的blog写的Google地图生成器

相关日志

用ASP为blog程序编写Trackback功能

相关日志

重新做我的blog了

相关日志