可以自定义排序、是否审核显示的友情链接(2)_风讯Cms教程

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>

点这里下载

查看更多 风讯cms教程  风讯cms模板