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函數(shù)進行修改

上傳本附件里的文件到相應(yīng)的位置

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

點這里下載

查看更多 風訊cms教程  風訊cms模板