<!-- #include file="config.asp" -->
<!-- #include file="skin.asp" -->
<%
index_url="main"
tit_fir=objv7.format_menu(web_menu,index_url)

dim us,temptit
us="fk2"
'-----------------------排行
sub user_data_top(utt,sh,n_num)
  select case utt
  case "integral"
    temptit="积分排行"
  case "bbs_counter"
    temptit="发贴排行"
  case else
    temptit="财富排行"
  end select
  dim temp1
  temp1=vbcrlf&"<table border=0 width='95%' cellspacing=2 cellpadding=0 align=center><tr height=0><td width='75%'></td><td width='25%'></td></tr>"
  sql="select top "&n_num&" username,"&utt&" from user_data order by "&utt&" desc,id"
  set rs=conn.execute(sql)
  do while not rs.eof
    temp1=temp1&vbcrlf&"<tr><td height="&space_mod&" class=bw>"&img_skins()&format_user_view(rs("username"),1,"")&"</td><td align=center class=red_3>"&rs(utt)&"</td></tr>"
    rs.movenext
  loop
  rs.close
  temp1=temp1&"</table>"
  call left_type(temp1,temptit,sh)
end sub
'-----------------------调查
sub vote_type(t1,t2,t3,t4)
  call left_type(kong&"<script language=javascript src='vote.asp?id="&t1&"&types="&t2&"&mcolor="&t3&"&bgcolor="&t4&"'></script>","网站调查",0)
end sub
'-----------------------论坛
sub main_forum(n_num,c_num,et,timt)
  dim temp1,topic,topic2,n_jt
  n_jt=img_skins()
  temp1="<table border=0 width='100%' cellspacing=0 cellpadding=2>"
  sql="select top "&n_num&" forum_id,id,topic,tim,counter,re_counter from bbs_topic order by id desc"
  set rs=conn.execute(sql)
  do while not rs.eof
    topic=rs("topic")
    topic2=objv7.code_html(topic,1,c_num)
    topic=objv7.code_html(topic,1,0)
    temp1=temp1&vbcrlf&"<tr><td height="&space_mod&">"&n_jt&"<a href='javascript:;' onclick=""javascript:open_view('forum_view.asp?forum_id="&rs("forum_id")&"&view_id="&rs("id")&"',1);"" title='"&topic&"'>"&topic2&"</a>"&objv7.format_end(et,"<font class=gray>"&objv7.time_type(rs("tim"),timt)&"</font>,<font class=blue>"&rs("re_counter")&"</font>|<font class=blue>"&rs("counter")&"</font>")&"</td></tr>"
    rs.movenext
  loop
  rs.close
  temp1=temp1&"</table>"
  response.write kong&main_bar(1,objv7.format_menu(web_menu,"forum"),temp1,1,"100%","<a href='forum.asp'>"&morepic&"</a>")
end sub
'-----------------------更新一
sub main_update_view()
  dim temp1,topic
  temp1="<table border=0 width='100%' cellspacing=0 cellpadding=2>" & _
	vbcrlf&"<tr><td class=htd><script language=javascript src='style/update_news_fir.js'></script></td></tr>" & _
	vbcrlf&"<tr><td class=gray align=center><table border=0 width='100%' cellspacing=0 cellpadding=2><tr><td class=gray>[ <a href='update.asp?action=news'>更多网站更新</a> ]</td><td align=right class=gray>[ <a href='update.asp?action=forum'>更多论坛公告</a> ]</td></tr></table></td></tr></table>"
  response.write kong&main_bar(1,"网站更新",temp1,0,"100%","")
end sub
'-----------------------更新二
sub main_update(n_num,c_num,et,timt)
  dim temp1,topic,n_jt
  n_jt=img_skins()
  temp1="<table border=0 width='100%' cellspacing=0 cellpadding=2>"
  sql="select top "&n_num&" id,topic,tim from bbs_cast where sort='news' order by id desc"
  set rs=conn.execute(sql)
  do while not rs.eof
    topic=rs("topic")
    temp1=temp1&vbcrlf&"<tr><td height="&space_mod&">"&n_jt&"<a href='update.asp?action=news&id="&rs("id")&"' title='"&objv7.code_html(topic,1,0)&"'>"&objv7.code_html(topic,1,c_num)&"</a>"&format_end(et,"<font class=gray>"&objv7.time_type(rs("tim"),timt)&"</font>")&"</td></tr>"
    rs.movenext
  loop
  rs.close
  temp1=temp1&"</table>"
  response.write kong&main_bar(1,"网站更新",temp1,1,"100%","<a href='update.asp'>"&morepic&"</a>")
end sub
'-----------------------搜索
sub web_search(wt)
  dim temp1
	temp1=vbcrlf&"<table border=0  width='95%' cellspacing=0 cellpadding=0 align=center>" & _
		vbcrlf&"<tr><td height=15></td></tr>" & _
		vbcrlf&"<tr><form action='search.asp' method=get><td width='100%' height=25 align=center><a href='search.asp?action=help' class=time>帮 助</a>" & _
        	vbcrlf&"<SELECT size=1 name=sea_type style='border:1px solid #008000; background-color: #FFFFFF; color: #000000; font-family: 宋体; font-size: 9pt; padding-left:4; padding-right:4; padding-top:1; padding-bottom:1'>" & _
        	vbcrlf&"<option value=news>"&objv7.format_menu(web_menu,"news")&"</option><option value=article>"&objv7.format_menu(web_menu,"article")&"</option><option value=forum>"&objv7.format_menu(web_menu,"forum")&"</option><option value=down>"&objv7.format_menu(web_menu,"down")&"</option>" & _
        	vbcrlf&"<option value=paste>精彩贴图</option><option value=flash>精彩Flash</option><option value=website>推荐网站</option></SELECT></td></tr>" & _
        	vbcrlf&"<tr><td width='100%' height=25 align=center>" & _
        	vbcrlf&"<INPUT type=text maxLength=30 size=18 name=keyword value='' class=inputbg></td>" & _
        	vbcrlf&"</tr><tr><td width='100%' height=26 align=center><input type=checkbox name=celerity value='yes'>快速搜索 <input type=submit value='搜 索' name=B1 class=inputbg></td></form></tr></table>"
  call left_type(temp1,"站内搜索",0)
end sub
'-----------------------友情链接
sub links_main(lt,nummer)
  dim temp1,nname,titt
  select case lt
  case "fir"
    titt="合作站点"
  case "sec"
    titt="友情站点"
  case else
    titt="文字链接"
  end select
  temp1=vbcrlf&"<script language=javascript src='style/link_"&lt&".js'></script>"
  response.write kong&main_bar(1,titt,temp1,0,"100%","")
end sub
%><%sub cmb()%>
                    <td style="font-family: Verdana, Arial, Helvetica, sans-serif, 宋体; font-size: 9pt; color: #000000" width="271">
                    </td>
                    <td align="middle" style="font-family: Verdana, Arial, Helvetica, sans-serif, 宋体; font-size: 9pt; color: #000000" width="84">
                    实时到帐<font class="red">推荐</font></td>
                  </tr>
                  <tr>
                    <td align="middle" colSpan="3" style="font-family: Verdana, Arial, Helvetica, sans-serif, 宋体; font-size: 9pt; color: #000000" width="511">
                    <table width="98%" border="0">
                      <tr>
                        <td height="1" style="font-family: Verdana, Arial, Helvetica, sans-serif, 宋体; font-size: 9pt; color: #000000"></td>
                      </tr>
                    </table>
                    </td>
                  </tr>
                  <tr onmouseover="javascript:this.bgColor='asdfasg';" onmouseout="javascript:this.bgColor='#FFFFFF';">
                    <td align="middle" style="font-family: Verdana, Arial, Helvetica, sans-serif, 宋体; font-size: 9pt; color: #000000" width="144">
                    　</td>
                    <td style="font-family: Verdana, Arial, Helvetica, sans-serif, 宋体; font-size: 9pt; color: #000000" width="271">
                    <table border="0" width="252">
                      <tr>
                        <td style="font-family: Verdana, Arial, Helvetica, sans-serif, 宋体; font-size: 9pt; color: #000000" width="80">
                        帐　号：</td>
                        <td class="red_3" width="162"><font color="#FF0000">02900514285</font></td>
                      </tr>
                      <tr>
                        <td style="font-family: Verdana, Arial, Helvetica, sans-serif, 宋体; font-size: 9pt; color: #000000" width="80">
                        牡丹灵通卡号：</td>
                        <td class="red_3" width="162"><font color="#FF0000">
                        2307041101100132249</font></td>
                      </tr>
                      <tr>
                        <td style="font-family: Verdana, Arial, Helvetica, sans-serif, 宋体; font-size: 9pt; color: #000000" width="80">
                        开户行：</td>
                        <td style="font-family: Verdana, Arial, Helvetica, sans-serif, 宋体; font-size: 9pt; color: #000000" width="162">
                        中国工商银行资阳市支行建设北路储蓄所</td>
                      </tr>
                      <tr>
                        <td style="font-family: Verdana, Arial, Helvetica, sans-serif, 宋体; font-size: 9pt; color: #000000" width="80">
                        收款人：</td>
                        <td style="font-family: Verdana, Arial, Helvetica, sans-serif, 宋体; font-size: 9pt; color: #000000" width="162">
                        王维超</td>
                      </tr>
                    </table>
                    </td>
                    <td align="middle" style="font-family: Verdana, Arial, Helvetica, sans-serif, 宋体; font-size: 9pt; color: #000000" width="84">
                    实时到帐</td>
                  </tr>
                  <tr>
                    <td align="middle" colSpan="3" style="font-family: Verdana, Arial, Helvetica, sans-serif, 宋体; font-size: 9pt; color: #000000" width="511">
                    <table width="98%" border="0">
                      <tr>
                        <td height="1" style="font-family: Verdana, Arial, Helvetica, sans-serif, 宋体; font-size: 9pt; color: #000000"></td>
                      </tr>
                    </table>
                    </td>
                  </tr>
                  <tr onmouseover="javascript:this.bgColor='asdfasg';" onmouseout="javascript:this.bgColor='#FFFFFF';">
                    <td align="middle" style="font-family: Verdana, Arial, Helvetica, sans-serif, 宋体; font-size: 9pt; color: #000000" width="144">
                    <img src="buy/bank_js.gif" border="0"></td>
                    <td style="font-family: Verdana, Arial, Helvetica, sans-serif, 宋体; font-size: 9pt; color: #000000" width="271">
                    <table border="0" width="252">
                      <tr>
                        <td style="font-family: Verdana, Arial, Helvetica, sans-serif, 宋体; font-size: 9pt; color: #000000" width="80">
                        龙卡号：</td>
                        <td class="red_3" width="162"><font color="#FF0000">
                        4367423641340418929</font></td>
                      </tr>
                      <tr>
                        <td style="font-family: Verdana, Arial, Helvetica, sans-serif, 宋体; font-size: 9pt; color: #000000" width="80">
                        开户行：</td>
                        <td style="font-family: Verdana, Arial, Helvetica, sans-serif, 宋体; font-size: 9pt; color: #000000" width="162">
                        中国建设银行资阳支行和平路储蓄所</td>
                      </tr>
                      <tr>
                        <td style="font-family: Verdana, Arial, Helvetica, sans-serif, 宋体; font-size: 9pt; color: #000000" width="80">
                        收款人：</td>
                        <td style="font-family: Verdana, Arial, Helvetica, sans-serif, 宋体; font-size: 9pt; color: #000000" width="162">
                        王维超</td>
                      </tr>
                    </table>
                    </td>
                    <td class="red_2" align="middle" width="84">实时到帐</td>
<%end sub%>