<!-- #include file="include/con_forum.asp" -->
<!-- #include file="include/con_forum_main.asp" -->
<!-- #include file="include/sd.asp" -->
<%
'****************************************************
' 阳光情缘 2006V3.0      Power by sdsun.com.cn
' Email: 27072320@qq.com  , sdsun163@163.com
' Web: http://www.sdsun.com.cn
' Copyright (C) 2006 sdsun.com.cn All Rights Reserved.
'****************************************************
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&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

'****************************************************
' 阳光情缘 2006V3.0      Power by sdsun.com.cn
' Email: 27072320@qq.com  , sdsun163@163.com
' Web: http://www.sdsun.com.cn
' Copyright (C) 2006 sdsun.com.cn All Rights Reserved.
'****************************************************
%>