关于子栏目列表导航图片问题的修正方法 [供参考] - 风讯CMS - 小名建站

小名建站

SEO SEO


首页  >   风讯CMS > 关于子栏目列表导航图片问题的修正方法 [供参考]  >  正文







 

注重:因我测试时没有使用“更多内容”导航,所以忽略了些问题,不使用“更多内容”导航没问题,使用了会提示TempRowNumberStr变量未定义,提供下载的文件也没修改,请参照下面的修改方法自行修改





注重:因我测试时没有使用“更多内容”导航,所以忽略了些问题,不使用“更多内容”导航没问题,使用了会提示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模板

共2页上一页12下一页

关于子栏目列表导航图片问题的修正方法 [供参考]
http://www.yuedudg.cn/article/15106391.html

 










Tags: CMS教程 模板无忧 建站教程 CMS教程 风讯Cms教程










搜索


网站分类


标签列表


关于我们
本人提供网站SEO优化、SEM推广营销(百度/360/搜狗收录优化)、企业建站、搜索引擎教学等服务。
联系我们: 给我发QQ消息  加入QQ群





安全认证