论坛首页增加几项帖子调用

1.修改forum.asp

找到call forum_user_stat(5)
在下面插入
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class=table>
<tr height="10" ><td colspan=3> </td></tr>
<tr valign="top"><td width=33%><%call main_center_forum("","id",6,18,"forum_id>0","论坛新贴")%></td><td width=34%><%call main_center_forum("isgood=1","id",6,18,"forum_id>0","论坛精华")%></td><td width=33%><%call main_center_forum("istop=2 or istop=1","id",6,18,"forum_id>0","论坛公告")%></td></tr>
<tr height="10"><td colspan=3> </td></tr>
</table>
<%

然后在最后一个%>前插入
sub main_center_forum(cl_type,cl_desc,cl_tnum,cl_cnum,cl_classid,cl_title)
dim tmp1,tmp_title,tmp_tit,tmp_count,tmp_img,tmp_record,tmp_table,tmp_where,tmp_url
tmp_title=cl_title
tmp_tit="论坛标题"
tmp_count="论坛回复"
tmp_img="forum"
tmp_table="bbs_topic"
tmp_record="id,topic,username,tim,re_counter,forum_id"
tmp_where=cl_classid
if cl_type="" then
sql="select top "&cl_tnum&" "&tmp_record&" from "&tmp_table&" where "&tmp_where&" order by "&cl_desc&" desc"
else
sql="select top "&cl_tnum&" "&tmp_record&" from "&tmp_table&" where "&tmp_where&" and "&cl_type&" order by "&cl_desc&" desc"
end if
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
tmp_url="forum_view.asp?forum_id="&rs(5)&"&view_id="&rs(0)
'tmp1=tmp1&format_topic_type(img_skin("h_"&tmp_img),rs(2),rs(1),cl_cnum,tmp_url,rs(3),rs(4),false,tmp_tit,tmp_count,0)
tmp1=tmp1&vbcrlf&"<tr><td height="&dim_num(6)&">"&img_skin("h_"&tmp_img)&"<a href='"&tmp_url&"' alt='"&tmp_tit&"："&joekoe_cms.code_html(rs(1),1,0)&"<br>发 布 人："&rs(2)&"<br>"&tmp_count&"："&rs(4)&" 人次<br>整理时间："&rs(3)&"' target=_blank>"&joekoe_cms.code_html(rs(1),1,cl_cnum)&"</a></td></tr>"
'<tr><td height={$t_height}>{$t_jt}<a href='{$t_url}' {$target_blank} alt='{$t_tit}：{$t_topics}{$web_var_br}发 布 人：{$t_username}{$web_var_br}{$t_count}：{$t_counter} 人次{$web_var_br}整理时间：{$t_tim}'>{$t_topic}</a>{$t_img}{$t_tim_type}</td></tr>
rs.movenext
loop
rs.close
tmp1="<table border=0 cellspacing=0 cellpadding=0 width='100%'>"&tmp1&vbcrlf&"</table>"
response.write vbcrlf&"<table border=0 width=100% cellspacing=1 cellpadding=4 >" & _
vbcrlf&"<tr align=center ><td class=td0>"&tmp_title&"</td></tr>" & _
vbcrlf&"<tr class=bg_td><td>"&tmp1&"</td></tr>" & _
vbcrlf&"</table>"
end sub

2.修改include/con_forum_main.asp
查找&ukong，并删除第一个&ukong。

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