📄 forum.asp
字号:
<!-- #include file="include/con_forum.asp" -->
<!-- #include file="include/con_forum_main.asp" -->
<!-- #include file="include/sd.asp" -->
<%
is_refur_true=false
iframe=true
tit=tit_fir
tit_fir=""
tit="丁香论坛"
call web_head(0,0,h_var3,0,0)
call forum_load()
'------------------------中间 开始-------------------------------
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",8,18,"forum_id>0","☆ 论坛新贴 ☆")%></td><td width=34%><%call main_center_forum("isgood=1","id",8,18,"forum_id>0","☆论坛精华贴☆")%></td><td width=33%><%call main_center_forum("istop=2 or istop=1","id",8,18,"forum_id>0","☆最新通告☆")%></td></tr>
<tr height="10"><td colspan=3 > </td></tr>
</table>
<%
call forum_main()
if trim(request.querystring("birthday"))="view" then
call user_birthday()
else
if format_mid_num(42)=1 then call user_birthday()
end if
call forum_today_star()
call forum_links()
call forum_down()
'----------------------------中间 结束----------------------------
call forum_end()
call web_end(0,0)
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&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>"
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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -