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

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

文件：Admin\Refresh\Refreshfunction.asp

位置：ChildClassList函數(shù) 和 GetOneClassNewsList函數(shù)

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
'這個地方昨天晚上忘了標出來了，所以導(dǎo)致導(dǎo)航圖片無法顯示，不好意思:>
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

查看更多 風(fēng)訊cms教程  風(fēng)訊cms模板