我帮你找到了解决方法:
KS_Cls/KS_CommonCls.asp
然后查找GetMoreLink,找到后,将下面这段
Function GetMoreLink(ColNum, RowHeight, MoreLinkType, LinkNameStr, LinkUrl, OpenTypeStr)
If LinkNameStr = "" Then GetMoreLink = "":Exit Function
LinkNameStr = Trim(LinkNameStr):LinkUrl = Trim(LinkUrl)
If CStr(MoreLinkType) = "0" Then
GetMoreLink = "<tr><td colspan= """ & ColNum & """ height=""" & RowHeight & """ align=""right""><a href=""" & LinkUrl & """" & OpenTypeStr & " > " & LinkNameStr & "</a></td></tr>"
ElseIf CStr(MoreLinkType) = "1" Then
GetMoreLink = "<tr><td colspan= """ & ColNum & """ height=""" & RowHeight & """ align=""right""><a href=""" & LinkUrl & """" & OpenTypeStr & " > <img src=""" & LinkNameStr & """ border=""0"" align=""absmiddle""/></a></td></tr>"
Else
GetMoreLink = ""
End If
End Function
替换成
Function GetMoreLink(ColNum, RowHeight, MoreLinkType, LinkNameStr, LinkUrl, OpenTypeStr)
If LinkNameStr = "" Then GetMoreLink = "":Exit Function
LinkNameStr = Trim(LinkNameStr):LinkUrl = Trim(LinkUrl)
If CStr(MoreLinkType) = "0" Then
GetMoreLink = "<tr><td colspan= """ & ColNum+1 & """ height=""" & RowHeight & """ align=""right""><a href=""" & LinkUrl & """" & OpenTypeStr & " > " & LinkNameStr & "</a></td></tr>"
ElseIf CStr(MoreLinkType) = "1" Then
GetMoreLink = "<tr><td colspan= """ & ColNum+1 & """ height=""" & RowHeight & """ align=""right""><a href=""" & LinkUrl & """" & OpenTypeStr & " > <img src=""" & LinkNameStr & """ border=""0"" align=""absmiddle""/></a></td></tr>"
Else
GetMoreLink = ""
End If
End Function