[原創]可以自定義排序、是否審核顯示的友情鏈接，帶前臺自助申請友情鏈接

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