|
|
 主题： |
 ：2005/2/28 15:50:06 |
|
【用户】
吴卫东 |
|
文章改成2列的修改方法
修改con_article.asp
以下为代码内容：
sub article_main_list(n_num,c_num)
dim ncid,ncname,crs,csql,sqla,n_username,n_topic,n_tim,tmp,a_end,l:l=1
response.write "| "
csql="select c_id,c_name from jk_class where nsort='"&n_sort&"' order by c_order"
set crs=joekoe_cms.exec(csql,1)
do while not crs.eof
ncid=crs("c_id")
ncname=crs("c_name")
sqla=" and c_id="&ncid
sql="select top "&n_num&" id,topic,tim,username,counter,emoney,power,tcolor from article where hidden=1 and c_id="&ncid&" order by id desc"
set rs=conn.execute(sql)
do while not rs.eof
n_username=rs("username")
n_topic=rs("topic")
n_tim=rs("tim")
n_tim=joekoe_cms.time_type(n_tim,1)
tmp=tmp&article_topic_type(c_num,rs("id"),n_username,n_topic,n_tim,rs("counter"),false,2,rs("emoney"),rs("power"),rs("tcolor"))
rs.movenext
loop
rs.close
a_end=Cms_Skin_Mod.GetDB("more")
a_end=Replace(a_end,"{$url}","article_list.asp?action=more&c_id="&ncid)
call article_bar_top(ncname,""&a_end)
tmp=""
response.write " | | "
if (l mod 2)=0 then response.write " |
| "
l=l+1
crs.movenext
loop
response.write " |
"
crs.close
set crs=nothing
end sub
在con_article.asp最后的 "%>"加上上面的代码
|
| |
|
|
|
|
|
|
会员区*发表文章
返回列表