官方首页 | 无图版 | BBS首页
PJBlog3 2.8.5.157 新版发布 下载|升级(2008.8.26) 来给PJ3提提发展建议 2008版 PJHOME 珍藏/纪念版官方T恤 正式发布！ PJ3内测团队主创人员身份，性格，特点吐血大曝光
PJBlog技术支持论坛使用问题总索引 PJ-Blog 3 斑竹日志 【独家】我使用过的三种空间，与客服的精彩故事 Z-Blog,Wordpress,Bo-Blog转换到PJBlog
‹‹ 上一主题 | 下一主题 ››
 15 12
发新话题
打印

[原创]为你的“友情链接”添加注释，11月25日补充！

theosoft

PJFORUM新人

Rank: 3Rank: 3Rank: 3

UID
21468 
帖子
28 
精华
0 
积分
438 
PJ币
92 元 
阅读权限
10 
性别
男 
在线时间
41 小时 
1# 大 中 小 发表于 2006-11-21 11:02 只看该作者

[原创]为你的“友情链接”添加注释，11月25日补充！

其实这个功能在我网站发布不久就已经添加好了，现在拿出来和大家一起分享
    效果演示：http://blog.theosoft.net
    原文地址：http://blog.theosoft.net/article.asp?id=30
    因为这项功能是我很久以前改的，所以难免会有所疏漏，如果大家发现什么问题，欢迎及时和我联系！
    文章末尾有打包文件连接，如果懒得自己改代码，可以下载后，覆盖原文件即可

    首先打开ConContent.asp，找到“=======友情链接管理========”标签，往下看。
在“dim TLinkName,TLinkURL,TLinkLogo,TLinkOrder”后面添加“,TLinkAbout”；
在“LinkName=split(Request.form("LinkName"),", ")”后面添加“LinkAbout=split(Request.form("LinkAbout"),", ")”；
继续往下走，找到一个for循环，把里面的“conn.execute("update blog_Links set link_Name='"&CheckStr(TLinkName)&"',link_URL='"&CheckStr(TLinkURL)&"',link_Image='"&CheckStr(TLinkLogo)&"',link_Order='"&CheckStr(TLinkOrder)&"' where link_ID="&LinkID(i))”改成“conn.execute("update blog_Links set link_Name='"&CheckStr(TLinkName)&"',link_About='"&CheckStr(TLinkAbout)&"',link_URL='"&CheckStr(TLinkURL)&"',link_Image='"&CheckStr(TLinkLogo)&"',link_Order='"&CheckStr(TLinkOrder)&"' where link_ID="&LinkID(i))”；
同样的，在下面的“LinkName=Request.form("new_LinkName")”后添加“LinkAbout=Request.form("new_LinkAbout")”；
再往下，可以看到两个if，在后面那个if里，把“conn.execute("insert into blog_Links (link_Name,link_URL,link_Image,link_Order,link_IsShow) values ('"&CheckStr(LinkName)&"','"&CheckStr(LinkURL)&"','"&CheckStr(LinkLogo)&"','"&CheckStr(LinkOrder)&"',true)")”改成“conn.execute("insert into blog_Links (link_Name,link_About,link_URL,link_Image,link_Order,link_IsShow) values ('"&CheckStr(LinkName)&"','"&CheckStr(LinkAbout)&"','"&CheckStr(LinkURL)&"','"&CheckStr(LinkLogo)&"','"&CheckStr(LinkOrder)&"',true)")”；
到这里还没完，还要更改界面，否则你怎么设置这项属性呢？所以现在我们往上走，找到“'友情链接管理”标签。
往下翻过一页左右，你会找到类似于“
          <td width="16" nowrap="nowrap" class="TDHead"> </td>
          <td width="100" nowrap="nowrap" class="TDHead">网站名称</td>
          <td width="150" nowrap="nowrap" class="TDHead">网站地址</td>
          <td width="180" nowrap="nowrap" class="TDHead">Logo图片地址</td>
”这样的代码（width属性应该会不同，我已经改掉了，原来是多少我也不记得了），打它改成“
          <td width="16" nowrap="nowrap" class="TDHead"> </td>
          <td width="100" nowrap="nowrap" class="TDHead">网站名称</td>
          <td width="130" nowrap="nowrap" class="TDHead">网站介绍</td>
          <td width="150" nowrap="nowrap" class="TDHead">网站地址</td>
          <td width="180" nowrap="nowrap" class="TDHead">Logo图片地址</td>
”；
再往下找，会有一个if的嵌套，把里面的那个“
  if not bLink("link_IsShow") then
   %>
        <tr align="center" bgcolor="#FCF4BC">
          <td><img src="images/slink.gif" alt="没有通过验证链接"/></td>
          <td><input name="LinkID" type="hidden" value="<%=bLink("link_ID")%>"/><input name="LinkName" type="text" size="15" class="text" value="<%=bLink("link_Name")%>"/></td>
          <td><input name="LinkURL" type="text" size="22" class="text" value="<%=bLink("link_URL")%>"/></td>
          <td><input name="LinkLogo" type="text" size="25" class="text" value="<%=bLink("link_Image")%>"/></td>
          <td><input name="LinkOrder" type="text" class="text" size="2" value="<%=bLink("link_Order")%>"/></td>
          <td><a href="#" link_ID")%>)" title="通过该链接的验证"><img border="0" src="images/alink.gif" width="16" height="16" style="margin:0px 2px -3px 0px"/>通过</a> <a href="<%=bLink("link_URL")%>" target="_blank" title="查看该链接"><img border="0" src="images/icon_trackback.gif" width="16" height="16" style="margin:0px 2px -3px 0px"/>查看</a> <a href="#" link_ID")%>)" title="删除该链接"><img border="0" src="images/icon_del.gif" width="16" height="16" style="margin:0px 2px -3px 0px"/>删除</a> </td>
        </tr>
  <%else%>
        <tr align="center">
          <td><%if bLink("link_IsMain") then response.write ("<img src=""images/urlInTop.gif"" alt=""置顶链接""/>") else response.write (" ")%></td>
          <td><input name="LinkID" type="hidden" value="<%=bLink("link_ID")%>"/><input name="LinkName" type="text" size="15" class="text" value="<%=bLink("link_Name")%>"/></td>
          <td><input name="LinkURL" type="text" size="22" class="text" value="<%=bLink("link_URL")%>"/></td>
          <td><input name="LinkLogo" type="text" size="25" class="text" value="<%=bLink("link_Image")%>"/></td>
          <td><input name="LinkOrder" type="text" class="text" size="2" value="<%=bLink("link_Order")%>"/></td>
          <td><%if bLink("link_IsMain") then response.write ("<a href=""#"" Toplink("&bLink("link_ID")&")"" title=""取消该链接在首页置顶""><img border=""0"" src=""images/ct.gif"" style=""margin:0px 2px -3px 0px""/>取消</a> ") else response.write ("<a href=""#"" Toplink("&bLink("link_ID")&")"" title=""把该链接在首页置顶""><img border=""0"" src=""images/it.gif"" style=""margin:0px 2px -3px 0px""/>置顶</a> ")%>
    <a href="<%=bLink("link_URL")%>" target="_blank" title="查看该链接"><img border="0" src="images/icon_trackback.gif" width="16" height="16" style="margin:0px 2px -3px 0px"/>查看</a> <a href="#" link_ID")%>)" title="删除该链接"><img border="0" src="images/icon_del.gif" width="16" height="16" style="margin:0px 2px -3px 0px"/>删除</a> </td>
    </tr>
<%      end if
”（width属性同样会和你的有所不同，总之是这段代码就行了）改成“
  if not bLink("link_IsShow") then
   %>
        <tr align="center" bgcolor="#FCF4BC">
          <td><img src="images/slink.gif" alt="没有通过验证链接"/></td>
          <td><input name="LinkID" type="hidden" value="<%=bLink("link_ID")%>"/><input name="LinkName" type="text" size="15" class="text" value="<%=bLink("link_Name")%>"/></td>
          <td><input name="LinkAbout" type="text" size="20" class="text" value="<%=bLink("link_About")%>"/></td>
          <td><input name="LinkURL" type="text" size="22" class="text" value="<%=bLink("link_URL")%>"/></td>
          <td><input name="LinkLogo" type="text" size="25" class="text" value="<%=bLink("link_Image")%>"/></td>
          <td><input name="LinkOrder" type="text" class="text" size="2" value="<%=bLink("link_Order")%>"/></td>
          <td><a href="#" link_ID")%>)" title="通过该链接的验证"><img border="0" src="images/alink.gif" width="16" height="16" style="margin:0px 2px -3px 0px"/>通过</a> <a href="<%=bLink("link_URL")%>" target="_blank" title="查看该链接"><img border="0" src="images/icon_trackback.gif" width="16" height="16" style="margin:0px 2px -3px 0px"/>查看</a> <a href="#" link_ID")%>)" title="删除该链接"><img border="0" src="images/icon_del.gif" width="16" height="16" style="margin:0px 2px -3px 0px"/>删除</a> </td>
        </tr>
  <%else%>
        <tr align="center">
          <td><%if bLink("link_IsMain") then response.write ("<img src=""images/urlInTop.gif"" alt=""置顶链接""/>") else response.write (" ")%></td>
          <td><input name="LinkID" type="hidden" value="<%=bLink("link_ID")%>"/><input name="LinkName" type="text" size="15" class="text" value="<%=bLink("link_Name")%>"/></td>
          <td><input name="LinkAbout" type="text" size="20" class="text" value="<%=bLink("link_About")%>"/></td>
          <td><input name="LinkURL" type="text" size="22" class="text" value="<%=bLink("link_URL")%>"/></td>
          <td><input name="LinkLogo" type="text" size="25" class="text" value="<%=bLink("link_Image")%>"/></td>
          <td><input name="LinkOrder" type="text" class="text" size="2" value="<%=bLink("link_Order")%>"/></td>
          <td><%if bLink("link_IsMain") then response.write ("<a href=""#"" Toplink("&bLink("link_ID")&")"" title=""取消该链接在首页置顶""><img border=""0"" src=""images/ct.gif"" style=""margin:0px 2px -3px 0px""/>取消</a> ") else response.write ("<a href=""#"" Toplink("&bLink("link_ID")&")"" title=""把该链接在首页置顶""><img border=""0"" src=""images/it.gif"" style=""margin:0px 2px -3px 0px""/>置顶</a> ")%>
    <a href="<%=bLink("link_URL")%>" target="_blank" title="查看该链接"><img border="0" src="images/icon_trackback.gif" width="16" height="16" style="margin:0px 2px -3px 0px"/>查看</a> <a href="#" link_ID")%>)" title="删除该链接"><img border="0" src="images/icon_del.gif" width="16" height="16" style="margin:0px 2px -3px 0px"/>删除</a> </td>
    </tr>
<%      end if
”；
最后再把end if后面的“
          <td><input name="new_LinkID" type="hidden" value="-1"/><input name="new_LinkName" type="text" size="15" class="text"/></td>
          <td><input name="new_LinkURL" type="text" size="22" class="text" /></td>
          <td><input name="new_LinkLogo" type="text" size="25" class="text" /></td>
          <td><input name="new_LinkOrder" type="text" class="text" size="2" /></td>
”改成“
          <td><input name="new_LinkID" type="hidden" value="-1"/><input name="new_LinkName" type="text" size="15" class="text"/></td>
          <td><input name="new_LinkAbout" type="text" size="20" class="text" /></td>
          <td><input name="new_LinkURL" type="text" size="22" class="text" /></td>
          <td><input name="new_LinkLogo" type="text" size="25" class="text" /></td>
          <td><input name="new_LinkOrder" type="text" class="text" size="2" /></td>
”，这个文件就算改好了！休息一下，喝口水，我们继续改下一个文件
打开common\cache.asp，在“'=======写入首页链接列表========”标签的下面，可以找到一个do while循环，把里面那个if语句改成“
  IF log_BlogLinks("link_Image")<>Empty Then
   log_BloglinksList=log_BloglinksList&TempVar&log_BlogLinks("link_Name")&"$|$"&log_BlogLinks("link_URL")&"$|$"&log_BlogLinks("link_Image")&"$|$"&log_BlogLinks("link_About")
  Else
   log_BloglinksList=log_BloglinksList&TempVar&log_BlogLinks("link_Name")&"$|$"&log_BlogLinks("link_URL")&"$|$None"&"$|$"&log_BlogLinks("link_About")
  End IF
”；
再往下找，会看到一个以“if action=1 then”开头的代码，里面有个for循环，把循环里面的两个嵌套的if语句改成“
    if blog_ImgLink then
      if Arr_BloglinkItem(2)="None" then
       TextLink=TextLink&"<a class=""sideA"" href="""&Arr_BloglinkItem(1)&""" target=""_blank"" title="""&Arr_BloglinkItem(3)&""">"&Arr_BloglinkItem(0)&"</a>"
      else
       ImgLink=ImgLink&"<a href="""&Arr_BloglinkItem(1)&""" target=""_blank"" title=""""><img src="""&Arr_BloglinkItem(2)&""" border=""0"" alt="""&Arr_BloglinkItem(3)&"""/></a> "
      end if
     else
    Bloglinks=Bloglinks&"<a class=""sideA"" href="""&Arr_BloglinkItem(1)&""" target=""_blank"" title="""&Arr_BloglinkItem(3)&""">"&Arr_BloglinkItem(0)&"</a>    <font color=""c0c0c0"">"&Arr_BloglinkItem(3)&"</font>"
    end if
”就好了。最后，我们打开bloglink.asp，在“ link_Name=checkURL(checkstr(request.form("link_Name")))”后面添加“link_About=checkURL(checkstr(request.form("link_About")))”；
在“linkDB("link_Name")=link_Name”后面，添加“linkDB("link_About")=link_About”；
往下走，可以看到一个“do until blog_Links.eof”的循环，把里面的if语句，改成“
            if len(blog_Links("link_Image"))>0 then
               ImgLink=ImgLink&"<a href="""&blog_Links("link_URL")&""" target=""_blank""><img src="""&blog_Links("link_Image")&""" alt="""&blog_Links("link_About")&""" border=""0"" style=""margin:3px;width:88px;heightpx""/></a>"
            else
               TextLink=TextLink&"<div class=""link"" style=""width:108px;float:left;overflow:hidden;margin-right:8px;heightpx;line-height0%""><a href="""&blog_Links("link_URL")&""" target=""_blank"" title="""&blog_Links("link_About")&""">"&blog_Links("link_Name")&"</a></div>"
            end if
”；
最后，在下面的“<tr><td align="right" width="70"><strong>网站名称:</strong></td><td align="left" style="padding:3px;"><input name="link_Name" type="text" size="35" class="userpass" maxlength="40"/> <span style="color:#f00">*</span></td></tr>”后面添加“<tr><td align="right" width="70"><strong>网站介绍:</strong></td><td align="left" style="padding:3px;"><input name="link_About" type="text" size="35" class="userpass"/> <span style="color:#f00">*</span></td></tr>”就行了。
差点忘了，在bloglink.asp的开头，“
            if len(link_Name)<1 then
               showmsg "友情链接发表出错","<b>网站名称不能为空！</b><br/><a href=""javascript:history.go(-1);"">返回</a>","ErrorIcon",""
            end if
”后面，加上“
            if len(link_About)<1 then
               showmsg "友情链接发表出错","<b>网站介绍不能为空！</b><br/><a href=""javascript:history.go(-1);"">返回</a>","ErrorIcon",""
            end if
”

到此为止，现在应该可以真正的结束了
如果你实在是懒得去改这些文件的话，也可以去我网站下载，替换原文件就好了。
下载连接：http://blog.theosoft.net/article.asp?id=30

忘了最关键的东东了 ：大家自己在数据库里建一个“link_About”字段阿！

[ 本帖最后由 theosoft 于 2006-11-25 14 编辑 ]
我的Blog：http://blog.theosoft.net

TOP

安.

双鱼座男生

｛PJFORUM荣誉版主｝

Rank: 33Rank: 33Rank: 33

低调做人，高调做事。

UID
8040 
帖子
2729 
精华
1 
积分
7544 
PJ币
1646 元 
阅读权限
99 
性别
男 
在线时间
479 小时 

最佳勤劳奖 最佳奉献奖 荣誉版主

2# 大 中 小 发表于 2006-11-21 11:22 只看该作者
额，收到．
广告位招租。

TOP

嵘心天涯

小嵘

｛PJFORUM荣誉版主｝

Rank: 33Rank: 33Rank: 33

四级考试忙碌中。。。

UID
20892 
帖子
1392 
精华
2 
积分
7327 
PJ币
2223 元 
阅读权限
99 
性别
女 
在线时间
591 小时 

最佳勤劳奖 最佳奉献奖 荣誉版主 终身成就奖

3# 大 中 小 发表于 2006-11-21 12:14 只看该作者
我先去看看效果的说
考试。。考试

TOP

weiking

PJFORUM新人

Rank: 3Rank: 3Rank: 3

UID
22883 
帖子
14 
精华
0 
积分
264 
PJ币
2 元 
阅读权限
10 
在线时间
25 小时 
4# 大 中 小 发表于 2006-11-21 12:41 只看该作者
顶，看看效果。呵呵

TOP

zhpos

PJFORUM新人

Rank: 3Rank: 3Rank: 3

UID
23141 
帖子
20 
精华
0 
积分
290 
PJ币
87 元 
阅读权限
10 
在线时间
27 小时 
5# 大 中 小 发表于 2006-11-21 13:43 只看该作者
顶哦!
http://zhpos.cn/综合POS网

TOP

zhs23.com

PJFORUM新人

Rank: 3Rank: 3Rank: 3

UID
18018 
帖子
23 
精华
0 
积分
103 
PJ币
98 元 
阅读权限
10 
在线时间
8 小时 
6# 大 中 小 发表于 2006-11-21 13:50 只看该作者
说实话,真没看出什么东东来..-  -!!!

不过那连接很帅哦!~


QUOTE:
My Style...

TOP

fisherhg

PJFORUM老会员

Rank: 8Rank: 8

UID
20749 
帖子
50 
精华
0 
积分
1160 
PJ币
5 元 
阅读权限
30 
在线时间
111 小时 
7# 大 中 小 发表于 2006-11-21 14:27 只看该作者
还行
【朵朵成长乐园】欢迎您！

TOP

theosoft

PJFORUM新人

Rank: 3Rank: 3Rank: 3

UID
21468 
帖子
28 
精华
0 
积分
438 
PJ币
92 元 
阅读权限
10 
性别
男 
在线时间
41 小时 
8# 大 中 小 发表于 2006-11-21 16:12 只看该作者
引用:
原帖由 zhs23.com 于 2006-11-21 13 发表
说实话,真没看出什么东东来..-  -!!!

不过那连接很帅哦!~
那个效果可以参看http://bbs.pjhome.net/viewthread.php?tid=11264&extra=page%3D1
我的Blog：http://blog.theosoft.net

TOP

theosoft

PJFORUM新人

Rank: 3Rank: 3Rank: 3

UID
21468 
帖子
28 
精华
0 
积分
438 
PJ币
92 元 
阅读权限
10 
性别
男 
在线时间
41 小时 
9# 大 中 小 发表于 2006-11-25 14:42 只看该作者
忘了告诉大家要改数据库了 ，实在是抱歉阿！
我的Blog：http://blog.theosoft.net

TOP

aaronblog

PJFORUM老会员

Rank: 8Rank: 8

UID
13294 
帖子
249 
精华
0 
积分
1229 
PJ币
249 元 
阅读权限
30 
在线时间
98 小时 
10# 大 中 小 发表于 2006-11-25 16:24 只看该作者
我只想改下那个文字链接的样式,可以在哪儿改啊
三峡百姓生活网

TOP

‹‹ 上一主题 | 下一主题 ››
 15 12
发新话题