可以自定義排序、是否審核顯示的友情鏈接(2)_風訊Cms教程
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>
- 相關(guān)鏈接:
- 教程說明:
風訊Cms教程-可以自定義排序、是否審核顯示的友情鏈接(2)
。