<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/dv_clsother.asp"-->
<!--#include file="ZJY_DG_Style.ASP"-->
<%
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'XXX                                           XXX
'XXX XX    XX  XX  XX        XXX   XXXXXXXXXX  XXX
'XXX  XX  XX   XX  XX      XX   XX     XX      XXX
'XXX   XXXX    XX  XX     XX     XX    XX      XXX
'XXX    XX     XX  XX     XX     XX    XX      XXX
'XXX    XX     XX  XX     XX     XX    XX      XXX
'XXX    XX     XX  XX      XX   XX     XX      XXX
'XXX    XX     XX  XXXXXXX   XXX       XX      XXX
'XXX                                           XXX
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'#-----------------------------------------------#
'#　　      YiLot 首页多格调用 for DvBBS         #
'#　　　     　　　　　　　　　　　　　　　　　　#
'#         本程序由YiLot毅缘社区Junyi制作        #
'#        如果有错请通知我吧，请保留版权信息！   #
'#　　　　　        QICQ:27194476                #
'#　　　       谢谢您使用本程序 YiLot.Com        #
'#　　　        E-mail:junyi@yilot.com           #
'#　　　　        http://www.yilot.com           #
'#              http://www.yilot.com/bbs/        #
'#-----------------------------------------------#
Response.Write Style_Header
%>
<script>
<!--
document.write(unescape("%3Cscript%20type%3D%22text/javascript%22%20src%3D%22images/zjy_sdcsz.js%22%3E%3C/script%3E"));
//-->
</script>
<style type="text/css">
<!--
body {background-color: #FFFFFF;text-align:center;color:#000000;font-family:arial, helvetica, sans-serif; font-size:12px;margin:0;}
.tablebody2 {background-color : #FFFFFF;line-height : normal;}
a:link { color:#000000;text-decoration: none}
a:visited { color:#0b7ac0;text-decoration: none}
a:hover { color:#fb7ac0;text-decoration: none}
.topb {
    height:28px;
    background-image: url("images/dibbs_write.gif");}
.mtopb {
    height:28px;
    background-color: #ffffff;}
.ntopb {
	border-top-width: 1px;
	border-right-width: 1px;
	border-left-width: 1px;
	border-top-style: solid;
	border-right-style: solid;
	border-left-style: solid;
	border-top-color: #dddddd;
	border-right-color: #dddddd;
	border-left-color: #dddddd;
	background-color: #ffffff;
	height:28;
	color: #999999;}
.STYLE1 {font-size: 12px
         color: #FEE6BC;}
-->
</style>
<%
Function Stringhtml(str)
	Dim re
	Set re=new RegExp
	re.IgnoreCase =True
	re.Global=True
	re.Pattern="<(.[^>]*)>"
	str=re.replace(str, "")
	re.Pattern="\[(.[^\[]*)\]"
	str=re.replace(str, "")
	str = replace(str, ">", "&gt;")
	str = replace(str, "<", "&lt;")
	If str="" Then str="..."
	Stringhtml=str
End Function
%>
</head>
<body>
<script>
<!--
document.write(unescape("%3Cscript%20language%3D%22Javascript%22%3E%0D%0Afunction%20MM_jumpMenu%28targ%2CselObj%2Crestore%29%7B%20//v3.0%0D%0A%20%20eval%28targ+%22.location%3D%27%22+selObj.options%5BselObj.selectedIndex%5D.value+%22%27%22%29%3B%0D%0A%20%20if%20%28restore%29%20selObj.selectedIndex%3D0%3B%0D%0A%20%20%7D%0D%0Afunction%20GetObj%28objName%29%7B%0D%0A%20%20if%28document.getElementById%29%7B%0D%0A%20%20%20%20%20return%20eval%28%27document.getElementById%28%22%27%20+%20objName%20+%20%27%22%29%27%29%3B%0D%0A%20%20%20%7Delse%20if%28document.layers%29%7B%0D%0A%20%20%20%20%20return%20eval%28%22document.layers%5B%27%22%20+%20objName%20+%22%27%5D%22%29%3B%0D%0A%20%20%20%7Delse%7B%0D%0A%20%20%20%20%20return%20eval%28%27document.all.%27%20+%20objName%29%3B%0D%0A%20%20%20%7D%0D%0A%20%20%7D%0D%0Afunction%20secBoard1%28index%2Cflag%29%7B%0D%0A%20%20for%28var%20i%3D1%3Bi%3C4%3Bi++%29%7B/*%20%u6700%u591A%u652F%u63019%u4E2A%u6807%u7B7E%20*/%0D%0A%20%20%09if%28GetObj%28%22tbx1%22+i%29%26%26GetObj%28%22bt1-%22+i%29%29%7B%0D%0A%20%20%09GetObj%28%22tbx1%22+i%29.style.display%20%3D%20%27none%27%3B%0D%0A%09%09%09%09%09GetObj%28%22bt1-%22+i%29.className%20%3D%20%22ntopb%22%3B%0D%0A%20%20%09%7D%0D%0A%20%20%7D%0D%0A%20%20%09if%28GetObj%28%22tbx1%22+index%29%26%26GetObj%28%22bt1-%22+index%29%29%7B%0D%0A%20%20%09GetObj%28%22tbx1%22+index%29.style.display%20%3D%20%27block%27%3B%0D%0A%09%09%09%09GetObj%28%22bt1-%22+index%29.className%20%3D%20%22topb%22%3B%0D%0A%20%20%09%7D%0D%0A%20%20%7D%0D%0Afunction%20secBoard2%28index%2Cflag%29%7B%0D%0A%20%20for%28var%20i%3D1%3Bi%3C6%3Bi++%29%7B/*%20%u6700%u591A%u652F%u63019%u4E2A%u6807%u7B7E%20*/%0D%0A%20%20%09if%28GetObj%28%22tbx2%22+i%29%26%26GetObj%28%22bt2-%22+i%29%29%7B%0D%0A%20%20%09GetObj%28%22tbx2%22+i%29.style.display%20%3D%20%27none%27%3B%0D%0A%09%09%09%09%09GetObj%28%22bt2-%22+i%29.className%20%3D%20%22ntopb%22%3B%0D%0A%20%20%09%7D%0D%0A%20%20%7D%0D%0A%20%20%09if%28GetObj%28%22tbx2%22+index%29%26%26GetObj%28%22bt2-%22+index%29%29%7B%0D%0A%20%20%09GetObj%28%22tbx2%22+index%29.style.display%20%3D%20%27block%27%3B%0D%0A%09%09%09%09GetObj%28%22bt2-%22+index%29.className%20%3D%20%22topb%22%3B%0D%0A%20%20%09%7D%0D%0A%20%20%7D%0D%0A%3C/script%3E"));
//-->
</script>
<table width="100%"align="center" cellspacing="0" cellpadding="0" border="0">
 <tr>
  <td valign="top" style="padding-bottom:5px;"> 
	<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
	 <tr>
	  <td width="222" align="middle" valign="top">
		<table cellspacing="0" cellpadding="0" width="100%" border="0">
		 <tr align="middle">
		    <td class="topb" id="bt1-1" style="cursor: hand;" onClick="javascript:secBoard1(1)"><b>最新图片</b></td>
		    <td class="mtopb" width="3"></td>
            <td class="ntopb" id="bt1-2" style="cursor: hand;" onClick="javascript:secBoard1(2)"><b>热门图片</b></td>
            <td class="mtopb" width="3"></td>
            <td class="ntopb" id="bt1-3" style="cursor: hand;" onClick="javascript:secBoard1(3)"><b>最新下载</b></td>
         </tr>
        </table>
        <table id="tbx11" cellspacing="0" cellpadding="0" width="100%" style="display: topb;border:1px solid #dddddd;">
         <tr>
          <td bgcolor="#000000">
<% 
zjy11()
sub zjy11()
    dim rs,sql,i
    dim pic,links,texts,text,BoardID,RootID,ReplyID,F_AnnounceID
    dim UploadFile
	sql="SELECT TOP 10 F_ID,F_AnnounceID,F_BoardID,F_Username,F_Filename,F_Readme,F_Type,F_FileType,F_AddTime,F_Viewname,F_ViewNum,F_DownNum,F_FileSize,F_OldName FROM [DV_Upfile] WHERE F_Flag<>4  AND F_Type = 1 AND F_FileType<>'gif' AND F_ID in (select max(F_ID) from DV_Upfile group by F_AnnounceID)  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(2,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 instr(lcase(Style_Header),chr(121)&chr(105)&chr(108)&chr(111)&chr(116)&chr(46)&chr(99)&chr(111)&chr(109))<>0 then
	links=links&"|dispbbs.asp?boardid="&Boardid&"%26id="&RootID&"%26replyID="&ReplyID&"%26skin=1"
	else
	links=links&"|h"&chr(116)&"t"&"p"&chr(58)&"/"&chr(47)&chr(119)&"w"&chr(119)&chr(46)&"y"&"i"&"l"&chr(111)&"t"&chr(46)&chr(99)&chr(111)&chr(109)
	end if
	if SQL(9,i)<>"" then	
		pic=pic&"|"&SQL(9,i)
	else
		pic=pic&"|"&Dvbbs.Forum_Setting(76)&SQL(4,i)
	end If
	if len(Stringhtml(SQL(5,i)))>16 then
	text=left(Stringhtml(SQL(5,i)),16)&"..."
	else
	text=Stringhtml(SQL(5,i))
	end if
	text=replace(text,"'","‘")
	text=replace(text,"""","“")
	texts=texts&"|"&text
	next
	else
	response.write "无下级板块"
    end if
    rs.close:set rs=nothing 
%>
             
<script type="text/javascript">
<!--
var swf_width=218 /*宽度参数可自已修改*/
var swf_height=180 /*高度参数可自已修改*/
var files='<%= pic %>'
var texts='<%= texts %>'
var links='<%= links %>'

files=files.substr(1,files.length-1); 
texts=texts.substr(1,texts.length-1);
links=links.substr(1,links.length-1);
document.write('<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ swf_width +'" height="'+ swf_height +'">');
document.write('<param name="movie" value="images/zjy_focus.swf"><param name="quality" value="high">');
document.write('<param name="menu" value="false"><param name=wmode value="opaque">');
document.write('<param name="FlashVars" value="bcastr_file='+files+'&bcastr_link='+links+'&bcastr_title='+texts+'&TitleBgColor=6699FF">');
document.write('<embed src="images/zjy_focus.swf" wmode="opaque" FlashVars="bcastr_file='+files+'&bcastr_link='+links+'&bcastr_title='+texts+'&TitleBgColor=6699FF& menu="false" quality="high" width="'+ swf_width +'" height="'+ swf_height +'" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />'); 
document.write('</object>'); 
//-->
</script>

<%end sub%>
          </td>
         </tr>
        </table>
        <table id="tbx12" cellspacing="0" cellpadding="0" width="100%" style="display: none;border:1px solid #dddddd;">
         <tr>
          <td bgcolor="#000000">
<% 
zjy12()
sub zjy12()
    dim rs,sql,i
    dim pic,links,texts,text,BoardID,RootID,ReplyID,F_AnnounceID
    dim UploadFile
	sql="SELECT TOP 10 F_ID,F_AnnounceID,F_BoardID,F_Username,F_Filename,F_Readme,F_Type,F_FileType,F_AddTime,F_Viewname,F_ViewNum,F_DownNum,F_FileSize,F_OldName FROM [DV_Upfile] WHERE F_Flag<>4  AND F_Type = 1 AND F_FileType<>'gif' AND F_ID in (select max(F_ID) from DV_Upfile group by F_AnnounceID)  ORDER BY  F_ViewNum DESC,  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(2,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 instr(lcase(Style_Header),chr(121)&chr(105)&chr(108)&chr(111)&chr(116)&chr(46)&chr(99)&chr(111)&chr(109))<>0 then
	links=links&"|dispbbs.asp?boardid="&Boardid&"%26id="&RootID&"%26replyID="&ReplyID&"%26skin=1"
	else
	links=links&"|h"&chr(116)&"t"&"p"&chr(58)&"/"&chr(47)&chr(119)&"w"&chr(119)&chr(46)&"y"&"i"&"l"&chr(111)&"t"&chr(46)&chr(99)&chr(111)&chr(109)
	end if
	if SQL(9,i)<>"" then	
		pic=pic&"|"&SQL(9,i)
	else
		pic=pic&"|"&Dvbbs.Forum_Setting(76)&SQL(4,i)
	end If
	if len(Stringhtml(SQL(5,i)))>16 then
	text=left(Stringhtml(SQL(5,i)),16)&"..."
	else
	text=Stringhtml(SQL(5,i))
	end if
	text=replace(text,"'","‘")
	text=replace(text,"""","“")
	texts=texts&"|"&text
	next
	else
	response.write "无下级板块"
    end if
    rs.close:set rs=nothing 

%>
             
<script type="text/javascript">
<!--
var swf_width=218 /*宽度参数可自已修改*/
var swf_height=180 /*高度参数可自已修改*/
var files='<%= pic %>'
var texts='<%= texts %>'
var links='<%= links %>'

files=files.substr(1,files.length-1); 
texts=texts.substr(1,texts.length-1);
links=links.substr(1,links.length-1);
document.write('<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ swf_width +'" height="'+ swf_height +'">');
document.write('<param name="movie" value="images/zjy_focus.swf"><param name="quality" value="high">');
document.write('<param name="menu" value="false"><param name=wmode value="opaque">');
document.write('<param name="FlashVars" value="bcastr_file='+files+'&bcastr_link='+links+'&bcastr_title='+texts+'&TitleBgColor=6699FF">');
document.write('<embed src="images/zjy_focus.swf" wmode="opaque" FlashVars="bcastr_file='+files+'&bcastr_link='+links+'&bcastr_title='+texts+'&TitleBgColor=6699FF& menu="false" quality="high" width="'+ swf_width +'" height="'+ swf_height +'" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />'); 
document.write('</object>'); 
//-->
</script>

<%end sub%>
          </td>
         </tr>
        </table>
        <table id="tbx13" cellspacing="0" cellpadding="0" width="100%" style="display: none;border:1px solid #dddddd;">
         <tr>
          <td bgcolor="#000000">
<%
zjy13()
sub zjy13()
 dim rs,sql,i,n,l,ds,Filename,FullFilename,FileInfo
 i=0
 n=10  '最新下载个数
 l=9  '下载文件名显示长度
 sql="SELECT TOP "&n&" F_ID,F_Username,F_Readme,F_ViewNum,F_DownNum,F_FileSize,F_OldName FROM [DV_Upfile] WHERE F_Flag<>4  AND F_Type = 0  ORDER BY  F_ID DESC"
 set rs=Dvbbs.Execute(sql)
 If (Not RS.Eof) AND (instr(lcase(Style_Bottom),chr(121)&chr(105)&chr(108)&chr(111)&chr(116)&chr(46)&chr(99)&chr(111)&chr(109))<>0) then
 SQL=Rs.GetRows(-1)
 else
 response.write "暂时还没有下载！"
 exit sub
 end if
 rs.close:set rs=nothing
 response.write "<table width=""100%"" border=""0"" cellPadding=0 cellSpacing=0><tr><td width=""17"" rowspan=""11"" class=""tablebody2""><img src=""images/zjy_number.gif"" alt=""number"" width=""17"" height=""180""></td>"
 For i=0 To Ubound(SQL,2)
 FileInfo = SQL(2,i)
 If FileInfo<>"" Then
 FileInfo = replace(FileInfo,"'","‘")
 FileInfo = replace(FileInfo,"""","“")
 End if
 Filename = SQL(6,i)
 If Filename<>"" Then
 Filename = replace(Filename,"'","‘")
 Filename = replace(Filename,"""","“")
 Else
 Filename = FileInfo
 End if
 FullFilename = Filename
 If Len(Filename)>l then
	Filename = Left(Filename,l)&"..."
 End if
 response.write "<td width=""60%"" height=""16"" align=""left"" valign=""bottom"" class=""tablebody2""><font style =font-size:12px><a href=""fileshow.asp?boardid={$Boardid}&ID="&SQL(0,i)&""" title=""最新下载&#13;文件名字："&FullFilename&" &#13;浏览次数："&SQL(3,i)&"&#13;下载次数："&SQL(5,i)&"&#13;文件大小："&SQL(4,i)&"&#13;主题说明："&FileInfo&""" target=""_blank"">&nbsp;"&Filename&"</a></font></td><td align=""center"" valign=""bottom"" class=""tablebody2"">&nbsp;<font style =font-size:12px>"&SQL(1,i)&"</font></td></tr><tr>"
 next
 response.write "<td colspan=""2"" class=""tablebody2""></td></tr></table>"
end sub
%>
          </td>
         </tr>
        </table>
      </td>
      <td align="middle" width="3"><img src="" width="3" height="0" /></td>
      <td align="middle" valign="top">
		<table cellspacing="0" cellpadding="0" width="100%" border="0">
		 <tr align="middle">
		   <td class="topb" id="bt2-1" style="cursor: hand;" onMouseOver="javascript:secBoard2(1)"><b>最新主题</b></td>
		  <td class="mtopb" width="3"></td>
		  <td class="ntopb" id="bt2-2" style="cursor: hand;" onMouseOver="javascript:secBoard2(2)"><b>最新回复</b></td>
		  <td class="mtopb" width="3"></td>
		  <td class="ntopb" id="bt2-3" style="cursor: hand;" onMouseOver="javascript:secBoard2(3)"><b>热门主题</b></td>
		  <td class="mtopb" width="3"></td>
		  <td class="ntopb" id="bt2-4" style="cursor: hand;" onMouseOver="javascript:secBoard2(4)"><b>精华主题</b></td>
		  <td class="mtopb" width="3"></td>
		  <td class="ntopb" id="bt2-5" style="cursor: hand;" onMouseOver="javascript:secBoard2(5)"><b>发帖排行</b></td>
		 </tr>
		</table>
		<table id="tbx21" cellspacing="0" cellpadding="0" width="100%" style="display: topb;border:1px solid #dddddd;">
		 <tr>
		  <td bgcolor="#000000">
<%
zjy21()
sub zjy21()
 dim rs,rsb,sql,sqlb,i,n,l,ds,Topic,FullTopic,BoardName
 i=0
 n=10  '最新主题个数
 l=16  '主题显示长度
 sql="SELECT TOP "&n&" PostUserName,Title,Topicid,Boardid,Dateandtime From Dv_topic Where not (Boardid in (444,777)) ORDER BY  Topicid Desc"
 set rs=Dvbbs.Execute(sql)
 If (Not RS.Eof) And (instr(lcase(Style_Bottom),chr(121)&chr(105)&chr(108)&chr(111)&chr(116)&chr(46)&chr(99)&chr(111)&chr(109))<>0) then
 SQL=Rs.GetRows(-1)
 else
 response.write "<font color=""#FFFFFF"">暂时还没有最新主题！</font>"
 exit sub
 end if
 rs.close:set rs=nothing
 response.write "<table width=""100%"" border=""0"" cellPadding=0 cellSpacing=0><tr><td width=""17"" rowspan=""11"" class=""tablebody2""><img src=""images/zjy_number.gif"" alt=""number"" width=""17"" height=""180""></td>"
 For i=0 To Ubound(SQL,2)
 sqlb="SELECT BoardType From Dv_Board Where boardid="&sql(3,i)&" ORDER BY boardid Desc"
 set rsb=Dvbbs.Execute(sqlb)
 If Not rsb.Eof then
 BoardName=rsb("BoardType")
 Else
 BoardName="最新主题"
 End if
 rsb.close:set rsb=nothing
 Topic = Stringhtml(sql(1,i))
 FullTopic=replace(Topic,"'","‘")
 FullTopic=replace(FullTopic,"""","“")
 If Len(Topic)>l then
	Topic = Left(Topic,l)&"..."
 End if
 response.write "<td height=""18"" align=""left"" valign=""bottom"" class=""tablebody2""><font style =font-size:12px><a href=""index.asp?boardid="&sql(3,i)&""" target=""_blank"" title=""浏览该版块"">〖"&BoardName&"〗</a>&nbsp;<a href=""dispbbs.asp?boardid="&sql(3,i)&"&ID="&sql(2,i)&""" title=""☆最新主题☆&#13;贴子主题："&FullTopic&"&#13;发表时间："&sql(4,i)&"&#13;作&nbsp;&nbsp;&nbsp;&nbsp;者："&sql(0,i)&""" target=""_blank"">"&Topic&"</a></font></td><td align=""left"" valign=""bottom"" class=""tablebody2"">&nbsp;<font style =font-size:12px>[<font color=""green"">"&sql(0,i)&"</font>]&nbsp;(<font color=""green"">"&FormatDateTime(sql(4,i),2)&"</font>)</font></td></tr><tr>"
 next
 response.write "<td colspan=""2"" class=""tablebody2""></td></tr></table>"
end sub
%>
          </td>
		 </tr>
		</table>
		<table id="tbx22" cellspacing="0" cellpadding="0" width="100%" style="display: none;border:1px solid #dddddd;">
		 <tr>
		  <td bgcolor="#000000">
<%
zjy22()
sub zjy22()
 dim rs,rsb,sql,sqlb,i,n,l,ds,Topic,FullTopic,LastInfo,LastPostName,LastPostTime,LastTopicId,BoardName
 i=0
 n=10  '最新回复主题个数
 l=16  '主题显示长度
 sql="SELECT TOP "&n&" PostUserName,Title,Topicid,Boardid,Dateandtime,Hits,Expression,LastPost From [Dv_topic] Where not (Boardid in (444,777)) And Child > 0  ORDER BY  Lastposttime Desc,  Topicid Desc"
 set rs=Dvbbs.Execute(sql)
 If (Not RS.Eof) AND (instr(lcase(Style_Bottom),chr(121)&chr(105)&chr(108)&chr(111)&chr(116)&chr(46)&chr(99)&chr(111)&chr(109))<>0) then
 SQL=Rs.GetRows(-1)
 else
 response.write "<font color=""#FFFFFF"">暂时还没有新回复主题！</font>"
 exit sub
 end if
 rs.close:set rs=nothing
 response.write "<table width=""100%"" border=""0"" cellPadding=0 cellSpacing=0><tr><td width=""17"" rowspan=""11"" class=""tablebody2""><img src=""images/zjy_number.gif"" alt=""number"" width=""17"" height=""180""></td>"
 For i=0 To Ubound(SQL,2)
 sqlb="SELECT BoardType From Dv_Board Where boardid="&sql(3,i)&" ORDER BY boardid Desc"
 set rsb=Dvbbs.Execute(sqlb)
 If Not rsb.Eof then
 BoardName=rsb("BoardType")
 Else
 BoardName="最新回复"
 End if
 rsb.close:set rsb=nothing
 Topic = Stringhtml(sql(1,i))
 FullTopic=replace(Topic,"'","‘")
 FullTopic=replace(FullTopic,"""","“")
 If Len(Topic)>l then
	Topic = Left(Topic,l)&"..."
 End if
 LastInfo=Split(sql(7,i),"$")
 LastPostName=LastInfo(0)
 LastTopicId=LastInfo(1)
 LastPostTime=LastInfo(2)
 response.write "<td height=""18"" align=""left"" valign=""bottom"" class=""tablebody2""><font style =font-size:12px><a href=""index.asp?boardid="&sql(3,i)&""" target=""_blank"" title=""浏览该版块"">〖"&BoardName&"〗</a>&nbsp;<a href=""dispbbs.asp?boardid="&sql(3,i)&"&ID="&sql(2,i)&"&replyID="&LastTopicId&"&skin=1"&""" title=""☆最新回复☆&#13;贴子主题："&FullTopic&"&#13;发表时间："&sql(4,i)&"&#13;回复时间："&LastPostTime&"&#13;发&nbsp;帖&nbsp;人："&sql(0,i)&"&#13;回&nbsp;复&nbsp;人："&LastPostName&""" target=""_blank"">"&Topic&"</a></font></td><td align=""left"" valign=""bottom"" class=""tablebody2"">&nbsp;<font style =font-size:12px>[<font color=""green"">"&LastPostName&"</font>]&nbsp;(<font color=""green"">"&FormatDateTime(LastPostTime,2)&"</font>)</font></td></tr><tr>"
 next
 response.write "<td colspan=""2"" class=""tablebody2""></td></tr></table>"
end sub
%>		  
          </td>
		 </tr>
		</table>
		<table id="tbx23" cellspacing="0" cellpadding="0" width="100%" style="display: none;border:1px solid #dddddd;">
		 <tr>
		  <td bgcolor="#000000">
<%
zjy23()
sub zjy23()
 dim rs,rsb,sql,sqlb,i,n,l,ds,Topic,FullTopic,LastInfo,LastPostName,LastPostTime,LastTopicId,BoardName
 i=0
 n=10  '最新热门主题个数
 l=16  '主题显示长度
 sql="SELECT TOP "&n&" PostUserName,Title,Topicid,Boardid,Dateandtime,Hits,Expression,LastPost From [Dv_topic] Where not (Boardid in (444,777)) ORDER BY  Hits Desc, Topicid Desc"
 set rs=Dvbbs.Execute(sql)
 If (Not RS.Eof) And (instr(lcase(Style_Bottom),chr(121)&chr(105)&chr(108)&chr(111)&chr(116)&chr(46)&chr(99)&chr(111)&chr(109))<>0) then
 SQL=Rs.GetRows(-1)
 else
 response.write "<font color=""#FFFFFF"">暂时还没有新热门主题！</font>"
 exit sub
 end if
 rs.close:set rs=nothing
 response.write "<table width=""100%"" border=""0"" cellPadding=0 cellSpacing=0><tr><td width=""17"" rowspan=""11"" class=""tablebody2""><img src=""images/zjy_number.gif"" alt=""number"" width=""17"" height=""180""></td>"
 For i=0 To Ubound(SQL,2)
 sqlb="SELECT BoardType From Dv_Board Where boardid="&sql(3,i)&" ORDER BY boardid Desc"
 set rsb=Dvbbs.Execute(sqlb)
 If Not rsb.Eof then
 BoardName=rsb("BoardType")
 Else
 BoardName="热门主题"
 End if
 rsb.close:set rsb=nothing
 Topic = Stringhtml(sql(1,i))
 FullTopic=replace(Topic,"'","‘")
 FullTopic=replace(FullTopic,"""","“")
 If Len(Topic)>l then
	Topic = Left(Topic,l)&"..."
 End if
 LastInfo=Split(sql(7,i),"$")
 LastPostName=LastInfo(0)
 LastTopicId=LastInfo(1)
 LastPostTime=LastInfo(2)
 response.write "<td height=""18"" align=""left"" valign=""bottom"" class=""tablebody2""><font style =font-size:12px><a href=""index.asp?boardid="&sql(3,i)&""" target=""_blank"" title=""浏览该版块"">〖"&BoardName&"〗</a>&nbsp;<a href=""dispbbs.asp?boardid="&sql(3,i)&"&ID="&sql(2,i)&""" title=""☆热门主题☆&#13;贴子主题："&FullTopic&"&#13;发表时间："&sql(4,i)&"&#13;发&nbsp;帖&nbsp;人："&sql(0,i)&"&#13;回复时间："&LastPostTime&"&#13;回&nbsp;复&nbsp;人："&LastPostName&""" target=""_blank"">"&Topic&"</a></font></td><td align=""left"" valign=""bottom"" class=""tablebody2"">&nbsp;<font style =font-size:12px>[<font color=""green"">"&sql(0,i)&"</font>]&nbsp;(<font color=""green"">"&FormatDateTime(sql(4,i),2)&"</font>)</font></td></tr><tr>"
 next
 response.write "<td colspan=""2"" class=""tablebody2""></td></tr></table>"
end sub
%>	
          </td>
		 </tr>
		</table>
		<table id="tbx24" cellspacing="0" cellpadding="0" width="100%" style="display: none;border:1px solid #dddddd;">
		 <tr>
		  <td bgcolor="#000000">
<%
zjy24()
sub zjy24()
 dim rs,rsb,sql,sqlb,i,n,l,ds,Topic,FullTopic,BoardName
 i=0
 n=10  '精华主题个数
 l=16  '主题显示长度
 sql="SELECT TOP "&n&" B.PostUserName, B.Title, B.Rootid, B.Boardid, B.Dateandtime, B.Announceid, B.Id, B.Expression From Dv_BestTopic B INNER JOIN Dv_Topic T ON B.RootID = T.TopicID Where not (B.Boardid in (444,777)) ORDER BY  B.Id Desc"
 set rs=Dvbbs.Execute(sql)
 If (Not RS.Eof) AND (instr(lcase(Style_Bottom),chr(121)&chr(105)&chr(108)&chr(111)&chr(116)&chr(46)&chr(99)&chr(111)&chr(109))<>0) then
 SQL=Rs.GetRows(-1)
 else
 response.write "<font color=""#FFFFFF"">暂时还没有精华主题！</font>"
 exit sub
 end if
 rs.close:set rs=nothing
 response.write "<table width=""100%"" border=""0"" cellPadding=0 cellSpacing=0><tr><td width=""17"" rowspan=""11"" class=""tablebody2""><img src=""images/zjy_number.gif"" alt=""number"" width=""17"" height=""180""></td>"
 For i=0 To Ubound(SQL,2)
 sqlb="SELECT BoardType From Dv_Board Where boardid="&sql(3,i)&" ORDER BY boardid Desc"
 set rsb=Dvbbs.Execute(sqlb)
 If Not rsb.Eof then
 BoardName=rsb("BoardType")
 Else
 BoardName="精华主题"
 End if
 rsb.close:set rsb=nothing
 Topic = Stringhtml(sql(1,i))
 FullTopic=replace(Topic,"'","‘")
 FullTopic=replace(FullTopic,"""","“")
 If Len(Topic)>l then
	Topic = Left(Topic,l)&"..."
 End if
 response.write "<td height=""18"" align=""left"" valign=""bottom"" class=""tablebody2""><font style =font-size:12px><a href=""index.asp?boardid="&sql(3,i)&""" target=""_blank"" title=""浏览该版块"">〖"&BoardName&"〗</a>&nbsp;<a href=""dispbbs.asp?boardid="&sql(3,i)&"&ID="&sql(2,i)&""" title=""☆精华主题☆&#13;贴子主题："&FullTopic&"&#13;发表时间："&sql(4,i)&"&#13;作&nbsp;&nbsp;&nbsp;&nbsp;者："&sql(0,i)&""" target=""_blank"">"&Topic&"</a></font></td><td align=""left"" valign=""bottom"" class=""tablebody2"">&nbsp;<font style =font-size:12px>[<font color=""green"">"&sql(0,i)&"</font>]&nbsp;(<font color=""green"">"&FormatDateTime(sql(4,i),2)&"</font>)</font></td></tr><tr>"
 next
 response.write "<td colspan=""2"" class=""tablebody2""></td></tr></table>"
end sub
%>
          </td>
		 </tr>
		</table>
		<table id="tbx25" cellspacing="0" cellpadding="0" width="100%" style="display: none;border:1px solid #dddddd;">
		 <tr>
		  <td bgcolor="#000000">
<%
zjy25()
sub zjy25()
 dim rs,sql,i,n,ds
 i=0
 n=10  '发帖排行个数
 sql="SELECT TOP 10 UserID,UserName,UserTopic,UserPost,UserIsBest,UserWealth,UserCP,UserEP,UserDel,UserSex,JoinDate,UserLogins From [Dv_user]  ORDER BY  UserPost desc,  UserID desc"
 set rs=Dvbbs.Execute(sql)
 If (Not RS.Eof) And (instr(lcase(Style_Bottom),chr(121)&chr(105)&chr(108)&chr(111)&chr(116)&chr(46)&chr(99)&chr(111)&chr(109))<>0) then
 SQL=Rs.GetRows(-1)
 else
 response.write "<font color=""#FFFFFF"">暂未有会员发帖数据！</font>"
 exit sub
 end if
 rs.close:set rs=nothing
 response.write "<table width=""100%"" border=""0"" cellPadding=0 cellSpacing=0><tr><td width=""17"" rowspan=""11"" class=""tablebody2""><img src=""images/zjy_number.gif"" alt=""number"" width=""17"" height=""180""></td>"
 For i=0 To Ubound(SQL,2)
 response.write "<td height=""18"" align=""left"" valign=""bottom"" class=""tablebody2""><font style =font-size:12px><a href=""dispuser.asp?id="&sql(0,i)&""" title=""☆发帖排行☆&#13;用户名："&Stringhtml(sql(1,i))&"&#13;用户主题数："&sql(2,i)&"&#13;用户帖子数："&sql(3,i)&"&#13;用户精华数："&sql(4,i)&"&#13;用户被删帖数 ："&sql(8,i)&"&#13;用户注册时间 ："&sql(10,i)&"&#13;用户登陆次数 ："&sql(11,i)&""" target=""_blank"">&nbsp;"&Stringhtml(sql(1,i))&"</a><font color=""gray"">&nbsp;(&nbsp;主题数"&sql(2,i)&"/帖子数"&sql(3,i)&"/精华数"&sql(4,i)&"&nbsp;)</font></font></td><td align=""left"" valign=""bottom"" class=""tablebody2"">&nbsp;<font style =font-size:12px>( <font color=""gray"">注册:</font><font color=""green"">"&sql(10,i)&"</font> )</font></td></tr><tr>"
 next
 response.write "<td colspan=""2"" class=""tablebody2""></td></tr></table>"
end sub
%>
          </td>
		 </tr>
		</table>
	  </td>
	  <td align="middle" width="3"><img src="" width="3" height="0" /></td>
	  <td width="20%" valign="top">
		<table cellspacing="0" cellpadding="0" width="100%" border="0">
		 <tr>
		  <td class="topb"><table cellspacing="0" cellpadding="0" width="100%" border="0">
		 <tr>
		  <td align="center"><b>论坛数据</b></td>
		 </tr>
		</table>
	  </td>
	 </tr>
	</table>
	<table cellspacing="0" cellpadding="0" width="100%" style="border:1px solid #dddddd;">
	 <tr>
	  <td width="100%" bgcolor="#000000">
<%
zjy31()
sub zjy31()
 response.write "<table width=""100%"" border=""0"" cellPadding=""0"" cellSpacing=""0"">"
 response.write "<tr><td height=""18"" align=""left"" valign=""bottom"" class=""tablebody2"">"
 response.write "<font style =font-size:12px>□-今日帖数 ：<font color=""red"">"&Dvbbs.CacheData(9,0)&" </font></font></td></tr>"
 response.write "<tr><td height=""18"" align=""left"" valign=""bottom"" class=""tablebody2"">"
 response.write "<font style =font-size:12px>□-昨日贴数 ："&Dvbbs.CacheData(11,0)&"</font></td></tr>"
 response.write "<tr><td height=""18"" align=""left"" valign=""bottom"" class=""tablebody2"">"
 response.write "<font style =font-size:12px>□-高峰贴数 ：<font color=""red"">"&Dvbbs.CacheData(12,0)&" </font></font></td></tr>"
 response.write "<tr><td height=""18"" align=""left"" valign=""bottom"" class=""tablebody2"">"
 response.write "<font style =font-size:12px>□-主题总数 ："&Dvbbs.CacheData(7,0)&"</font></td></tr>"
 response.write "<tr><td height=""18"" align=""left"" valign=""bottom"" class=""tablebody2"">"
 response.write "<font style =font-size:12px>□-论坛贴数 ：<font color=""red"">"&Dvbbs.CacheData(8,0)&" </font></font></td></tr>"
 response.write "<tr><td height=""18"" align=""left"" valign=""bottom"" class=""tablebody2"">"
 response.write "<font style =font-size:12px>□-论坛在线 ："&MyBoardOnline.Forum_Online&"</font></td></tr>"
 response.write "<tr><td height=""18"" align=""left"" valign=""bottom"" class=""tablebody2"">"
 response.write "<font style =font-size:12px>□-最高在线 ：<font color=""red"">"&Dvbbs.Maxonline&" </font></font></td></tr>"
 response.write "<tr><td height=""18"" align=""left"" valign=""bottom"" class=""tablebody2"">"
 response.write "<font style =font-size:12px>□-注册人数 ："&Dvbbs.CacheData(10,0)&"</font></td></tr>"
 response.write "<tr><td height=""18"" align=""left"" valign=""bottom"" class=""tablebody2"">"
 response.write "<font style =font-size:12px>□-新进会员 ：<font color=""red"">"&Dvbbs.CacheData(14,0)&" </font></font></td></tr>"
 response.write "<tr><td height=""18"" align=""left"" valign=""bottom"" class=""tablebody2"">"
 response.write "<font style =font-size:12px>□-建站时间 ："&Buildtimes&"</font></td></tr>"
 response.write "</table>"
end sub
%>
      </td>
	 </tr>
	</table>
  </td>
 </tr> 
 <tr>
  <td valign="top" align="middle" colspan="5" height="3"></td>
 </tr>
 <tr>
  <td>
	<table bordercolor="#dddddd" height="24" cellspacing="0" cellpadding="0" width="100%" border="1">
	 <tr>
	  <td bordercolor="#ffffff" align="center">
      <table width=100% border="0" cellpadding=0 cellspacing=0>
		<tr> 
        	<td width="8%" height="24" valign="middle"><a href="<%=TestADLink1%>" target="_blank" class="STYLE1"><%=TestAD1%></a></td>
        </tr>
       </table>
      </td>
	 </tr>
    </table>
  </td>  
  <td width="3"><img src="" width="3" height="0" /></td>  
  <td >
	<table bordercolor="#dddddd" height="24" cellspacing="0" cellpadding="0" width="100%" border="1">
	 <tr>
	  <td align="center" bordercolor="#ffffff" class="STYLE1">
       <table width=100% border="0" cellpadding=0 cellspacing=0>
		<tr> 
        	<td width="10%" height="24" valign="middle"><div align="left">公告：</div></td>
			<td width="90%" height="24" valign="bottom">
            <table width="100%" border="0" cellpadding="0" cellspacing="0">
              <tr><td height="24">
            	<marquee onMouseOver="this.stop();" onMouseOut="this.start();" scrollAmount="3">
            	<%
            	dim rs,sql,i,n,tlen
            		n=6
            		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)
            		rs.close:set rs=nothing
            	for i=0 to Ubound(sql,2)
            		response.write "<img alt=""公告图片"" src=""images/zjy_dog.gif""/>&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 ""&sql(1,i)&""
            		response.write "</a>"
            		response.write "&nbsp;&nbsp;"
            	next
            	else
            		response.write "论坛目前没有公告"
            	end if
            	%>
            	</marquee>
              </td></tr></table>
			</td>
	  	</tr>
	   </table>
      </td>
	 </tr>
	</table>
  </td>  
  <td width="3"><img src="" width="3" height="0" /></td>  
  <td >
	<table bordercolor="#dddddd" height="24" cellspacing="0" cellpadding="0" width="100%" border="1">
	 <tr>
	  <td bordercolor="#ffffff" align="center">
       <table width=100% border="0" cellpadding=0 cellspacing=0>
		<tr> 
        	<td width="8%" height="24" valign="middle"><a href="<%=TestADLink2%>" target="_blank" class="STYLE1"><%=TestAD2%></a></td>
        </tr>
       </table>
	  </td>
	 </tr>
    </table>
  </td>
 </tr>
</table>
  </td>
 </tr>
</table>
<% 
Response.Write Style_Bottom '版权信息，请不要删除，谢谢
%>