<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/dv_clsother.asp"-->
<%
dim adm_qq,qq,N,myqq
adm_qq="408877088,395948113,281865187"       'QQ号码需要改成你的！可以添加无数个，只要按照格式填写就行！
QQ=split(adm_qq,",")
for N=0 to UBound(QQ)
MyQQ=MyQQ+QQ(N)+":"
next
%>
<!--
          后面有几处网址和网站名称你需要自己改下！   找到下面这段，修改其中信息！
 
         <span style="CURSOR: hand" onclick="window.external.addFavorite('http://bbs.tcdj.com','〖心的回廊〗')" title="〖心的回廊〗"> <strong>收藏本站 &nbsp;</strong></span> <span class="style1"><a class="chlnk" style="cursor:hand" href"" onclick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://bbs.tcdj.com');">设为首页</a></span>   

把  某ICP备00000000号   换成你自己的备案号                    
-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language = "javaScript" src = "inc/Main.js" type="text/javascript"></script>
<title>论坛信息首页调用</title>
<meta name="keywords" content="关键字,〖心的回廊〗,动网,论坛,插件,美化,下载,调用,美女,小说" >
<meta name="MSSmartTagsPreventParsing" content="TRUE" >
<meta http-equiv="MSThemeCompatible" content="Yes" >
<link rel="SHORTCUT ICON" href="favicon.ico" />
<STYLE type=text/css>
a {text-decoration : none;color : #4D5D64; } 
a:hover {text-decoration : underline; color : #009900; } 
body {font-size : 11px; color : #4D5D64; font-family : tahoma, 宋体, fantasy; text-align : center; margin : 0; background-image : url("Skins/Default/Myuanhtl/bgt.gif");CURSOR: url('Skins/mouse.cur'); background-color :#ffffff;text-align: center; scrollbar-face-color: #f6f6f6;scrollbar-highlight-color: #ffffff;scrollbar-shadow-color: #cccccc;scrollbar-3dlight-color:#cccccc;scrollbar-arrow-color: #330000;scrollbar-track-color: #f6f6f6;scrollbar-darkshadow-color: #ffffff;} 
.copyright {color : #cccccc; line-height : 130%; }
TD {
	FONT-SIZE: 12px; COLOR: #210303}
TH {
	FONT-SIZE: 12px; COLOR: #210303}
.bottom {
	FONT-SIZE: 10px; COLOR: #525252; FONT-FAMILY: Tahoma
}
.bottom1 {
	FONT-SIZE: 12px; COLOR: #525252
}
.left {
	COLOR: #EFEFDE}
A:link {
	COLOR: #373333; TEXT-DECORATION: none
}
A:visited {
	COLOR: #373333; TEXT-DECORATION: none
}
A:hover {
	COLOR: #FF0000; TEXT-DECORATION: none
}
A:active {
	COLOR: #FF0000; TEXT-DECORATION: none
}
IMG {
	BORDER-RIGHT: 0px; BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 0px
}
.style1 {
	font-size: 12px;
	font-weight: bold;
	color: #210303;
}
body,td,th {
	color: #373333;
}
a {
	font-size: 12px;
}
.style3 {color: #426D21}
.style4 {color: #396510}
input,select,Textarea{font-family:Tahoma,Verdana,宋体;font-size: 12px; line-height: 15px;COLOR: #4d5d64;border: 0px solid #e3e3e3;background-color: #fff;}
option,select{background-color: #fff;  }
</STYLE>
</head>
<body>
<table width="98%" cellpadding="0" cellspacing="0" border="0" align="center" background="Skins/Default/Myuanhtl/top_bg.jpg">
  <tr>
      <td align=left width=415 background="Skins/Default/Myuanhtl/logo.jpg" border=0>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="415" height="209">
      <param name="movie" value="Skins/Default/Myuanhtl/logo.swf">
      <param name="quality" value="high">
      <param name="wmode" value="transparent">
      <embed src="Skins/Default/Myuanhtl/logo.swf" width="415" height="209"quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" wmode="transparent"></embed>
    </object></td>   
   <td width="100%">
</td>
<td align=right width=230 height=209><IMG src="Skins/Default/Myuanhtl/Myuan_top_r.jpg" border=0><BR><A title=主站 href="#"><IMG src="Skins/Default/Myuanhtl/Myuan_top_rx1.jpg" border=0></A><A title=下载 href="#"><IMG src="Skins/Default/Myuanhtl/Myuan_top_rx2.jpg" border=0></A><A title=论坛 href="#"><IMG src="Skins/Default/Myuanhtl/Myuan_top_rx3.jpg" border=0></A><A title=许愿 href="#"><IMG src="Skins/Default/Myuanhtl/Myuan_top_rx4.jpg" border=0></A></td>
  </tr>
</table>

<table width="98%" cellpadding="0" cellspacing="0" border="0" align="center" background="Skins/Default/Myuanhtl/nav_bg.jpg">
  <tr>
   <td width="427" height="45"><img src="Skins/Default/Myuanhtl/nav_l.jpg" border="0"></td>
   <td width="65%" align="center" class="smalltxt" valign="bottom">
&nbsp;&nbsp;<a href="myindex.asp" >返回首页</a> | <a href="index.asp" >进入论坛</a> | <a href="bokeindex.asp">论坛博客</a> | <a href="index.asp?IsSearch_a=1">网站地图</a> | <a href="plus_Tools_Center.asp">道具中心</a> | <a href="boardstat.asp" >今日贴数</a> | <a href="boardstat.asp?action=lasttopicnum">主题帖数</a> | <a href="boardstat.asp?action=lastbbsnum">共有帖数</a> | <a href="boardstat.asp?reaction=onlineinfo">在线情况</a>
<td width="35%" align="center" class="smalltxt" valign="bottom">
欢迎您的到来！今天是：
<SCRIPT language="javascript">
<!--
calendar = new Date();
day = calendar.getDay();
month = calendar.getMonth();
date = calendar.getDate();
year = calendar.getYear();
if (year< 100) year = 1900 + year;
cent = parseInt(year/100);
g = year % 19;
k = parseInt((cent - 17)/25);
i = (cent - parseInt(cent/4) - parseInt((cent - k)/3) + 19*g + 15) % 35;
i = i - parseInt(i/28)*(1 - parseInt(i/28)*parseInt(29/(i+1))*parseInt((21-g)/11));
j = (year + parseInt(year/4) + i + 2 - cent + parseInt(cent/4)) % 7;
l = i - j;
emonth = 3 + parseInt((l + 40)/44);
edate = l + 28 - 31*parseInt((emonth/4));
emonth--;
var dayname = new Array ("星期日", "星期一", "星期二", "星期三", "星期四", "星期五", "星期六");
var monthname = 
new Array ("1月","2月","3月","4月","5月","6月","7月","8月","9月","10月","11月","12月" );
document.write("<font color=#0000FF>"+year +"年");
document.write(monthname[month]);
document.write(date + "日 ");
document.write(dayname[day]+" "+"");
// January(1月份节日，以下同。)
if ((month == 0) && (date == 1)) document.write("元  旦");
if ((month == 4) && (date == 1)) document.write("劳动节");
if ((month == 4) && (date == 4)) document.write("青年节");
if ((month == 5) && (date == 1)) document.write("儿童节");
if ((month == 11) && (date == 25)) document.write("圣诞节"); 
if ((month == 9) && (date == 1)) document.write ("国庆节");
document.write("");
//-->
</SCRIPT>
</td>
   </td>
   <td width="112" align="right"><img src="Skins/Default/Myuanhtl/nav_r.jpg" border="0"></td>
  </tr>
</table>
<link rel="SHORTCUT ICON" href="favicon.ico" />
<table bgcolor="#FFFFFF" width="98%" cellpadding="0" cellspacing="0" border="0" align="center">
<tr>
<td width="5" background="Skins/Default/Myuanhtl/left.jpg"></td>
<td width="100%">
<table cellspacing="0" cellpadding="0" border="0" width="100%" align="left"> 
<tr>
  <td class="nav" width="100%" align="center">
<table height="100%" cellspacing="0" cellpadding="0" width="841" border="0" align="left">
  <tbody>
    <tr>
      <td width="100%"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="FEFEFD">
          <tbody>
            <tr>
              <td valign="top"><%
If Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userid").text>0 Then%>
                <table width="184" height="180" border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td valign="top"><table width="184" height="180" border="0" cellpadding="0" cellspacing="0">
                    <tr>
                      <td valign="top"><TABLE cellSpacing=0 cellPadding=0 width=180 align=center border=0>
                          <TBODY>
                            <TR>
                              <TD colSpan=2><IMG src="Skins/syimages/ininfo.gif" 
      width=180 height="55"></TD>
                            </TR>
                            <TR>
                              <TD height="20" colSpan=2 align="center" background="Skins/syimages/tiaoxin.gif"><table width="90%" border="0" cellspacing="0" cellpadding="0">
                                    <tr>
                                      <td><div align="center"><B><FONT 
                  color=#2f8afb><%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@username").text%></FONT></B>&nbsp;身份：<%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userclass").text %></div></td>
                                    </tr>
                                                            </table></TD>
                            </TR>
                            <TR>
                              <TD colSpan=2 align="center" background="Skins/syimages/tiaoxin.gif"><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
                                  <tr>
                                    <td width="5%" height="108" align="left" valign="top"><TABLE cellSpacing=0 cellPadding=0 width=100% align=center 
      border=0>
                                      <TBODY>
                                        <TR>
                                          <TD align="left"><img src="Skins/syimages/boy_ivbg39.gif" width="16" height="14"></TD>
                                          <TD align="left">金币：<b><FONT color=#ff0000><%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usermoney").text %></FONT></b></TD>
                                          </TR>
                                        <TR>
                                          <TD align="left"><img src="Skins/syimages/boy_ivbg39.gif" width="16" height="14"></TD>
                                          <TD align="left">威望：<FONT color=#ff0000><%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userpower").text %></FONT></TD>
                                          </TR>
                                        <TR>
                                          <TD align="left"><img src="Skins/syimages/boy_ivbg39.gif" width="16" height="14"></TD>
                                          <TD align="left">经验：<%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userep").text %></TD>
                                          </TR>
                                        <TR>
                                          <TD align="left"><img src="Skins/syimages/boy_ivbg39.gif" width="16" height="14"></TD>
                                          <TD align="left">金钱：<%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userwealth").text %></TD>
                                          </TR>
                                        <TR>
                                          <TD align="left"><img src="Skins/syimages/boy_ivbg39.gif" width="16" height="14"></TD>
                                          <TD align="left">魅力：<%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usercp").text%></TD>
                                          </TR>
										   <TR>
                                        <TD align="left"><div align="center"><img src="Skins/syimages/boy_ivbg39.gif" width="16" height="14"> </div></TD>
                                        <TD align="left">发表：<%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@usertopic").text%>主题/<b><%=Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userpost").text %></b>回复</TD>
                                            </TR>
                                      </TBODY>
                                    </TABLE></td>
                                    </tr>
                              </table></TD>
                            </TR>
 
                            <TR>
                              <TD colSpan=2 align="center" background="Skins/syimages/tiaoxin.gif"><IMG 
      src="Skins/syimages/l1b4.gif" width=9> <A class=link3 
      href="usermanager.asp" target="_self">控制面板</A> &nbsp;<IMG height=9 
      src="Skins/syimages/l1b4.gif" width=9> <A class=link3 
      href="mylogout.asp">安全退出</A></TD>
                            </TR>
                            <TR>
                              <TD background=Skins/syimages/r1b2.gif colSpan=2 
  height=13></TD>
                            </TR>
                          </TBODY>
                      </TABLE></td>
                    </tr>
                  </table></td>
                </tr>
              </table>
                <%Else%>
                <table width="184" height="180" border="0" cellpadding="0" cellspacing="0">
                  <tr>
                    <td valign="top"><table width="184" height="180" border="0" cellpadding="0" cellspacing="0">
                      <tr>
                        <td valign="top" background="Skins/syimages/middle_00.gif"><table width="95%" height="151" border="0" cellpadding="0" cellspacing="0">
                            <tbody>
                              <tr>
                                <td width="48" height="50">　</td>
                                <td width="80">　</td>
                                <td width="47">　</td>
                              </tr>
                            </tbody>
                            <form action="login.asp?action=chk" method="post">
                              <tr>
                                <td height="25">　</td>
                                <td height="25"><input size="12" name="username" />
                                    <input type="hidden" name="Comeurl" value="myindex.asp"></td>
                                <td rowspan="2"><input name="imageField" type="image" src="Skins/syimages/login.gif" border="0"></td>
                              </tr>
                              <tr>
                                <td>　</td>
                                <td height="25"><input id="loginpwd" type="password" size="12" 
          name="password" /></td>
                              </tr>
                              <tr>
                                <td align="right">　</td>
                                <td height="25"><select name="CookieDate" class="border">
                                  <option value="0">不用保存</option>
                                  <option value="1">保存一天</option>
                                  <option value="2">保存一月</option>
                                  <option value="3">保存一年</option>
                                                                                                                                </select></td>
                                <td>　</td>
                              </tr>
                            </form>
                            <tr valign="bottom">
                              <td colspan="3" height="25">&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; <a 
            href="reg.asp">注 &nbsp;册</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <a href="lostpass.asp">忘 记 密 码 </a></td>
                            </tr>
                        </table></td>
                      </tr>
                    </table></td>
                  </tr>
                </table>
                <%End IF%></td>
              <td width="52" valign="top" background="Skins/syimages/middle_line.gif"><img src="Skins/syimages/middle_02.gif" width="52" height="180"></td>
              <td align="middle" valign="center" bgcolor="#ffffff"><table cellspacing="0" cellpadding="0" width="100%" border="0">
                <tbody>
                  <tr>
                    <td bgcolor="FEFEFD">　</td>
                    <td width="184" rowspan="3" bgcolor="FEFEFD"><img src="Skins/syimages/middle_04.gif" width="149" height="170"></td>
                  </tr>
                  <tr>
                    <td><img src="Skins/syimages/notice.gif" width="445" height="42" border="0" usemap="#Map5"></td>
                    </tr>
                  <tr>
                    <td height="116" align="left" 
          background="Skins/syimages/notice_bg.gif" bgcolor="FEFEFD"><table width="95%" height="110" border="0" align="center">
                        <tr>
                          <td valign="baseline"><script src="Dv_News.asp?GetName=boardnews"></script></td>
                        </tr>
                    </table></td>
                    </tr>
                </tbody>
              </table></td>
              <td width="10" valign="top">&nbsp;</td>
            </tr>
          </tbody>
        </table>
          <table cellspacing="0" cellpadding="0" width="840" border="0">
            <tbody>
              <tr>
                <td valign="top" width="184" bgcolor="#ffffff"><table cellspacing="0" cellpadding="0" width="180" border="0">
                    <tbody>
                      <tr>
                        <td><table width="175" height="53" border="0" align="right">
                            <tr>
                              <td width="174" height="20" align="center" valign="middle" background="Skins/syimages/tj.gif"><div align="center"><span style="CURSOR: hand" onclick="window.external.addFavorite('http://www.myuanit.com','梦源网络论坛')" title="梦源网络论坛"> <strong>收藏本站 &nbsp;</strong></span> <span class="style1"><a class="chlnk" style="cursor:hand" href"" onclick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.myuanit.com');">设为首页</a></span></div></td>
                            </tr>
                        </table></td>
                      </tr>
                    </tbody>
                  </table>
                    <table cellspacing="0" cellpadding="0" width="180" align="right" border="0">
                      <tbody>
                        <tr>
                          <td><img height="66" src="Skins/syimages/sta.gif" 
            width="180" /></td>
                        </tr>
                        <tr>
                          <td align="center" background="Skins/syimages/sta_bg.gif"><table width="90%" border="0" cellspacing="0" cellpadding="0">
                            <tr>
                              <td><strong>&nbsp;<span class="style3">帖子信息</span></strong></td>
                            </tr>
                            <tr>
                              <td><%
topic()
Function topic()
 response.write "<table cellspacing=1 cellpadding=5 class=mytableborder align=left>"
 response.write "<tr><td class=td1>" 
 Response.Write "<font face=Wingdings>v</font> 今日发贴： <font color=#CC0000>"&Dvbbs.CacheData(9,0)&" </font>篇<br>"
 Response.Write "<font face=Wingdings>v</font> 昨日发贴： <font color=#CC0000>"&Dvbbs.CacheData(11,0)&" </font>篇<br>"
 Response.Write "<font face=Wingdings>v</font> 主题总数： <font color=#CC0000>"&Dvbbs.CacheData(7,0)&" </font>篇<br>"
 Response.Write "<font face=Wingdings>v</font> 论坛总贴： <font color=#CC0000>"&Dvbbs.CacheData(8,0)&" </font>篇<br>"
 Response.Write "<font face=Wingdings>v</font> 最高日发： <font color=#CC0000>"&Dvbbs.CacheData(12,0)&" </font>篇<br>"
 Response.Write "<font face=Wingdings>v</font> 最高在线： <font color=#CC0000>"&Dvbbs.Maxonline&" </font>人<br>"
 response.write "</td></tr>"
 response.write "<tr><td></td></tr></table>"
end Function
%>
</td>
                            </tr>
                            <tr>
                              <td><strong>&nbsp;<span class="style4">会员统计</span></strong></td>
                            </tr>
                            <tr>
                              <td><%
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
 response.write "<table cellspacing=1 cellpadding=5 class=mytableborder align=left>"
 response.write "<tr><td class=td1>"
 Response.Write "<font face=Wingdings>J</font> 会员总数 <font color=#cc0000>"&girlnum+BoyNum&" </font>位<br>"
 Response.Write "<font face=Wingdings>J</font> 美女会员 <font color=#cc0000>"&girlnum&" </font>位<br><font face=Wingdings>J</font> 帅哥会员 <font color=#cc0000>"&BoyNum&" </font>位<br>"
 Response.Write "<font face=Wingdings>J</font> 今日注册 <font color=#cc0000>"&tnum&" </font>位<br>"
    Response.Write "<font face=Wingdings>J</font> 昨天来了 <font color=#cc0000>"&ynum&" </font>人<br>"
 Response.Write "<font face=Wingdings>J</font> 新进来宾 <font color=#ff0000><b>"&Dvbbs.CacheData(14,0)&"</b></font> <br>"
 response.write "</td></tr>"
 response.write "<tr><td></td></tr></table>"
end sub
%></td>
                            </tr>
                          </table></td>
                        </tr>
                        <tr>
                          <td><a href="index.asp" target="_blank"><img src="Skins/syimages/sta2.gif" alt="点击访问论坛首页了解更多信息！" 
            width="180" border="0" usemap="#Map3" /></a></td>
                        </tr>
                        <tr>
                          <td><img src="Skins/syimages/cate.gif" width="180"></td>
                        </tr>
                        <tr>
                          <td align="center" valign="middle" background="Skins/syimages/tiaoxin.gif"><table width="90%" border="0" cellspacing="0" cellpadding="0">
                            <tr>
                              <td><strong>
                                <%
myboard()
sub myboard()
 dim rs,sql,i,n
 n=8  '板块排行调用个数
 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 "<table cellspacing=1 cellpadding=5  align=center>"
 response.write "<tr><th align=left height=24 colspan=3 >热门版块排行</th></tr>"
 response.write "<tr><td class=tablebody1 colspan=3>论坛无板块</td></tr>"
 response.write "</table>"
 exit sub 
   
     end if
     rs.close:set rs=nothing
 response.write "<table cellspacing=1 cellpadding=5 align=left class=td1>"
 For i=0 To Ubound(SQL,2)
 response.write "<tr>"
 response.write "<td class=td1>"
 response.write "&nbsp;"
 response.write ""&i+1&""
 response.write "</td>"
 response.write "<td class=td1>"
 response.write "<a href=index.asp?boardid="&sql(0,i)&" target=""_blank"" title=""欢迎进入〖心的回廊〗浏览"" class=bankuai>"
 response.write ""&sql(1,i)&""
 response.write "</a></td>"
 response.write "<td class=td1>"
 response.write ""&sql(3,i)&""
 response.write "</td></tr>"
 next
response.write "</table>" 
end sub
%>
                              </strong></td>
                            </tr>
                          </table></td>
                        </tr>
                        <tr>
                          <td><img src="Skins/syimages/end1.gif" width="180" height="25"></td>
                        </tr>
                        <tr>
                          <td><img src="Skins/syimages/cate2.gif" width="180" height="55"></td>
                        </tr>
                        <tr>
                          <td align="center" background="Skins/syimages/tiaoxin.gif"><table width="90%" border="0" cellspacing="0" cellpadding="0">
                            <tr>
                              <td><%
topuser()
sub topuser()
 dim rs,sql,i,n
 n=6 
 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
 response.write "<table cellspacing=1 cellpadding=5 align=left class=td1>"
 For i=0 To Ubound(SQL,2)
 response.write "<tr>"
 response.write "<td class=td1>"
 response.write "&nbsp;"
 response.write ""&i+1&""
 response.write "</td>"
 response.write "<td class=td1>"
 response.write "&nbsp;<a href="
 Response.Write "dispuser.asp?id="
 Response.Write SQL(0,i)
 Response.Write " target=_blank title=查看"
 Response.Write Dvbbs.htmlencode(SQL(1,i))
 Response.Write "的个人资料>"
    response.write Dvbbs.htmlencode(SQL(1,i))
 response.write "</a>"
 response.write "</td>"
 response.write "<td class=td1>"
 response.write "&nbsp;&nbsp;"
    response.write ""&Dvbbs.htmlencode(SQL(2,i))&""
 response.write "</td>"
 response.write "</tr>"
 response.write "</td></tr>"
 next
 response.write "</table>"
end sub
%></td>
                            </tr>
                          </table></td>
                        </tr>
                        <tr>
                          <td><img src="Skins/syimages/end2.gif" width="180" height="25"></td>
                        </tr>
                      </tbody>
                  </table></td>
                <td width="52" 
    background="Skins/syimages/middle_line.gif">　</td>
                <td align="center" valign="top" bgcolor="#ffffff"><div align="center"></div>
                    <table width="100%" height="33" border="0" cellpadding="0" cellspacing="0">
                      <tbody>
                        <tr>
                          <td><table cellspacing="0" cellpadding="0" width="580" align="center" border="0">
                              <tbody>
                                <tr>
                                  <td><img src="Skins/syimages/userlist.gif" /></td>
                                </tr>
                                <tr>
                                  <td><script src="Dv_News.asp?GetName=myuannewp"></script></script>
                                  </td>
                                </tr>
                              </tbody>
                            </table>
                              <table cellspacing="0" cellpadding="0" width="580" align="center" border="0">
                                  <tbody>
                                    <tr>
                                      <td width="298"><img src="Skins/syimages/news.gif" width="265" height="35" /></td>
                                      <td width="10"><div align="left"></div></td>
                                      <td width="277"><img src="Skins/syimages/recommend.gif" width="265" height="35" /></td>
                                    </tr>
                                    <tr>
                                      <td><script src="Dv_News.asp?GetName=myuanzhuti"></script>
                                      </td>
                                      <td>　</td>
                                      <td><script src="Dv_News.asp?GetName=myuanhot"></script>
                                      </td>
                                    </tr>
                                  </tbody>
                          </table></td></tr>
                      </tbody>
                    </table>
                    <table cellspacing="0" cellpadding="0" width="580" align="center" border="0">
                      <tbody>
                        <tr>
                          <td width="298"><img src="Skins/syimages/newshishang.jpg" width="265" height="35" border="0" /></td>
                          <td width="10"><div align="left"></div></td>
                          <td width="277"><img src="Skins/syimages/newhaha.jpg" width="265" height="35" border="0" /></td>
                        </tr>
                        <tr>
                          <td><script src="Dv_News.asp?GetName=myuanzdy1"></script>
                          </td>
                          <td>　</td>
                          <td><script src="Dv_News.asp?GetName=myuanzdy2"></script>
                          </td>
                        </tr>
                      </tbody>
                    </table>
                    <table cellspacing="0" cellpadding="0" width="580" align="center" border="0">
                      <tbody>
                        <tr>
                          <td><img src="Skins/syimages/tupian.gif" width="580" height="43" /></td>
                        </tr>
                        <tr>
                          <td><p><script src="Dv_News.asp?GetName=myuanpic"></script>
                            </p>
                          </td>
                        </tr>
                      </tbody>
                    </table>
                                        <table cellspacing="0" cellpadding="0" width="580" align="center" border="0">
                      <tbody>
                        <tr>
                          <td><img src="Skins/syimages/link.gif" width="580" height="42" border="0" /></td>
                        </tr>
                        <tr>
                          <td><table cellspacing="10" cellpadding="0" width="100%" border="0">
                              <tbody>
                                <tr>
                                  <td>
								  
<div align="left">
<%
Getmylink() 
Function Getmylink() 
 Dim Rs,sql
 Dim m,i,k
 m=0
 k=1
 sql="select boardname,readme,url,logo,islogo from [Dv_Bbslink] orders"
 Set Rs=DVbbs.Execute(sql)
 If Not RS.Eof then
   SQL=Rs.GetRows(-1)
      
      rs.close:set rs=nothing
  response.write "<table  align=left>"
  response.write "<tr><td >"
  For i=0 To Ubound(SQL,2)
   if SQL(4,i)=1 then
   response.write "<a href="&SQL(2,i)&" target=""_blank""><img src="&SQL(3,i)&" border=0 width=""88"" height=""31"" title="&SQL(1,i)&"></a>"
     response.write "&nbsp;"
   k=k+1
   if k Mod(9)=1 then
   response.write "<br>"
   end if
   end if

  next
  response.write "<br>"
  For i=0 To Ubound(SQL,2)
   if SQL(4,i)=0 then
   response.write "〖<a href="&SQL(2,i)&" target=""_blank"" title="&SQL(1,i)&">"&SQL(0,i)&"</a>〗"      
     response.write "&nbsp;&nbsp;"
   end if
  next
 else
  response.write "<table align=left>"
  response.write "<tr><td class=tablebody1>"
  response.write "当前没有友情链接"
 end if
 response.write "</td></tr>"
 response.write "</table>"
End Function
%>
</div></td>
                                </tr>
                              </tbody>
                          </table></td>
                        </tr>
                      </tbody>
                </table></td>
                <td valign="top" width="10"></td>
              </tr>
            </tbody>
          </table>

</td>
    </tr>
  </tbody>
</table></td>       
</tr>
</table>
</td>
   <td width="25" background="Skins/Default/Myuanhtl/right.jpg"><img src="Skins/Default/Myuanhtl/right.jpg" border="0"></td>
  </tr>
  <tr>
   <td width="25"><img src="Skins/Default/Myuanhtl/foot_tl.jpg" border="0"></td>
   <td width="100%" height="43" background="Skins/Default/Myuanhtl/foot_tbg.jpg" align="right"><img src="Skins/Default/Myuanhtl/foot_trr.jpg" border="0"></td>
   <td width="25"><img src="Skins/Default/Myuanhtl/foot_tr.jpg" border="0"></td>
  </tr>
</table>
<table width="98%" cellpadding="0" cellspacing="0" border="0" align="center" background="Skins/Default/Myuanhtl/foot_bbg.jpg">
  <tr>
   <td width="159" height="106"><img src="Skins/Default/Myuanhtl/foot_bl.jpg" border="0"></td>
   <td width="100%" valign="top" style="padding-top:8px "  align="center">
<div style="width:100%;float:center;">
<div align="center">
Copyright (C) 2006 - 2008 MyuanIT All Rights Reserved.<br>
本站信息大部分来自于网络,如果您发现哪些信息侵犯到您的权益,请联系管理员,我们将在24小时内删除!
</div>
<div align="center"><font color="red">维护健康网络环境,你我大家人人有责!</font></div>
<div align="center"><a href="http://www.miibeian.gov.cn" target="_blank"><b>某ICP备00000000号</b></a></div>
</div>
</td>
<td width="140" height="106"><img src="Skins/Default/Myuanhtl/foot_br.jpg" border="0"></td>
</tr>
</table>
</map>
<map name="Map5">
<area shape="rect" coords="378,4,432,33" href="announcements.asp" target="_blank" alt="查看论坛中的所有公告信息！">
</map>
</body>
<script>
var online= new Array();
if (!document.layers)
document.write('<div id="divStayTopLeft" style="position:absolute">')
</script>
<layer id="divStayTopLeft">
<table border="0" width="100" cellspacing="0" cellpadding="0">
<tr><td width="100"><img border=0 src=Skins/syimages/kefu_up.gif></td></tr>
<script src="http://webpresence.qq.com/getonline?Type=1&<%=Myqq%>"></script>
<% for N=0 to UBound(QQ) %>
<tr><td valign=middle  background=Skins/syimages/kefu_middle.gif>
<script>
if (online[<%=n%>]==0)
document.write("&nbsp;&nbsp;<img src=Skins/syimages/QQoffline.gif border=0 align=middle><a class='qqb' target=blank href='http://wpa.qq.com/msgrd?V=1&Uin=<%=QQ(n)%>&Site=在线咨询&Menu=no' title='客服不在线，请留言'><%=QQ(n)%></a>");
else
document.write("&nbsp;&nbsp;<img src=Skins/syimages/QQonline.gif border=0 align=middle><a class='qqa' target=blank href='http://wpa.qq.com/msgrd?V=1&Uin=<%=QQ(n)%>&Site=在线咨询&Menu=no' title='在线即时交谈'><%=QQ(n)%></a>");
</script>
</td></tr>
<%next%>
<tr><td width="100"><img border=0 src=Skins/syimages/kefu_down.gif></td></tr>
</table>
</layer>
<script type="text/javascript">
//Enter "frombottom" or "fromtop"
var verticalpos="frombottom"
if (!document.layers)
document.write('</div>')
function JSFX_FloatTopDiv()
{
	var startX =868,
	startY = 308;
	var ns = (navigator.appName.indexOf("Netscape") != -1);
	var d = document;
	function ml(id)
	{
		var el=d.getElementById?d.getElementById(id):d.all?d.all[id]:d.layers[id];
		if(d.layers)el.style=el;
		el.sP=function(x,y){this.style.left=x;this.style.top=y;};
		el.x = startX;
		if (verticalpos=="fromtop")
		el.y = startY;
		else{
		el.y = ns ? pageYOffset + innerHeight : document.body.scrollTop + document.body.clientHeight;
		el.y -= startY;
		}
		return el;
	}
	window.stayTopLeft=function()
	{
		if (verticalpos=="fromtop"){
		var pY = ns ? pageYOffset : document.body.scrollTop;
		ftlObj.y += (pY + startY - ftlObj.y)/8;
		}
		else{
		var pY = ns ? pageYOffset + innerHeight : document.body.scrollTop + document.body.clientHeight;
		ftlObj.y += (pY - startY - ftlObj.y)/8;
		}
		ftlObj.sP(ftlObj.x, ftlObj.y);
		setTimeout("stayTopLeft()", 10);
	}
	ftlObj = ml("divStayTopLeft");
	stayTopLeft();
}
JSFX_FloatTopDiv();
</script> 
</html>
