[原创]可以自定义排序、是否审核显示的友情链接，带前台自助申请友情链接

演示地址：http://www.chinawts.com/list/aboutlink/

效果截图:

后台显示链接:
此主题相关图片如下：

后台添加链接:
此主题相关图片如下：

前台自助申请:
此主题相关图片如下：

郑重申明：在修改前一定要注意备份相应的文件和数据库

数据库修改说明(SQL的，ACCESS的修改可以参照修改)：

数据库对照截图：

原数据库：
此主题相关图片如下：

修改后的数据库：
此主题相关图片如下：

打开FS_FriendLinks表，使用设计视图修改字段名属性

1、原来的content字段我觉的有点混乱，不知道该字段是放什么内容的（文字介绍和图片链接都放到这里了）
下来就修改：把字段content修改为PicUrl(准备只存储图片链接的地址,字段属性可以不修改)

2、然后增加introduction(Ntext,16,可以为空)，次字段是放网站简介，在生成链接后可以让鼠标指到改连接便会显示该网站的介绍

3、增加ShowTF字段(smallint,2,可以为空),用来存储是否显示的值,0为不显示,1为显示，也可以理解为是否审核，主要是为自助申请链接做准备

4、增加Orders字段(smallint,2,可以为空),用来存储链接排序的值

修改生成函数文件foosun/admin/refreshfunction.asp的FriendLink函数(普通版的用户按照以下修改，未验证正确性，注意备份文件)

查找
Select Case RefreshType
  Case "Index"
   FriendLinkSql = "Select Top " & LinkNumberStr & " * from FS_FriendLink where Address like '%1%' and Type=" & LinkTypeStr
  Case "Class"
   FriendLinkSql = "Select Top " & LinkNumberStr & " * from FS_FriendLink where Address like '%2%' and Type=" & LinkTypeStr
  Case "News"
   FriendLinkSql = "Select Top " & LinkNumberStr & " * from FS_FriendLink where Address like '%3%' and Type=" & LinkTypeStr
  Case "Special"
   FriendLinkSql = "Select Top " & LinkNumberStr & " * from FS_FriendLink where Address like '%4%' and Type=" & LinkTypeStr
  Case Else
   FriendLinkSql = ""
End Select

修改为
Select Case RefreshType
  Case "Index"
   FriendLinkSql = "Select Top " & LinkNumberStr & " * from FS_FriendLink where Address like '%1%' and Type='" & LinkTypeStr &"' and ShowTF=1 Order by Orders"
  Case "Class"
   FriendLinkSql = "Select Top " & LinkNumberStr & " * from FS_FriendLink where Address like '%2%' and Type='" & LinkTypeStr &"' and ShowTF=1 Order by Orders"
  Case "News"
   FriendLinkSql = "Select Top " & LinkNumberStr & " * from FS_FriendLink where Address like '%3%' and Type='" & LinkTypeStr &"' and ShowTF=1 Order by Orders"
  Case "Special"
   FriendLinkSql = "Select Top " & LinkNumberStr & " * from FS_FriendLink where Address like '%4%' and Type='" & LinkTypeStr &"'  and ShowTF=1 Order by Orders"
  Case Else
   FriendLinkSql = ""
End Select

然后把TTTemp = RsFriendLinkObj("Content")替换成TTTemp = RsFriendLinkObj("PicURL")

如果想要鼠标指到链接的位置有简介的显示的话，请查找
FriendLink = FriendLink & "<a href=""" & RsFriendLinkObj("Url") & """ "& NewWindowTF &">" & GotTopic(RsFriendLinkObj("Name"),TitleNumberStr) & "</a>"

和
FriendLink = FriendLink & "<a href=""" & RsFriendLinkObj("Url") & """ "& NewWindowTF &"><img border=""0"" width=""" & PicWidthStr & """ Height=""" & PicHeightStr & """ src=""" &Temp_Str & """></a>"

替换成(也就是增加红色的部分)
FriendLink = FriendLink & "<td " & RowHeightStr & " ><a href=""" & RsFriendLinkObj("Url") & """ "& NewWindowTF &" title=" & RsFriendLinkObj("introduction") & ">" & GotTopic(RsFriendLinkObj("Name"),TitleNumberStr) & "</a>"
和
FriendLink = FriendLink & "<td " & RowHeightStr & " ><a href=""" & RsFriendLinkObj("Url") & """ "& NewWindowTF &" title=" & RsFriendLinkObj("introduction") & "><img border=""0"" width=""" & PicWidthStr & """ Height=""" & PicHeightStr & """ src=""" &Temp_Str & """ ></a>"

存储过程版的用户可以参照本附件里的4个存储过程和我自己的FriendLink函数进行修改

上传本附件里的文件到相应的位置

最后在需要使用自助申请友情链接的地方插入：
<a href=# onClick="javascript:window.open('/getlinks.asp','_n','width=480,height=340')"><font color=red><strong>申请友情连接</strong></font></a>