|
|
|
|
【用户】
吴卫东 |
|
修改CMS1.2新闻、下载等模块的风格（已修订）
本人提供两种修改方法。
第一种，保留标题后的more等图标。打开 include/con_news.asp
找到function news_bar_top(tvar,tt,ttype,tmore)这一段，
查找 background＝
将所有 background＝ 后面的 '"&joekoe_cms.web_dir_skin&"main/"xxx"gif' 都改为 '"&joekoe_cms.web_dir_skin&"bg_td.gif'
第二种，与文章显示风格完全一样（推荐）。
1、还是在function news_bar_top(tvar,tt,ttype,tmore)这一段，
找到
temp1=vbcrlf&"" & _
vbcrlf&"| " & _
vbcrlf&" | " & _
vbcrlf&" | "&img_skin(web_img_m&ttype)&""&tvar&" | " & _
vbcrlf&" "&more_var&" | " & _
vbcrlf&" " & _
vbcrlf&" " & _
vbcrlf&" | " & _
vbcrlf&""
if tt=1 then temp1=temp1&vbcrlf&" "
news_bar_top=temp1
end function
直接用下面的代码替换
temp1=temp1&vbcrlf&"" & _
vbcrlf&"| "&img_skin(web_img_m)&" "&tvar&" | " & _
vbcrlf&""
if tt=1 then temp1=temp1&vbcrlf&" "
news_bar_top=temp1
end function
2、再找到
function news_bar_end(mvar,tt)
dim temp1
if tt=1 then temp1=temp1&vbcrlf&" "
temp1=temp1&vbcrlf&" | " & _
vbcrlf&" "
news_bar_end=temp1&ukong
end function
这一段，用下面的代码替换
function news_bar_end(mvar,tt)
dim temp1
if tt=1 then temp1=temp1&vbcrlf&" "
temp1=temp1&vbcrlf&" | "
if mvar<>"" and var_null(mvar)<>"" then temp1=temp1&vbcrlf&"| "&mvar&" | "
temp1=temp1&vbcrlf&" "
news_bar_end=temp1&ukong
end function
3、最后，打开con_news_main.asp，找到
response.write vbcrlf&news_bar_end("",1)
添加链接，将这一句修改为
response.write vbcrlf&news_bar_end("浏览更多…",1)
下载和商城的改法类似，看自己喜欢。
|
| |
|
|
会员区*发表文章
主题： 
：2004/12/14 21:31:52
返回列表