注重：因我測試時沒有使用“更多內容”導航，所以忽略了些問題，不使用“更多內容”導航沒問題，使用了會提示TempRowNumberStr變量未定義，提供下載的文件也沒修改，請參照下面的修改方法自行修改。

從SP1開始就存在的問題：子欄目新聞列表，使用導航圖片時，只有第一個子欄目正確，其他的都無法顯示；研究發現并非僅僅導航圖片存在這樣的問題，還有新聞分割圖片，新聞間距，欄目間距等等都存在類似問題。初步斷定為變量定義及賦值的位置不對，使得部分代碼在循環內自我復制導致錯誤。現提供我的修改方法，供大家參考：

文件：Admin\Refresh\Refreshfunction.asp

位置：ChildClassList函數 和 GetOneClassNewsList函數

function ChildClassList(ClassNumberStr,NewsNumberStr,CompatPicStr,NaviPicStr,ClassRowHeightStr,NewsRowHeightStr,ClassRowNumberStr,NewsRowNumberStr,DateRuleStr,DateRightStr,TitleNumberStr,MoreLinkTypeStr,MoreLinkContentStr,ClassBGPicStr,CSSStyleStr,OpenTypeStr,DateCSSStyleStr,TxtNaviStr)
dim TempRowNumberStr ' 新增變量
If TitleNumberStr <> "" then
TitleNumberStr = Cint(TitleNumberStr)
Else
TitleNumberStr = 10
End If
'這個地方昨天晚上忘了標出來了，所以導致導航圖片無法顯示，不好意思:>
if TxtNaviStr <> "" then
NaviPicStr = TxtNaviStr
else
if NaviPicStr <> "" then NaviPicStr = "<img src=""" & NaviPicStr & """>"
end if

if RefreshType = "Class" then
Dim ClassSql,RsClassObj,AllChildClassID,i
AllChildClassID = ChildClassIDList(RefreshID)
if AllChildClassID <> "" then
if Left(AllChildClassID,1) = "," then
AllChildClassID = Right(AllChildClassID,Len(AllChildClassID)-1)
end if
else
ChildClassList = ""
Exit function
end if
if ClassBGPicStr <> "" then
ClassBGPicStr = "<tr>" & Chr(13) & Chr(10) & "<td Height=1 colspan=""" & ClassRowNumberStr & """>" & Chr(13) & Chr(10) & "<table width=""100%"" cellpadding=""0"" cellspacing=""0"">" & Chr(13) & Chr(10) & "<tr>" & Chr(13) & Chr(10) & "<td Height=1 background=""" & ClassBGPicStr & """>" & Chr(13) & Chr(10) & "</td>" & Chr(13) & Chr(10) & "</tr>" & Chr(13) & Chr(10) & "</table>" & Chr(13) & Chr(10) & "</td>" & Chr(13) & Chr(10) & "</tr>"
end if
ClassSql = "Select Top " & ClassNumberStr & " * from NewsClass where ClassID in (" & AllChildClassID & ") and DelFlag=0 order by ID desc"
Set RsClassObj = Conn.Execute(ClassSql)
if Not RsClassObj.Eof then
'======== 新增代碼=======
if DateRuleStr <> "" then
if DateRightStr = "Left" then

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