新闻、下载模块实现与文章模块一样的风格

1、打开 include/con_news.asp

找到function news_bar_top(tvar,tt,ttype,tmore)这一段，将

temp1=vbcrlf&"<table border=0 cellspacing=0 cellpadding=0 class=tablew>" & _
vbcrlf&"<tr><td height=23 background='"&img_skin(web_img_m)&"" & _
vbcrlf&" <table border=0 cellspacing=0 cellpadding=0 width='100%'>" & _
vbcrlf&" <tr height=23>" & _
vbcrlf&" <td width='"&w_wid&"' background='"&joekoe_cms.web_dir_skin&"bg_td.gif'> "&img_skin(web_img_m&ttype)&"<font class=btd color=white>"&tvar&"</font></td>" & _
vbcrlf&" <td width='*' align=right>"&more_var&" </td>" & _
vbcrlf&" </tr>" & _
vbcrlf&" </table>" & _
vbcrlf&"</td></tr>" & _
vbcrlf&"<tr><td align=center>"
if tt=1 then temp1=temp1&vbcrlf&" <table border=0 width='100%'>"
news_bar_top=temp1
end function

直接用下面的代码替换

temp1=temp1&vbcrlf&"<table cellspacing=0 cellpadding=1 class=table>" & _
              vbcrlf&"<tr><td class=td> "&img_skin(web_img_m&ttype)&" "&tvar&"</td></tr>" & _
              vbcrlf&"<tr class=bg_td><td align=center>"
    if tt=1 then temp1=temp1&vbcrlf&" <table border=0 width='100%'>"
  news_bar_top=temp1
  end function

2、再找到
function news_bar_end(mvar,tt)
dim temp1
if tt=1 then temp1=temp1&vbcrlf&" </table>"
temp1=temp1&vbcrlf&"</td></tr>" & _
vbcrlf&"</table>"
news_bar_end=temp1&ukong
end function

这一段，用下面的代码替换
function news_bar_end(mvar,tt)
dim temp1
if tt=1 then temp1=temp1&vbcrlf&" </table>"
temp1=temp1&vbcrlf&"</td></tr>"
if mvar<>"" and var_null(mvar)<>"" then temp1=temp1&vbcrlf&"<tr class=bg_tds height="&m_hei&"><td align=right>"&mvar&"  </td></tr>"
temp1=temp1&vbcrlf&"</table>"
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("<a href='news_list.asp?action=more&c_id="&ncid&"'>浏览更多…</a>",1)

新闻是nicd 下载是temp1

文章来自: Original
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: