同是图片和标题新闻的时候,用图片新闻标签调用,链接不对 - 风讯CMS - 爱建站

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

SEO SEO

首页  >   风讯CMS > 同是图片和标题新闻的时候,用图片新闻标签调用,链接不对  >  正文

 

将 Admin Refresh RefreshFunction asp 文件的 1638 -1651 行的下列代码 if ShowTitleStr = "1 " thenif RsPicObj( "SaveFilePath ") = " " thenTitleHTMLStr = TitleHTMLStr & "<td> " & Chr(13) & Chr(10) & "<a " & OpenModeStr & " Class= " " " & CssFileStr & " " " href= " " " & AvailableDoMain & RsPicObj( "SaveFilePath ") & RsPicObj( "ClassEName ") & " " & RsPicObj( "FileName ") & " " & RsPicObj( "NewsFileExtName ") & " " " title= " " "& RsPicObj( "Title ")& " " "> " & GotTopic(RsPicObj( "Title "),TitleNumberStr) & "< a>< td> " & Chr(13) & Chr(10)elseTitleHTMLStr = TitleHTMLStr & "<td> " & Chr(13) & Chr(10) & "<a " & OpenModeStr & " Class= " " " & CssFileStr & " " " href= " " " & AvailableDoMain & RsPicObj( "SaveFilePath ") & " " & RsPicObj( "ClassEName ") & " " & RsPicObj( "FileName ") & " " & RsPicObj( "NewsFileExtName ") & " " " title= " " "& RsPicObj( "Title ")& " " "> " & GotTopic(RsPicObj( "Title "),TitleNumberStr) & "< a>< td> " & Chr(13) & Chr(10)end ifelseTitleHTMLStr = " "end ifif RsPicObj( "SaveFilePath ") = " " thenPicNews = PicNews & "<td> " & Chr(13) & Chr(10) & "<a " & OpenModeStr & " Class= " " " & CssFileStr & " " " href= " " " & AvailableDoMain & RsPicObj( "SaveFilePath ") & RsPicObj( "ClassEName ") & " " & RsPicObj( "FileName ") & " " & RsPicObj( "NewsFileExtName ") & " " " title= " " "& RsPicObj( "Title ")& " " "> " & "<img border= " "0 " " src= " " " & AvailableDoMain & RsPicObj( "PicPath ") & " " " width= " " " & PicWidthStr & " " " height= " " " & PicHeightStr & " " "> " & "< a>< td> " & Chr(13) & Chr(10)elsePicNews = PicNews & "<td> " & Chr(13) & Chr(10) & "<a " & OpenModeStr & " Class= " " " & CssFileStr & " " " href= " " " & AvailableDoMain & RsPicObj( "SaveFilePath ") & " " & RsPicObj( "ClassEName ") & " " & RsPicObj( "FileName ") & " " & RsPicObj( "NewsFileExtName ") & " " " title= " " "& RsPicObj( "Title ")& " " "> " & "<img border= " "0 " " src= " " " & AvailableDoMain & RsPicObj( "PicPath ") & " " " width= " " " & PicWidthStr & " " " height= " " " & PicHeightStr & " " "> " & "< a>< td> " & Chr(13) & Chr(10)end if 替换为 if ShowTitleStr = "1 " thenif RsPicObj( "SaveFilePath ") = " " thenif RsPicObj( "HeadNewsTF ")=1 thenTitleHTMLStr = TitleHTMLStr & "<td> " & Chr(13) & Chr(10) & "<a " & OpenModeStr & " Class= " " " & CssFileStr & " " " href= " " " & RsPicObj( "HeadNewsPath ") & " " " title= " " "& RsPicObj( "Title ")& " " "> " & GotTopic(RsPicObj( "Title "),TitleNumberStr) & "< a>< td> " & Chr(13) & Chr(10)elseTitleHTMLStr = TitleHTMLStr & "<td> " & Chr(13) & Chr(10) & "<a " & OpenModeStr & " Class= " " " & CssFileStr & " " " href= " " " & AvailableDoMain & RsPicObj( "SaveFilePath ") & RsPicObj( "ClassEName ") & " " & RsPicObj( "FileName ") & " " & RsPicObj( "NewsFileExtName ") & " " " title= " " "& RsPicObj( "Title ")& " " "> " & GotTopic(RsPicObj( "Title "),TitleNumberStr) & "< a>< td> " & Chr(13) & Chr(10) 查看更多 风讯cms教程  风讯cms模板 共2页上一页12下一页 来源:模板无忧 所属分类:风讯Cms教程 更新时间:2006-06-14 [收藏][报错][返回列表] 相关风讯Cms教程: 最简单的栏目切换方法(样式系列之栏目切换篇2) 我也放个栏目切换代码,简简单单的


将 Admin/Refresh/RefreshFunction.asp 文件的

1638 -1651 行的下列代码

if ShowTitleStr = "1" then
if RsPicObj("SaveFilePath") = "/" then
TitleHTMLStr = TitleHTMLStr & "<td>" & Chr(13) & Chr(10) & "<a " & OpenModeStr & " Class=""" & CssFileStr & """ href=""" & AvailableDoMain & RsPicObj("SaveFilePath") & RsPicObj("ClassEName") & "/" & RsPicObj("FileName") & "." & RsPicObj("NewsFileExtName") & """ title="""& RsPicObj("Title")&""">" & GotTopic(RsPicObj("Title"),TitleNumberStr) & "</a></td>" & Chr(13) & Chr(10)
else
TitleHTMLStr = TitleHTMLStr & "<td>" & Chr(13) & Chr(10) & "<a " & OpenModeStr & " Class=""" & CssFileStr & """ href=""" & AvailableDoMain & RsPicObj("SaveFilePath") & "/" & RsPicObj("ClassEName") & "/" & RsPicObj("FileName") & "." & RsPicObj("NewsFileExtName") & """ title="""& RsPicObj("Title")&""">" & GotTopic(RsPicObj("Title"),TitleNumberStr) & "</a></td>" & Chr(13) & Chr(10)
end if
else
TitleHTMLStr = ""
end if
if RsPicObj("SaveFilePath") = "/" then
PicNews = PicNews & "<td>" & Chr(13) & Chr(10) & "<a " & OpenModeStr & " Class=""" & CssFileStr & """ href=""" & AvailableDoMain & RsPicObj("SaveFilePath") & RsPicObj("ClassEName") & "/" & RsPicObj("FileName") & "." & RsPicObj("NewsFileExtName") & """ title="""& RsPicObj("Title")&""">" & "<img border=""0"" src=""" & AvailableDoMain & RsPicObj("PicPath") & """ width=""" & PicWidthStr & """ height=""" & PicHeightStr & """>" & "</a></td>" & Chr(13) & Chr(10)
else
PicNews = PicNews & "<td>" & Chr(13) & Chr(10) & "<a " & OpenModeStr & " Class=""" & CssFileStr & """ href=""" & AvailableDoMain & RsPicObj("SaveFilePath") & "/" & RsPicObj("ClassEName") & "/" & RsPicObj("FileName") & "." & RsPicObj("NewsFileExtName") & """ title="""& RsPicObj("Title")&""">" & "<img border=""0"" src=""" & AvailableDoMain & RsPicObj("PicPath") & """ width=""" & PicWidthStr & """ height=""" & PicHeightStr & """>" & "</a></td>" & Chr(13) & Chr(10)
end if

替换为

if ShowTitleStr = "1" then
if RsPicObj("SaveFilePath") = "/" then
if RsPicObj("HeadNewsTF")=1 then
TitleHTMLStr = TitleHTMLStr & "<td>" & Chr(13) & Chr(10) & "<a " & OpenModeStr & " Class=""" & CssFileStr & """ href=""" & RsPicObj("HeadNewsPath") & """ title="""& RsPicObj("Title")&""">" & GotTopic(RsPicObj("Title"),TitleNumberStr) & "</a></td>" & Chr(13) & Chr(10)
else
TitleHTMLStr = TitleHTMLStr & "<td>" & Chr(13) & Chr(10) & "<a " & OpenModeStr & " Class=""" & CssFileStr & """ href=""" & AvailableDoMain & RsPicObj("SaveFilePath") & RsPicObj("ClassEName") & "/" & RsPicObj("FileName") & "." & RsPicObj("NewsFileExtName") & """ title="""& RsPicObj("Title")&""">" & GotTopic(RsPicObj("Title"),TitleNumberStr) & "</a></td>" & Chr(13) & Chr(10)

查看更多 风讯cms教程  风讯cms模板

共2页上一页12下一页

同是图片和标题新闻的时候,用图片新闻标签调用,链接不对
http://www.yuedudg.cn/article/15106491.html

 

友情链接
wp之家 织梦之家 帝国cms常识
cms综合网 zblog之家 phpcms之家
discuz经验网 ecshop经验网


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


手机浏览本文
同是图片和标题新闻的时候,用图片新闻标签调用,链接不对

同是图片和标题新闻的时候,用图片新闻标签调用,链接不对

站内推荐

网站分类

标签列表

关于我们
文章内容来源互联网仅供参考,如果还有疑问请联系我们!我们将竭力帮您解决您的问题
联系我们:

QQ: 397423577 

email:397423577@qq.com

微信:ganenboy