俺是基本不懂什么程序的。只是通過版本的對比發(fā)現(xiàn)解決方法。使用之前請做好備份！高手跳過，菜鳥跟俺一起繼續(xù)。。。。

用風訊默認的生成文字友情連接后發(fā)現(xiàn)有半截表格都沒有填滿就自動換行了。有好幾個版本的友情連接都有問題要么擠到與堆了。

查找：/foosun/admin/ RefreshFunction.asp 這個文件

FriendLink = FriendLink & "<tr><td " & RowHeightStr & " >"

修改成

不過生成一看，有點像不規(guī)則列表了。也不受標簽的控制顯示多少列。自動換行。有點高檔！不過在DW可視化編輯模式下發(fā)現(xiàn)根本看不到，估計是多生成了多余的tb 啊 tr之類的標簽導致的。不過不會影響瀏覽。（缺點：假如你還做有圖片友情連接的話，就生成的比較怪了。只排成一列啦，呵呵）

繼續(xù)修改：于是用3.1正確的關于生成友情鏈接的那段代碼，拷過來。不過要修改兩個地方不然會出錯誤的

Select Case RefreshType 修改為 Select Case Fun_RefreshType

Temp_Str = AvailableDoMain & TTTemp 修改為 Temp_Str = GetConfig(0) & TTTemp

假如你懶得改就直接用：

'友情鏈接
Function FriendLink(LinkTypeStr,TitleNumberStr,PicWidthStr,PicHeightStr,LinkNumberStr,RowNumberStr,RowHeightStr,NewWindowTF)
Dim FriendLinkSql,RsFriendLinkObj,i
If TitleNumberStr <> "" then
TitleNumberStr = Cint(TitleNumberStr)
Else
TitleNumberStr = 10
End If
IF NewWindowTF = "1" Then
NewWindowTF = "target=""_blank"""
Else
NewWindowTF = ""
End IF
Select Case Fun_Refresh_Type
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
if FriendLinkSql <> "" then
Dim TTTemp,Temp_Str
Set RsFriendLinkObj = Conn.Execute(FriendLinkSql)
if Not RsFriendLinkObj.Eof then
if RowHeightStr <> "" then RowHeightStr = " Height=""" & RowHeightStr & """"
FriendLink = "<table cellpadding=""0"" cellspacing=""0"" border=""0"" width=""100%"">"
do while Not RsFriendLinkObj.Eof
FriendLink = FriendLink & "</tr>"
for i = 1 to RowNumberStr
if LinkTypeStr = "0" then
FriendLink = FriendLink & "<td " & RowHeightStr & " ><a href=""" & RsFriendLinkObj("Url") & """ "& NewWindowTF &">" & GotTopic(RsFriendLinkObj("Name"),TitleNumberStr) & "</a>"
else
TTTemp = RsFriendLinkObj("Content")
If Instr(1,LCase(TTTemp),"0/' target=_blank>http://",1)<>0 then
Temp_Str = TTTemp
Else
Temp_Str = GetConfig(0) & TTTemp