pjblog友情链接查询：让你轻松完成对申请友链的用户的反向跟踪

2008-12-15 1 条评论 5,014 次阅读 被赞了 0 次

        别人在你博客上申请了新链接的同时,如何做到不去对方网站查看是否已经先将您自己的链接添加上去了呢?这里的一个修改方法.让你轻松完成获取对方网站上友链信息的插件.插件使用和安装很简单,只分三个文件.下面介绍下如何安装：
1.打开您的c_link.asp,找到
 

程序代码 程序代码
Sub c_link
        %>

在下面增加代码

程序代码 程序代码
<script language="javascript" type="text/javascript" src="common/ajax.js"></script>
        <script language="javascript" type="text/javascript">
            function OpLinks(str,id){
               if ( str.substring(0,7) != "http://" ){
                   str = "http://"+ str;
                   check('Action.asp?action=checklink&link='+escape(str)+'&id='+id,'OpLink_'+id,'OpLink_'+id);
               }else if (str.substring(0,7) == "http://"){
                   str = str;
                   check('Action.asp?action=checklink&link='+escape(str)+'&id='+id,'OpLink_'+id,'OpLink_'+id);
               }else{
                   alert("对方地址不正确");
               }
            }
        </script>

找到(有2处,都用下面的方法修改)

程序代码 程序代码
<img border="0" src="images/icon_del.gif" width="16" height="16" style="margin:0px 2px -3px 0px"/>删除</a> </td>

在下面添加

程序代码 程序代码
<td><div id="OpLink_<%=bLink("link_ID")%>"><a href="javascript:;" onclick="OpLinks('<%=bLink("link_URL")%>',<%=bLink("link_ID")%>);">查看</a></div></td>

找到

程序代码 程序代码
<td class="TDHead">操作</td>

在下面加代码

程序代码 程序代码
<td class="TDHead">反链</td>

2.打开您的common/function.asp,在上面增加如下代码

程序代码 程序代码
'*************************************
'Bytestobstr by evio
'*************************************
Function Bytestobstr(Body)
   Dim Objstream
   Set Objstream = Server.Createobject("Adodb.Stream")
   Objstream.Type = 1
   Objstream.Mode =3
   Objstream.Open
   Objstream.Write Body
   Objstream.Position = 0
   Objstream.Type = 2
   Objstream.Charset ="utf-8"
   Bytestobstr = Objstream.Readtext
   Objstream.Close
   Set Objstream = Nothing
End Function

3.然后,如果你以前用过我的功能,如果在根目录下存在文件Action.asp的话,直接在最后的

程序代码 程序代码
else
response.write "非法操作!"
End If
%>

前增加如下代码

程序代码 程序代码
elseif request("action") = "checklink" then
       Dim link, id, ObjectXmlHttp, ObjectBody, BackStr
       link = request("link")
       'id = request("id")
       BackStr = ""
       set ObjectXmlHttp = server.createobject("Microsoft.XMLHTTP")
       ObjectBody = ObjectXmlHttp.open ("GET",link&"/bloglink.asp",false)
       ObjectXmlHttp.send()
       if err then
          response.Write "地址错误"
       else
          ObjectBody = Bytestobstr(ObjectXmlHttp.responseBody)
          if instr(ObjectBody,"http://www.evio.name") <> 0 then
             BackStr = BackStr&"<font color=blue>√</font>"
          else
             BackStr = BackStr&"<font color=red>×</font>"
          end if
       end if
       set ObjectXmlHttp = nothing
       response.write BackStr

如果没有那个文件,请将下面的代码复制到Action.asp(自己新建Action.asp,编码为UTF-8),代码如下:

程序代码 程序代码
<!–#include file="BlogCommon.asp" –>
<!–#include file="common/function.asp" –>
<!–#include file="common/ubbcode.asp" –>
<!–#include file="common/library.asp" –>
<!–#include file="common/upfile.asp" –>
<!–#include file="common/cache.asp" –>
<!–#include file="common/checkUser.asp" –>
<!–#include file="common/XML.asp" –>
<!–#include file="class/cls_article.asp" –>
<!–#include file="class/cls_default.asp" –>
<!–#include file="class/cls_logAction.asp" –>
<%
response.expires=-1
response.expiresabsolute=now()-1
response.cachecontrol="no-cache"
if request("action") = "checklink" then
       Dim link, id, ObjectXmlHttp, ObjectBody, BackStr
       link = request("link")
       'id = request("id")
       BackStr = ""
       set ObjectXmlHttp = server.createobject("Microsoft.XMLHTTP")
       ObjectBody = ObjectXmlHttp.open ("GET",link&"/bloglink.asp",false)
       ObjectXmlHttp.send()
       if err then
          response.Write "地址错误"
       else
          ObjectBody = Bytestobstr(ObjectXmlHttp.responseBody)
          if instr(ObjectBody,"http://www.evio.name") <> 0 then
             BackStr = BackStr&"<font color=blue>√</font>"
          else
             BackStr = BackStr&"<font color=red>×</font>"
          end if
       end if
       set ObjectXmlHttp = nothing
       response.write BackStr
      
else
response.write "非法操作!"
End If
%>

以上红色字表示你自己的网站,要自己修改的
最后一步不要忘记了下载附件到你的common/文件夹中

下载地址一：下载文件 点击下载此文件

下载地址二：点击下载此文件

唯一需要注意的一点是看下面的格式:
1.对方友链的正确格式是:

引用内容 引用内容
http://www.evio.name

2.对方友链的错误格式是:

引用内容 引用内容
http://www.evio.name/

也就是最后一个"/"的问题,我没有进行过滤,我很懒的,所以在使用这方法前必须是第一种正确的格式,不然出错.
还有要说的是,对方的博客地址如果是

程序代码 程序代码
http://www.evio.name/blog

而他申请的时候只是

程序代码 程序代码
http://www.evio.name

那么请帮他加上 "/blog",不然会判断不准确.

相关文章:

Default Thumbnailpjblog友情链接改为滚动模式的方法 Default ThumbnailPJblog实现批量删除友情链接功能 Default Thumbnailpjblog登陆失败登陆失败,登陆超时,后台超时等的修改方法 Default Thumbnail为PJBlog增加多附件上传功能—MultiAttUpload for PJBlog Default Thumbnail一个不错的pjblog侧边栏显示天气预报代码调用 Default ThumbnailPJBLOG里SiteMap.asp显示网址条数的修改办法 Default Thumbnailpjblog注册优化：为PJblog3注册Ajax化（Ajax检测所有） Default ThumbnailPJBlog：添加页面载入提示框 Default Thumbnail网站推广之友情链接：怎样让友情链接更加有效果 Default Thumbnailpjblog附件信息出错：Server.MapPath、FSO、ADODB.Stream超长路径问题
点赞 (0)
知识共享许可协议
本作品采用 知识共享署名-相同方式共享 4.0 国际许可协议 进行许可
  1. Elten说道：
    2008年12月15日 10:47 下午

    这个是非常的实用 不过无法确定对方是把链接放在首页还是其他页
    [reply=任侠,2008-12-17 07:20 AM]恩，看着貌似是不错，但俺后台还是显示不出来效果，暂时先不弄这个了，考完试再说~~~[/reply]

    回复

发表回复

您的电子邮箱地址不会被公开。 必填项已用 * 标注

Captcha Code