<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/dv_clsother.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=Dvbbs.Forum_info(0)%></title>
<link rel="shortcut icon" href="favicon.ico" />
<!--ʾʼ˴ʽڱ༭״̬ʱȥעͣʽãϴȥظʽӿҳӿٶ
<link rel="stylesheet" href="index/images/red.css" type="text/css" media="all">
ʾ-->


<link rel="stylesheet" id=skin type="text/css">
<script type="text/javascript" src="index/common.js"></script>
<script type="text/javascript" src="index/menu.js"></script>
<script src="index/AC_RunActiveContent.js" type="text/javascript"></script>
<script src="index/AC_ActiveX.js" type="text/javascript"></script>
<SCRIPT language=javascript>
<!--
function SetCookie(name,value){
     var argv=SetCookie.arguments;
     var argc=SetCookie.arguments.length;
     var expires=(2<argc)?argv[2]:null;
     var path=(3<argc)?argv[3]:null;
     var domain=(4<argc)?argv[4]:null;
     var secure=(5<argc)?argv[5]:false;
     document.cookie=name+"="+escape(value)+((expires==null)?"":("; expires="+expires.toGMTString()))+((path==null)?"":("; path="+path))+((domain==null)?"":("; domain="+domain))+((secure==true)?"; secure":"");
}

function GetCookie(Name) {
     var search = Name + "=";
     var returnvalue = "";
     if (document.cookie.length > 0) {
           offset = document.cookie.indexOf(search);
           if (offset != -1) {      
                 offset += search.length;
                 end = document.cookie.indexOf(";", offset);                        
                 if (end == -1)
                       end = document.cookie.length;
                 returnvalue=unescape(document.cookie.substring(offset,end));
           }
     }
     return returnvalue;
}

var thisskin;
thisskin=GetCookie("nowskin");
if(thisskin!="")
     skin.href=thisskin;
else
     skin.href="index/images/red.css";

function changecss(url){
     if(url!=""){
           skin.href=url;
           var expdate=new Date();
           expdate.setTime(expdate.getTime()+(24*60*60*1000*30));
           //expdate=null;
           //COOKIESʱΪ1,Լøʱ..
           SetCookie("nowskin",url,expdate,"/",null,false);
     }
}
//-->
</SCRIPT>
<%
'
sub newtopic(boardid)
dim rs,sql,i,n,ds
	i=0
	n=10  'ø
	sql="select top "&n&" topicid,title,boardid,postusername,lastpost,lastposttime,dateandtime from [dv_topic] where boardid in ("&boardid&") order by dateandtime desc"
set rs=Dvbbs.Execute(sql)
If Not RS.Eof then
	SQL=Rs.GetRows(-1)
else
	response.write "<li class=li_nomor>Ŀǰû</li>"
exit sub
end if
	rs.close:set rs=nothing
For i=0 To Ubound(SQL,2)
	response.write "<li class=li_nomor><a href=dispbbs.asp?boardid="&sql(2,i)&"&id="&sql(0,i)&" title=⣺"&left(dvbbs.htmlencode(sql(1,i)),30)&"&#10;ߣ"&left(sql(3,i),16)&"&#10;ʱ䣺"&left(sql(5,i),16)&" target=_blank>"
	response.write ""&left(dvbbs.htmlencode(sql(1,i)),30)&"</a></li>" 
next
end sub
%>
</head>
<body>
<div id="top_image">
<script type="text/javascript">
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0','width','420','height','100','src','index/images/ice','quality','high','pluginspage','http://www.macromedia.com/go/getflashplayer','movie','index/images/ice','wmode','transparent' ); //end AC code
</script><noscript><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="420" height="100">
  <param name="movie" value="index/images/ice.swf" />
  <param name="quality" value="high" />
  <param name="wmode" value="transparent" />
  <embed src="index/images/ice.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="420" height="100"></embed>
</object></noscript>
</div>
<div id="topbg">
	<div id="logo"></div>	
  <div id="all">
  		<div id="menu">
<%
mymenu()
sub mymenu()
if Dvbbs.UserID>0 Then
response.write "<a href=usermanager.asp target=_blank><b>"&Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@username").text&"</b></a>"
	response.write " | <a href=index.asp>̳</a>"
	response.write " | <a href=usersms.asp target=_blank>վڶ</a>"
	response.write " | <a href=show.asp?boardid=0 target=_blank>̳չ</a>"
	response.write " | <a href=query.asp?boardid=0 target=_blank></a>"	
	response.write " | <a href=boardhelp.asp target=_blank></a>"
	response.write " | <a href=hlogout.asp>˳</a>"
else
	response.write "<a href=index.asp><b>"&Dvbbs.Forum_info(0)&"</b></a>"
	response.write " | <a href=index.asp>οͽ</a>"
	response.write " | <a href=login.asp target=_blank>½</a>"
	response.write " | <a href=reg.asp target=_blank>ע</a>"
	response.write " | <a href=boardhelp.asp target=_blank></a>"
end if
end sub
%>
        | <span id="style"><a href="#"></a>
		<script type="text/javascript">menuregister(false, "style")</script></span>
<script type="text/javascript">
function ChangeStyle(styleid){
        var thisurl = document.URL.replace(/[&?]styleid=.+?&sid=.+?$/i, '');
        window.location=(thisurl+(thisurl.match(/\?/) ? '&' : '?')+'styleid='+styleid+'&sid=11111');
}
</script>
  		</div>
  <div class="headermenu_popup" id="style_menu" style="display: none">
	<table border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td class="popupmenu_option"><A href="('index/images/green.css')"href="1qq.htm#">ǳ</A></td>
  </tr>
  <tr>
    <td class="popupmenu_option"><A onClick="changecss('index/images/blue.css')" href="http://263china.net.cn/#">Ũ</A></td>
  </tr>
  <tr>
    <td class="popupmenu_option"><A onClick="changecss('index/images/yellow.css')" href="http://263china.net.cn/#"></A></td>
  </tr>
  <tr>
    <td class="popupmenu_option"><A onClick="changecss('index/images/red.css')href="javascript:location.reload()>ˢ±ҳ</A></td>
  </tr>
	</table>
  </div>
  <div style="width:100%;margin-top:41px" class="bottom1">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="5">
  <tr>
    <td width="70%" valign="top" class="new_bg">
	<div class="new_left"><div class="new_right">
        <div id="new"><div style="padding:18px 20px 0px 0px;">
			[<a href="query.asp?stype=3&pSearch=0&nSearch=0" target="_blank">鿴</a>]
		    [<a href="query.asp?stype=4&pSearch=0&nSearch=0" target="_blank">Ż</a>]
		    [<a href="infolist.asp?t=toplist&orders=1" target="_blank"></a>]</div>
		  </div>
	    <table width="100%" border="0" cellpadding="0" cellspacing="5">
          <tr>
            <td width="30%" align="center" valign="middle" class="boder_1">
<div class="kong_1">
<%
dim rs,sql,i
dim pic,links,texts,text,BoardID,RootID,ReplyID,F_AnnounceID
dim UploadFile
    sql="select top 6 F_BoardID,F_AnnounceID,F_ViewNum,  F_Filename ,F_Readme,F_id from [dv_upfile] where F_Type=1 and F_FileType='jpg' and F_BoardID not in (5) And F_AnnounceID in(select DISTINCT F_AnnounceID from [dv_upfile] where F_Type=1 and F_FileType='jpg' and F_BoardID not in (5)) order by F_id desc"
	set rs=Dvbbs.Execute(sql)
	If Not RS.Eof then
	SQL=Rs.GetRows(-1)
	'ѭȡ
	For i=0 To Ubound(SQL,2)
	BoardID=SQL(0,i)
	If Instr(SQL(1,i)&"","|") Then
			F_AnnounceID=Split(SQL(1,i),"|")
			RootID = F_AnnounceID(0)
			ReplyID = F_AnnounceID(1)
	Else
			RootID = ""
			ReplyID = ""
	End If
	if links="" then
	links="index/artbbs.asp?boardid="&BoardID&":ID="&RootID&":replyID="&ReplyID
	else 
	links=links&"|index/artbbs.asp?boardid="&BoardID&":ID="&RootID&":replyID="&ReplyID
	end if
	if pic="" then
	pic= SQL(3,i)
	else
	pic=pic&"|UploadFile/"&SQL(3,i)
	end if
	if len(SQL(4,i))>16 then
	text=left(SQL(4,i),16)
	else
	text=SQL(4,i)
	end if
	if texts="" then
	texts=text
	else
	texts=texts&"|"&text
	end if
	next
	else
	response.write "ͼƬ"
    	end if
    	rs.close:set rs=nothing 
		'response.Write pic
		 %>
              <script type="text/javascript">
	<!--
	var focus_width=250 /*Ȳ޸*/
	var focus_height=180/*߶Ȳ޸*/
	var text_height=15/*ı߶Ȳ޸*/
	var swf_height = focus_height+text_height
	var pics='UploadFile/<%= pic %>'
	var links='<%= links %>'
    var texts='<%= texts %>'
	
	document.write('<object ID="focus_flash" classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ focus_width +'" height="'+ swf_height +'">');
	document.write('<param name="allowScriptAccess" value="sameDomain"><param name="movie" value="index/artimg.swf"><param name="quality" value="high"><param name="bgcolor" value="#FFFFFF">');
	document.write('<param name="menu" value="false"><param name=wmode value="opaque">');
	document.write('<param name="FlashVars" value="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'">');
	document.write('<embed ID="focus_flash" src="index/artimg.swf" wmode="opaque" FlashVars="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'" menu="false" bgcolor="#FFFFFF" quality="high" width="'+ focus_width +'" height="'+ swf_height +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />');
	document.write('</object>');
	//-->
	</script></div></td>
            <td width="70%" class="boder_1">
			<div class="bottom1">
			<ul>
<!--ö-->				  
<%
topTopica()
sub topTopica()
dim rs,sql,i,n,myboard,ds,tempstr
	i=0
	n=3  'öø
	sql="select top "&n&" topicid,title,boardid,postusername,lastpost,lastposttime,dateandtime from [dv_topic] where istop=3 order by TopicID desc"
set rs=Dvbbs.Execute(sql)
If Not RS.Eof then
	SQL=Rs.GetRows(-1)
else
	response.write "<li>̳Ŀǰûö</li>"
exit sub
end if
	rs.close:set rs=nothing
For i=0 To Ubound(SQL,2)
	tempstr=Split(sql(4,i),"$")
	response.write "<li class=li_top><a href=dispbbs.asp?boardid="&sql(2,i)&"&id="&sql(0,i)&"> "
	response.write ""&dvbbs.htmlencode(sql(1,i))&"</a></li>"
next
end sub
%></ul>
			</div>
<ul>
<%
mynewtopic()
sub mynewtopic()
dim rs,sql,i,n,ds
	i=0
	n=7  'ø
	sql="select top "&n&" topicid,title,boardid,postusername,lastpost,lastposttime,dateandtime from [dv_topic] where boardid<>444 and boardid<>777 order by dateandtime desc"
set rs=Dvbbs.Execute(sql)
If Not RS.Eof then
	SQL=Rs.GetRows(-1)
else
	response.write "<li>Ŀǰû</li>"
exit sub
end if
	rs.close:set rs=nothing
For i=0 To Ubound(SQL,2)
	response.write "<li class=li_new><span class=riqi>"&left(sql(6,i),10)&"</span><a href=dispbbs.asp?boardid="&sql(2,i)&"&id="&sql(0,i)&" title=⣺"&left(dvbbs.htmlencode(sql(1,i)),30)&"&#10;ߣ"&left(sql(3,i),16)&"&#10;ʱ䣺"&left(sql(5,i),16)&" target=""_blank"">"
	response.write ""&dvbbs.htmlencode(sql(1,i))&"</a></li>"
next
end sub
%>
</ul></td>
          </tr>
        </table>
	    </div></div></td>
    <td width="30%" valign="top" class="new_bg">
	<div class="new_left"><div class="new_right">
		<div id="yonghu"><div style="padding:18px 20px 0px 0px;">[<a href="index.asp" target="_blank">ο</a>]</div></div>
	    <div class="boder_1_new">
<%
usergo()
sub usergo()
If Dvbbs.UserID>0 Then
dim tempstr,userface,iface
	tempstr=split(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usertoday").text,"|")
%>
<div class="kong_1 bottom1">
<div style="width:100%;">
<table width="100%" border="0" cellpadding="0" cellspacing="3">
  <tr>
    <td><span class="hong"><%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@username").text%></span>(<%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userclass").text%>)</td>
    <td align="right">[<a href="index.asp">̳</a>]</td>
  </tr>
  <tr>
    <td>շ(<span class="hong"><%=tempstr(0)%></span>)</td>
    <td align="right">[<a href="usermanager.asp" target="_blank"></a>]</td>
  </tr>
  <tr>
    <td><a href="usersms.asp" target="_blank">վڶ</a>(<span class="hong"><%=Dvbbs.SendMsgNum%></span>)</td>
    <td align="right">[<a href="hlogout.asp">ȫ˳</a>]</td>
  </tr>
</table>
</div>
</div>
		  <div style="width:100%">
		  <table width="100%" border="0" cellpadding="0" cellspacing="5">
            <tr>
              <td width="39%" align="left" class="bg_1"><div class="kong_5 boder_1"><img src="<%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userface").text%>" width="100" height="119" alt=""></div></td>
              <td width="61%" align="left">
			  <ul>
			  <li class="li_nomor"><%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userpost").text%></li>
			  <li class="li_nomor">Ƹ<%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userwealth").text%></li>
			  <li class="li_nomor">ң<%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text%></li>
			  <li class="li_nomor">飺<%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userep").text%></li>
			  <li class="li_nomor"><%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usercp").text%></li>
			  <li class="li_nomor"><%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userpower").text%></li>
			  </ul></td>
            </tr>
          </table>
		  </div>
<%
else
dim username,password
%>
<div class="kong_1 bottom1">
	<table border="0" align="center" cellpadding="0" cellspacing="3">
	<form action="hlogin.asp?action=chk" method="post" name="loginform">
      <tr>
        <td>ǡƣ<input name="username" class="input_1" /></td>
        <td><input type=submit value="ǡ¼" name=submit class=input_2 /></td>
      </tr>
      <tr>
        <td>ܡ룺<input name="password" type="password" class="input_1" /></td>
        <td><input type="button" class="input_2" onClick="window.location.href='lostpass.asp'"  value="" /></td>
      </tr>
	</form>
	</table>
</div>
		  <div style="width:100%">
		  <table width="100%" border="0" cellpadding="0" cellspacing="5">
            <tr>
              <td width="39%" align="left" class="bg_1"><div class="kong_5 boder_1"><img src="index/images/user.gif" width="100" height="119" alt=""></div></td>
              <td width="61%" align="left">
			  <ul>
			  <li class="li_nomor">0</li>
			  <li class="li_nomor">Ƹ0</li>
			  <li class="li_nomor">ң0</li>
			  <li class="li_nomor">飺0</li>
			  <li class="li_nomor">0</li>
			  <li class="li_nomor">0</li>
			  </ul></td>
            </tr>
          </table>
		  </div>
<%
end if
end sub
%>
	    </div>
	    </div>
	</div></td>
  </tr>
  <tr>
    <td valign="top" class="bg_2">
	<div class="hotboder bg_2 kong_2 kong_5" style="float:left;">棺</div>
	<div class="hotboder kong_2 kong_5" id="announcement">
<%
bbsnews()
sub bbsnews()
dim rs,sql,i,n,tlen
	n=6
	tlen=40
	sql="select top "&n&" boardid,title,username,addtime,id from [Dv_bbsnews] order by id desc"
set rs=Dvbbs.Execute(sql)
If Not RS.Eof then
	SQL=Rs.GetRows(-1)
else
	response.write "̳Ŀǰûй"
Exit sub
end if
	rs.close:set rs=nothing
for i=0 to Ubound(sql,2)
	response.write "&nbsp; "
	response.write "<a href=""announcements.asp?action=showone&boardid="& SQL(0,i) &"&id="&SQL(4,i)&""" target=""_blank"" title="":"&SQL(2,i)&"&#10;ʱ:"&SQL(3,i)&""">"
	response.write ""&left(dvbbs.htmlencode(sql(1,i)),tlen)&""
	response.write "</a>"
	response.write "&nbsp;&nbsp;"
next
End sub
%></div><script type="text/javascript">announcement();</script></td>
    <td rowspan="2" class="bg_2"><div class="hotboder kong_5">
      <div class="hot_name1">
        <div class="kong_biaoti">
          <div class="hotbiaoti">֮</div>
        </div>
      </div>
	   <div style="width:100%">
<%
todaystar()
sub todaystar()
dim rs,sql,i,mysex,tempstr,tempname,mydate,tempface,face
	i=0
 
If IsSqlDataBase = 1 Then
	sql="select top 1 username,count(username) from "&Dvbbs.NowUseBBS&" where datediff(d,dateandtime,GetDate())<1 group by username order by count(username) desc"
else
	sql="select top 1 username,count(username) from "&Dvbbs.NowUseBBS&" where DateAndTime>Date() group by username order by count(username) desc"
end if
set rs=Dvbbs.Execute(sql)
If Not RS.Eof then
	tempname=rs(0)
	SQL=Rs.GetRows(-1)
else
%>
      <table width="100%" border="0" cellpadding="0" cellspacing="5">
        <tr>
          <td width="39%" class="bg_2"><div class="kong_5 hotboder"><img src="index/images/star.gif" width="100" height="90" alt=""></div></td>
          <td width="61%">
		  <ul>
		  <li class="li_hot">ǳƣ</li>
		  <li class="li_hot">Ա</li>
		  <li class="li_hot">ȼ</li>
		  <li class="li_hot">շ</li>
		  </ul>
		  </td>
        </tr>
      </table>
<%
exit sub
end if
 
	sql="select top 2 userid,username,userpost,usersex,userface,userwidth,userheight,usertitle,joindate,lastlogin,userclass,usertoday from [dv_user] where username='"&tempname&"' order by userpost desc"
set rs=Dvbbs.Execute(sql)
If Not RS.Eof then
	SQL=Rs.GetRows(-1)
end if
	rs.close:set rs=nothing
	tempface=split(sql(4,i),"|")
If Ubound(tempface)>0 Then
	face=tempface(1)
else
	face=tempface(0)
end if
	mydate=Split(sql(8,i)," ")
if sql(3,i)=1 then
	mysex="Boy"
else
	mysex="Girl"
end if
	tempstr=Split(sql(11,i),"|")
%>
      <table width="100%" border="0" cellpadding="0" cellspacing="5">
        <tr>
          <td width="39%" class="bg_2"><div class="kong_5 hotboder"><a href="dispuser.asp?id=<%=SQL(0,i)%>" target="_blank"><img src="<%=face%>" alt="" width="100" height="90" border="0"></a></div></td>
          <td width="61%">
		  <ul>
		  <li class="li_hot"><span class="hong"><%=sql(1,i)%></span></li>
		  <li class="li_hot">Ա<%=mysex%></li>
		  <li class="li_hot">ȼ<%=sql(10,i)%></li>
		  <li class="li_hot">շ<span class="hong"><%=tempstr(0)%></span></li>
		  </ul>
		  </td>
        </tr>
      </table>
<%
end sub
%>
	   </div>
    </div></td>
  </tr>
  <tr>
    <td align="center" class="bg_2">



<script src="TopBokePic1.asp?num=1&row=7"></script>




</div>
</td>
    </tr>
  <tr>
    <td valign="top" class="bg_2"><table width="100%" border="0" cellpadding="0" cellspacing="5">
      <tr>
        <td width="50%" valign="top" class="hotboder"><div class="hot_name1">
		<div class="kong_biaoti">
          <div class="hotbiaoti"> TOP 10</div>
        </div></div>
          <ul>
<%
HotTopic()
sub HotTopic()
dim rs,sql,i,n,myboard,ds,tempstr
	i=0
	n=10  'ø
	sql="select top "&n&" topicid,title,boardid,postusername,lastpost,lastposttime,dateandtime from [dv_topic] where DateDiff('d',dateandtime,Now)<30 order by Hits desc"
set rs=Dvbbs.Execute(sql)
If Not RS.Eof then
	SQL=Rs.GetRows(-1)
else
	response.write "<li class=li_hot>̳Ŀǰû</li>"
exit sub
end if
	rs.close:set rs=nothing
For i=0 To Ubound(SQL,2)
	response.write "<li class=li_hot><a href=forum.asp?dispbbs.asp?boardid="&sql(2,i)&"&id="&sql(0,i)&" title=⣺"&left(dvbbs.htmlencode(sql(1,i)),30)&"&#10;ߣ"&left(sql(3,i),16)&"&#10;ʱ䣺"&left(sql(5,i),16)&" target=""_blank"">"
	response.write ""&left(dvbbs.htmlencode(sql(1,i)),30)&"</a></li>"
next
end sub
%>
          </ul></td>
        <td width="50%" valign="top" class="hotboder"><div class="hot_name1">
		<div class="kong_biaoti">
          <div class="hotbiaoti"> TOP 10</div>
        </div></div>
          <ul>
<%
mybesttopic()
sub mybesttopic()
dim rs,sql,i,n,myboard,ds,tempstr
	i=0
	n=10  'ø
	sql="select top "&n&" a.topicid,a.title,a.boardid,a.postusername,a.lastpost,a.lastposttime,a.dateandtime,b.boardtype from dv_topic a,dv_board b where a.boardid<>444 and b.boardid=a.boardid and a.isbest=1 order by dateandtime desc"
set rs=Dvbbs.Execute(sql)
If Not RS.Eof then
	SQL=Rs.GetRows(-1)
else
	response.write "<li class=li_hot>ʱûо</li>"
exit sub
end if
	rs.close:set rs=nothing
For i=0 To Ubound(SQL,2)
	tempstr=Split(sql(4,i),"$")
	myboard=sql(7,i)
	response.write "<li class=li_hot><a href=dispbbs.asp?boardid="&sql(2,i)&"&id="&sql(0,i)&" title=⣺"&left(dvbbs.htmlencode(sql(1,i)),30)&"&#13;&#10;ߣ"&left(sql(3,i),16)&"&#13;&#10;ʱ䣺"&left(sql(5,i),16)&" target=""_blank"">"
	response.write ""&left(dvbbs.htmlencode(sql(1,i)),30)&"</a></li>" 
next
end sub
%>
		  </ul></td>
      </tr>
    </table>      </td>
    <td valign="top" class="bg_1"><div class="boder_1_new">
      <div class="name1">
        <div class="kong_biaoti">
          <div class="biaoti"> TOP 10</div>
        </div>
      </div>
      <div class="top10">
	  <ul>
<%
topuser()
sub topuser()
dim rs,sql,i,n
	n=10 
	sql="select top "&n&" userid,username,UserPost from [Dv_user] order by UserPost desc,userid desc"
set rs=Dvbbs.Execute(sql)
If Not RS.Eof then
	SQL=Rs.GetRows(-1)
end if
	rs.close:set rs=nothing
	For i=0 To Ubound(SQL,2)
%>
	  <li class="li_top10"><span class="riqi"> <%=Dvbbs.htmlencode(SQL(2,i))%> ƪ</span><a href="dispuser.asp?id=<%=SQL(0,i)%>" target="_blank"><%=Dvbbs.htmlencode(SQL(1,i))%></a></li>
<%
next
end sub
%>
	  </ul>
      </div>
    </div></td>
  </tr>
  <tr>
    <td valign="top" class="bg_1"><table width="100%" border="0" cellpadding="0" cellspacing="5">
      <tr>
        <td width="50%" valign="top" class="boder_1">
          <div class="name1"><div class="kong_biaoti">
            <div class="biaoti">
 Ů
            </div>
          </div>
          <ul><%call newtopic("2,3")%></ul>
		</td>
        <td width="50%" valign="top" class="boder_1"><div class="name1">
          <div class="kong_biaoti">
            <div class="biaoti">
			<a href="index.asp?boardid=2">Ե</a>
		  	<a href="index.asp?boardid=4">Ĺ</a>
		  	<a href="index.asp?boardid=15">ѧ</a>
			<a href="index.asp?boardid=32">Show</a></div>
          </div>
        </div>
		<ul><%call newtopic("2,4,15,32")%></ul>
		</td>
      </tr>
    </table>      </td>
    <td valign="top" class="bg_1"><div class="boder_1_new">
      <div class="name1">
        <div class="kong_biaoti">
          <div class="biaoti">Ű TOP 10</div>
        </div>
      </div>
      <div class="top10">
	  <ul>
<%
myboard()
sub myboard()
dim rs,sql,i,n
	n=10  'еø
	i=0
	sql="select top "&n&"  boardid,boardtype,depth,postnum from [dv_board] where depth<>0 order by postnum desc"
set rs=Dvbbs.Execute(sql)
If Not RS.Eof then
	SQL=Rs.GetRows(-1)
else
	response.write "<li class=inboxli03>̳ް</li>"
exit sub 
   
end if
	rs.close:set rs=nothing
For i=0 To Ubound(SQL,2)
%>
	  <li class="li_top10"><span class="riqi"> <%=sql(3,i)%> ƪ</span><a href="index.asp?boardid=<%=sql(0,i)%>" target="_blank" title=""><%=sql(1,i)%></a></li>
<%
next
end sub
%>
	  </ul>
      </div>
    </div></td>
  </tr>
  <tr>
    <td valign="top" class="bg_1"><table width="100%" border="0" cellpadding="0" cellspacing="5">
      <tr>
        <td width="50%" valign="top" class="boder_1"><div class="name1">
          <div class="kong_biaoti">
              <div class="biaoti">
			  <a href="index.asp?boardid=6">Ƶ</a>
		  	<a href="index.asp?boardid=30">Ѷ</a>
		  	<a href="index.asp?boardid=7">CG</a>
			<a href="index.asp?boardid=18">վ</a></div>
          </div>
        </div>
            <ul><%call newtopic("6,30,7,18")%></ul>
		</td>
        <td width="50%" valign="top" class="boder_1"><div class="name1">
            <div class="kong_biaoti">
              <div class="biaoti">
			  <a href="index.asp?boardid=21">Ӱ</a>
		  	<a href="index.asp?boardid=31"></a>
		  	<a href="index.asp?boardid=25">2008</a>
			<a href="index.asp?boardid=22">˳</a></div>
            </div>
        </div>
		<ul><%call newtopic("21,31,25,22")%></ul>
		</td>
      </tr>
    </table></td>
    <td valign="top" class="bg_1"><div class="boder_1_new">
      <div class="name1">
        <div class="kong_biaoti">
          <div class="biaoti">ͳ</div>
        </div>
      </div>
      <ul>
<%
users()
function sexg(sexgb)
     Dim sqlgb
     Dim Rs
     if sexgb=1 then
     sqlgb="where Usersex=1"
     else
     sqlgb="where Usersex<>1"
     end if
     ConnectionDatabase
     set rs=conn.execute("Select count(*) from [Dv_user]"&sqlgb) 
     sexg=rs(0) 
     set rs=nothing 
end function
sub users()
dim tnum,ynum,boynum,girlnum,rs,sql,i
	tnum=0
	ynum=0
	BoyNum=sexg(1)
	girlnum=sexg(0)
	sql="select JoinDate from [Dv_user] orders"
Set Rs=DVbbs.Execute(sql)
If Not RS.Eof then
	SQL=Rs.GetRows(-1)
end if
	rs.close:set rs=nothing
For i=0 To Ubound(SQL,2)
if FormatDateTime(SQL(0,i),vbShortDate)=FormatDateTime(date,vbShortDate) then
	tnum=tnum+1
end if
if FormatDateTime(SQL(0,i),vbShortDate)=FormatDateTime(DateAdd("d", -1, date()),vbShortDate) then
	ynum=ynum+1
end if
next
%>
		<li class="li_hot">Ա <a title="ŮʿԱ <%=girlnum%> λ&#10;ʿԱ <%=BoyNum%> λ"><%=girlnum+BoyNum%></a> λ</li>
		<li class="li_nomor">ע <%=tnum%> λ</li>
		<li class="li_nomor"> <%=ynum%> λ</li>
		<li class="li_nomor">½ <%=Dvbbs.CacheData(14,0)%></li>
		<li class="li_hot">շ <%=Dvbbs.CacheData(9,0)%> ƪ</li>
		<li class="li_nomor">շ <%=Dvbbs.CacheData(11,0)%> ƪ</li>
		<li class="li_nomor"> <%=Dvbbs.CacheData(7,0)%> ƪ</li>
		<li class="li_nomor">̳ <%=Dvbbs.CacheData(8,0)%> ƪ</li>
		<li class="li_nomor"> <a title="ʱ䣺<%=Dvbbs.CacheData(6,0)%>"><%=Dvbbs.Maxonline%></a> </li>
		<li class="li_nomor">շ <a title="ʱ䣺<%=Dvbbs.CacheData(13,0)%>"><%=Dvbbs.CacheData(12,0)%></a> ƪ</li>
<%
end sub
%>
	  </ul>
    </div></td>
  </tr>
</table>


</div>
  </div>

  </div>
</div>

       <TABLE cellSpacing=0 cellPadding=0 width=790 align=center border=0>
        <TBODY>
        <TR>
<TABLE cellSpacing=0 cellPadding=0 width=100% align=center border=0>
  <TBODY>
  <TR>
    <TD>
</TD></TR>
  <TR>

 <TABLE cellSpacing=0 cellPadding=0 width=100% align=center border=0>
  <TBODY>
  <TR>
    <TD>
</TD></TR>
  <TR>
    <TD background=img/back3.gif>
      <TABLE height=0 cellSpacing=0 cellPadding=2 width="100%" align=center 
      border=0>
        <TBODY>
        <TR> <br>
<div style="text-align:center; padding-bottom:4px;">ϵ绰0553-5874131 5874151 5737795 QQ:517833888 䣺<a href="mailto:liuyi@mail263china.net" target="_blank">liuyi@mail263china.net</a>
	</div>
	
		<div align="center">վ֣վݣߺеݵĺϷԼһͷ <br />
          Copyright&copy; <b>ߺ йƼ޹˾</b> All Rights Reserved Ȩ Ʊؾ  <a href="http://www.miibeian.gov.cn/" target="_blank"><font color="#C00000">ICP06009187</font></a>
<br></td></div>
<SCRIPT language=javascript>
function showset(obj)//,wid,hei)
{
	window.parent.document.all.showcontent.style.visibility = "visible";
	//document.all.showcontent.style.width = wid;
	//document.all.showcontent.style.height = hei;
	window.parent.document.all.myif.src = obj;
}
function h(obj,url){obj.style.behavior='url(#default#homepage)';obj.setHomePage(url);}
</SCRIPT>
</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>