可以自定义排序、是否审核显示的友情链接

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

演示地址：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