www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/index_down_mb.asp
<!--#include file="top.asp"-->
<%
if MDBpath="" then
MDBpath=""
end if
newshu=8 '每个分类显示最新软件数
toplen=25
chalen=24
set rs_yl=server.CreateObject("ADODB.RecordSet")
set rs_down=server.CreateObject("ADODB.RecordSet")
set rs_type=server.CreateObject("ADODB.RecordSet")
set rs=server.CreateObject("ADODB.RecordSet")
%>
<!--#include file="mdb_path_down.asp"-->
<%thisfile="index"
'分隔游戏娱乐
YXid=9 '游戏娱乐ID号
rs.open ("select id from downtype where ts like '"&YXid&",%'"),conn,1,1
if not rs.eof then
do while not rs.eof
NoYXid=NoYXid&""&rs("id")&", "
rs.MoveNext
loop
end if
rs.close
'分隔游戏娱乐
''''分隔电子书库
SKid=11 '电子书库ID号
rs.open ("select id from downtype where ts like '"&SKid&",%'"),conn,1,1
if not rs.eof then
do while not rs.eof
NoSKid=NoSKid&""&rs("id")&", "
rs.MoveNext
loop
end if
rs.close
''''分隔电子书库
list=list&"|"
set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select * from downtype where tj=1 order by id",conn,1,1
if NOT rs.EOF then
allshu=rs.recordcount
Dim List1(20)
Dim List2(20)
Dim List3(20)
do while NOT rs.EOF
ii=ii+1
list=list&"<a href=""L"&rs("id")&"_1.Html""><font color=""#000000"">"&split(rs("tname"),"|")(rs("tj")-1)&"</font></a> |"
List1(ii)="<b><a href=""L"&rs("id")&"_1.Html""><font color=""#000000"">"&split(rs("tname"),"|")(rs("tj")-1)&"</font></a></b>"
List2(ii)="<div align=right><a href=""L"&rs("id")&"_1.Html""><b>更多内容 ...</b></a></div>"
i=0
sqqq_yl=""
sql_yl="select * from downtype where ts like '"&rs("ts")&"%'"
rs_yl.open sql_yl,conn,1,1
if not rs_yl.eof then
do while not rs_yl.eof
sqqq_yl=sqqq_yl& " or tid="&rs_yl("id")&""
rs_yl.MoveNext
loop
end if
rs_yl.close
rs_down.open "select * from down where tid="&rs("id")&""&sqqq_yl&" order by id desc",conn,1,1
if not rs_down.EOF then
do while not rs_down.eof
datetime=year(rs_down("date"))&"_"&month(rs_down("date"))&"_"&day(rs_down("date"))
datetime1=month(rs_down("date"))&"/"&day(rs_down("date"))
if len(rs_down("cxn")&rs_down("cxv"))>chalen then
cxnx=left(rs_down("cxn")&rs_down("cxv"),chalen)&"."
else
cxnx=rs_down("cxn")&rs_down("cxv")
end if
List3(ii)=List3(ii)&"<a cxn="""&rs_down("cxn")&""" target=""_blank"" href="""&rs_down("id")&".Html"">"&cxnx&"</a><font color=""#C0C0C0"">"&datetime1&"</font><br>"
i=i+1
if i>=newshu then exit do
rs_down.movenext
loop
end if
rs_down.close
rs.MoveNext
loop
end if
rs.close
set rs_yl=nothing
set rs_down=nothing
%>
<html>
<head>
<title>共享世纪·源码下载 > 网站源码、Flash源码、绿色源码、免费源码、源码网</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Keywords" content="asp,php,cgi,jsp,asp.net,源码,源码网,源码下载,php源码,cgi源码,jsp源码,.net源码,软件下载,免费下载，免费空间，素材下载" lang="zh-cn" />
<meta name="Description" content="免费脚本，中国脚本，源码，下载，ASP,PHP,JSP,c语言,VBscript,JS,VBS,网络安全,黑客攻防,服务器,虚拟主机,托管,CODE,新千年,下载">
<link rel="stylesheet" href="../skin4/main.css">
</head>
<div id=hint style="display:none"></div>
<body bgcolor="#CCCCCC" leftmargin="0" topmargin="0" text="#2F2F2F" style="text-align: center">
<div align="center">
<table width="760" align="center" bgcolor="#FFFFFF">
<tr>
<td height="25" align="right" ><a href="http://www.2ky.cn" class="biginfodh">首
页</a> ┆ <a href="/d/" title="下载中心" class="biginfodh">下载中心</a> ┆ <a href="/index.html" class="biginfodh">脚本学院</a> ┆ <a href="/sucai/" title="下载中心" class="biginfodh">免费素材</a> ┆ <a href="/js/" class="biginfodh">网页特效</a> ┆ <a href="/info/" class="biginfodh">站长查询</a> ┆ <a href="downmap.html" class="biginfodh">网站地图</a> ┆ <a href="/forum/" class="biginfodh">技术论坛</a> ┆ </td>
</tr>
<tr>
<td height="74"><table width="100%" border=0 align=center cellpadding=0 cellspacing=0>
<tr>
<td width="180" align="center" bgcolor="#00AEEF"><img src="../images/sharecentury.gif"></td>
<td width="500" align="center" valign="middle" bgcolor="#00AEEF"></td>
<td width="90" height="70" align="center" nowrap bgcolor="#00AEEF"><font color="#FFFFFF">■</font> <a onClick="this.style.behavior='url(#default#homepage)';this.sethomepage('http://www.2ky.cn');return false;" href="HTTP://WWW.2KY.CN" title="将本站设为你的首页">设为首页</a><br>
<font color="#FFFFFF">■</font> <a href="javascript:window.external.AddFavorite(location.href,document.title)" title="将本站加入到你的收藏夹">加入收藏</a><br>
<font color="#FFFFFF">■</font> <a href="mailto:lennyash#163.com">联系我们</a></td>
</tr>
</table></td>
</tr>
</table>
<TABLE width="760" border=0 cellPadding=0 cellSpacing=0 bgcolor="#FFFFFF">
<TBODY>
<TR>
<td align="center" height="28"><form method="post" action="../down_search.asp" style="display:inline">
<strong><font color="#993300">[世 纪 源 码] SEARCH </font></strong><font color="#993300">//</font><font color="#999999"> 输入源码名称</font>
<input name="k" style="border: 1px solid #999999; " size="60">
<select name="type">
<option value="title" selected>名称搜索</option>
<option value="info">简介搜索</option>
</select>
<input name="Submit" src="../images/d_search.gif" type="image" value="Submit" align="absmiddle" border="0">
</form></td>
</TR>
</TBODY>
</TABLE>
<table width="760" cellspacing="1" cellPadding=0 bgcolor="#FFFFFF" border=0>
<tr>
<td align="center"><script type="text/JavaScript">
var alimama_pid="mm_10050650_143901_303016";
var alimama_titlecolor="0000FF";
var alimama_descolor ="000000";
var alimama_bgcolor="FFFFFF";
var alimama_bordercolor="E6E6E6";
var alimama_linkcolor="008000";
var alimama_sizecode="11";
var alimama_width=760;
var alimama_height=90;
var alimama_type=2;
</script>
<script src="http://p.alimama.com/inf.js" type=text/javascript>
</script>
</td>
</tr>
</table>
<TABLE width=760 border=0 cellPadding=0 cellSpacing=1 bgcolor="#FFFFFF">
<TBODY>
<TR align=middle>
<TD><P align="center"> <%=list%><a href="../search.asp">检索中心
|</TD>
</TR>
</TBODY>
</TABLE>
</div>
<table width="760" border="0" align="center" bgcolor="#FFFFFF">
<tr>
<td width="200" valign="top"><TABLE width=98% height=30 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD height=2></TD>
</TR>
<TR>
<TD height=20><TABLE height=20 cellSpacing=0 cellPadding=0 width=100%
border=0>
<TBODY>
<TR>
<TD width=5 bgColor=#00AEEF><IMG height=5
src="images/spacer.gif" width=5></TD>
<TD width=1><IMG height=1
src="images/spacer.gif" width=1></TD>
<TD bgColor=#00AEEF> <font color="#FFFFFF">『下载公告』 >></font></TD>
<TD vAlign=top align=right bgColor=#00AEEF> </TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD height=1><TABLE height=1 cellSpacing=1 cellPadding=0 width="100%"
bgColor=#00AEEF border=0>
<TBODY>
<TR>
<TD bgColor=#ffffff height=1><TABLE height=79 cellSpacing=0 cellPadding=0
width="100%" border=0>
<TBODY>
<TR>
<TD align=middle height=79><table border=0 cellpadding=0 width="100%%" cellspacing="0">
<%
sql="select top 2 "
sql=sql&"news.id,news.newsname,news.addtime,news.newsnote,news.type "
sql=sql&" from news where news.type=2 "
sql=sql&" order by news.id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
没有任何公告
<%else%>
<%do while not rs.eof%>
<tr>
<td height="20" width="2%"></td>
<td valign="top" width="98%"><b>◎</b><%=rs("newsnote")%>
<%if rs("addtime")>=date() then%>
[<%=rs("addtime")%>]
<%else%>
[<%=rs("addtime")%>]
<%end if%>
<%
rs.movenext
loop
end if
rs.close
%>
</td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<TABLE width=98% height=30 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD height=2></TD>
</TR>
<TR>
<TD height=20><TABLE height=20 cellSpacing=0 cellPadding=0 width=100%
border=0>
<TBODY>
<TR>
<TD width=5 bgColor=#00AEEF><IMG height=5
src="images/spacer.gif" width=5></TD>
<TD width=1><IMG height=1
src="images/spacer.gif" width=1></TD>
<TD bgColor=#00AEEF> <font color="#FFFFFF">『下载统计』-> <%=year(date())%>/<%=month(date())%>/<%=day(date())%></font></TD>
<TD vAlign=top align=right bgColor=#00AEEF> </TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD height=1><TABLE height=1 cellSpacing=1 cellPadding=0 width="100%"
bgColor=#00AEEF border=0>
<TBODY>
<TR>
<TD height=1 align="center" bgColor=#ffffff><table border="0" cellpadding="0" cellspacing="0" width="95%" height="5">
<tr>
<td height="2" colspan="2"> </td>
</tr>
<tr>
<td width="100%" colspan="2" nowrap><div align="right"></div>
<a href="new/n0.html">资 源 总 数 统 计</a>： [ <font color="#FF0000">
<%
shu=0
sql="select count(*) from down"
rs2=conn.execute(sql)
shu=rs2(0)%>
<%=shu%></font> ]</td>
</tr>
<tr>
<td width="100%" height="1" nowrap><a href="update_1.html">ASP源码</a>：
<%
shu=0
sql="select count(*) from down where cd='ASP源码'"
rs2=conn.execute(sql)
shu=rs2(0)%>
<%=shu%></td>
<td width="100%" height="1" nowrap><a href="update_2.html">PHP源码</a>：
<%
shu=0
sql="select count(*) from down where cd='PHP源码'"
rs2=conn.execute(sql)
shu=rs2(0)%>
<%=shu%></td>
</tr>
<tr>
<td width="100%" height="1" nowrap><a href="update_3.html">JSP源码</a>：
<%
shu=0
sql="select count(*) from down where cd='JSP源码'"
rs2=conn.execute(sql)
shu=rs2(0)%>
<%=shu%></td>
<td width="100%" height="1" nowrap><a href="update_0.html">.NET源码</a>：
<%
shu=0
sql="select count(*) from down where cd like '%.NET%'"
rs2=conn.execute(sql)
shu=rs2(0)%>
<%=shu%></td>
</tr>
<tr>
<td width="100%" height="1" nowrap><a href="update_7.html">CGI源码</a>：
<%
shu=0
sql="select count(*) from down where cd like '%CGI%'"
rs2=conn.execute(sql)
shu=rs2(0)%>
<%=shu%></td>
<td width="100%" height="1" nowrap>其它源码： </td>
</tr>
<tr>
<td width="100%" height="1" align="left" nowrap><a href="update_7.html">安全工具</a>：
<%
shu=0
sql="select count(*) from down where cd='安全工具'"
rs2=conn.execute(sql)
shu=rs2(0)%>
<%=shu%></td>
<td width="100%" height="1" nowrap><a href="update_8.html">电子教程</a>：
<%
shu=0
sql="select count(*) from down where cd='电子教程'"
rs2=conn.execute(sql)
shu=rs2(0)%>
<%=shu%></td>
</tr>
<tr>
<td width="100%" height="1" nowrap>应用软件：
<%
shu=0
sql="select count(*) from down where cd='软件'"
rs2=conn.execute(sql)
shu=rs2(0)%>
<%=shu%></td>
<td width="100%" height="1" nowrap><a href="update_8.html">模板素材</a>：
<%
shu=0
sql="select count(*) from down where cd='素材'"
rs2=conn.execute(sql)
shu=rs2(0)%>
<%=shu%></td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<TABLE width=98% height=30 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD height=2></TD>
</TR>
<TR>
<TD height=20><TABLE height=20 cellSpacing=0 cellPadding=0 width=100%
border=0>
<TBODY>
<TR>
<TD width=5 bgColor=#00AEEF><IMG height=5
src="images/spacer.gif" width=5></TD>
<TD width=1><IMG height=1
src="images/spacer.gif" width=1></TD>
<TD bgColor=#00AEEF> <font color="#FFFFFF">『下载搜索』</font></TD>
<TD vAlign=top align=right bgColor=#00AEEF> </TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD height=1><TABLE height=1 cellSpacing=1 cellPadding=0 width="100%"
bgColor=#00AEEF border=0>
<TBODY>
<TR>
<TD bgColor=#ffffff height=1><TABLE height=79 cellSpacing=0 cellPadding=0
width="100%" border=0>
<TBODY>
<TR>
<TD height=79><script language="javascript">
function lovertysearch () {
var wd=document.getElementsByName("wd")[0].value;
var link="http://www.baidu.com/s?si=" + website + "&ct=2097152&tn=baidulocal&word="+wd;
//website + "&wd=" + to_search[0].value;
window.open(link);
}
</script>
<script language="javascript">
var website="2ky.cn";
//不要带http://
</script>
<input name="wd" type="text" style="border: 1px dotted #CCCCCC;" size="28" />
<br>
<br>
<input type="button" value=" 百度全站检索 " onClick="javascript:lovertysearch()" /></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<TABLE width=98% height=30 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD height=2></TD>
</TR>
<TR>
<TD height=20><TABLE height=20 cellSpacing=0 cellPadding=0 width=100%
border=0>
<TBODY>
<TR>
<TD width=5 bgColor=#00AEEF><IMG height=5
src="images/spacer.gif" width=5></TD>
<TD width=1><IMG height=1
src="images/spacer.gif" width=1></TD>
<TD bgColor=#00AEEF> <font color="#FFFFFF">『总下载排行』</font></TD>
<TD vAlign=top align=right bgColor=#00AEEF> </TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD height=1><TABLE height=1 cellSpacing=1 cellPadding=0 width="100%"
bgColor=#00AEEF border=0>
<TBODY>
<TR>
<TD bgColor=#ffffff height=80><%
i=0
sql="select top 15 cxn,cxv,id,tid from down where tid<>118 order by hits desc"
rs.open sql,conn,1,1
if rs.eof then
response.write"还没有软件"
else
do while not rs.eof
response.write"·<a href="""&rs("id")&".html"">"&rs("cxn")&" "&rs("cxv")&"</a><br>"
i=i+1
if i>=15 then exit do
rs.movenext
loop
end if
rs.close
%>
</TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<TABLE width=98% height=30 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD height=2></TD>
</TR>
<TR>
<TD height=20><TABLE height=20 cellSpacing=0 cellPadding=0 width=100%
border=0>
<TBODY>
<TR>
<TD width=5 bgColor=#00AEEF><IMG height=5
src="images/spacer.gif" width=5></TD>
<TD width=1><IMG height=1
src="images/spacer.gif" width=1></TD>
<TD bgColor=#00AEEF> <font color="#FFFFFF">『下载展示』</font></TD>
<TD vAlign=top align=right bgColor=#00AEEF> </TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD height=1><TABLE height=1 cellSpacing=1 cellPadding=0 width="100%"
bgColor=#00AEEF border=0>
<TBODY>
<TR>
<TD bgColor=#ffffff height=80 align="center"><%
i=0
sql="select top 1 id,tid,cxn,cxv,pic,body from down where pic<>'' and show=1 "&noid&" order by date desc"
'sql="select top 1 id,tid,cxn,cxv,pic from down where pic<>'' and show=1 order by date desc"
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
noid=noid&" and id<>"&rs("id")&""
i=i+1
%>
<A
href="<%=rs("id")%>.html"
target=_blank><IMG alt="<%=rs("cxn")&" "&rs("cxv")%>" border=0
height=96 src="<%=rs("pic")%>"
style="BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid"
width=126><BR>
〖<font color="#0066CC"><%=left(rs("cxn"),15)&" "&rs("cxv")%></font>〗</A> <br>
<%=left(RemoveHTML(rs("body")),200)%>... <BR>
<%if i>=1 then exit do
rs.movenext
loop
end if
rs.close
%>
</TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<TABLE width=98% height=30 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD height=2></TD>
</TR>
<TR>
<TD height=20><TABLE height=20 cellSpacing=0 cellPadding=0 width=100%
border=0>
<TBODY>
<TR>
<TD width=5 bgColor=#00AEEF><IMG height=5
src="images/spacer.gif" width=5></TD>
<TD width=1><IMG height=1
src="images/spacer.gif" width=1></TD>
<TD bgColor=#00AEEF> <font color="#FFFFFF">『推荐下载』</font></TD>
<TD vAlign=top align=right bgColor=#00AEEF> </TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD height=1><TABLE height=1 cellSpacing=1 cellPadding=0 width="100%"
bgColor=#00AEEF border=0>
<TBODY>
<TR>
<TD bgColor=#ffffff height=80><%
i=0
sql="select top 10 cxn,cxv,id,tid from down where show=1 order by hits desc"
rs.open sql,conn,1,1
if rs.eof then
response.write"还没有软件"
else
do while not rs.eof
response.write"☆ <a href="""&rs("id")&".html"">"&rs("cxn")&" "&rs("cxv")&"</a><br>"
i=i+1
if i>=10 then exit do
rs.movenext
loop
end if
rs.close
%>
</TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<TABLE width=98% height=30 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD height=2></TD>
</TR>
<TR>
<TD height=20><TABLE height=20 cellSpacing=0 cellPadding=0 width=100%
border=0>
<TBODY>
<TR>
<TD width=5 bgColor=#00AEEF><IMG height=5
src="images/spacer.gif" width=5></TD>
<TD width=1><IMG height=1
src="images/spacer.gif" width=1></TD>
<TD bgColor=#00AEEF> <font color="#FFFFFF">『友情链接』</font></TD>
<TD vAlign=top align=right bgColor=#00AEEF> </TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD height=1><TABLE height=1 cellSpacing=1 cellPadding=0 width="100%"
bgColor=#00AEEF border=0>
<TBODY>
<TR>
<TD bgColor=#ffffff height=80><div align="center"><span style="FONT-SIZE: 12px"><font color="#003333"><a href="http://host.2ky.cn" style="color: #333333; text-decoration: none">一网虚拟主机</a><br>
</font></span></div></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></td>
<td align="center" valign="top"><TABLE width=98% height=30 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD height=2></TD>
</TR>
<TR>
<TD height=20><TABLE height=20 cellSpacing=0 cellPadding=0 width=100%
border=0>
<TBODY>
<TR>
<TD width=5 bgColor=#00AEEF><IMG height=5
src="images/spacer.gif" width=5></TD>
<TD width=1><IMG height=1
src="images/spacer.gif" width=1></TD>
<TD bgColor=#00AEEF> <font color="#FFFFFF">『最新下载图』</font></TD>
<TD vAlign=top align=right bgColor=#00AEEF> </TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD height=1><TABLE height=1 cellSpacing=1 cellPadding=0 width="100%"
bgColor=#00AEEF border=0>
<TBODY>
<TR>
<TD bgColor=#ffffff height=1><TABLE height=79 cellSpacing=0 cellPadding=0
width="100%" border=0>
<TBODY>
<TR>
<TD align=middle height=79><table width="100%" height="82" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<%
i=0
sql="select top 4 id,tid,cxn,cxv,pic from down where pic<>'' and show=1 order by date desc"
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
noid=noid&" and id<>"&rs("id")&""
i=i+1
response.write"<td align=""center"" valign=""middle"" width=""25%"" height=""110"">"
response.write"<a target=""_blank"" href="""&rs("id")&".html"">"
response.write"<div align=""center""><img alt="""&rs("cxn")&" "&rs("cxv")&""" src="""&rs("pic")&""" border=""0"" width=""110"" height=""90""></div>"&left(rs("cxn"),10)&"</a>"
response.write"</td>"
if i>=4 then exit do
rs.movenext
loop
end if
rs.close
%>
<%for i=0 to 3-i%>
<td width="95" align="center"><br>
<a href="help/adv.html" target="_blank"> <img src="../ads/gg95x75.gif" width="95" height="75" border="0"></a> 特价广告位招租<br>
QQ:406006595</td>
<%next%>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<br>
<TABLE width=98% height=23 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD height=2></TD>
</TR>
<TR>
<TD height=20><TABLE height=20 cellSpacing=0 cellPadding=0 width=100%
border=0>
<TBODY>
<TR>
<TD width=5 bgColor=#00AEEF><IMG height=5
src="images/spacer.gif" width=5></TD>
<TD width=1><IMG height=1
src="images/spacer.gif" width=1></TD>
<TD bgColor=#00AEEF> <font color="#FFFFFF">『最近更新』</font></TD>
<TD vAlign=top align=right bgColor=#00AEEF> </TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD height=1><TABLE height=1 cellSpacing=1 cellPadding=0 width="100%"
bgColor=#00AEEF border=0>
<TBODY>
<TR>
<TD bgColor=#ffffff height=1><TABLE height=79 cellSpacing=0 cellPadding=0
width="100%" border=0>
<TBODY>
<TR>
<td height="131" valign="top"><%
i=0
sql="select top 10 cxn,cxv,id,tid,date from down order by date desc"
rs.open sql,conn,1,1
if rs.eof then
%>
还没有软件
<%
else
do while not rs.eof
%>
「
<%
rs_type.open "select tname from downtype where id="&rs("tid"),conn,1,1
if not rs_type.EOF then
TN=split(rs_type("tname"),"|")
response.write"<a href=""L"&rs("tid")&"_1.html"">"&TN(ubound(TN)-1)&"</a>"
end if
rs_type.close
%>
」<a href="<%=rs("id")%>.html"><%=rs("cxn")&" "&rs("cxv")%></a>(<%=month(rs("date"))%>/<%=day(rs("date"))%>) <br>
<%
i=i+1
if i>=10 then exit do
rs.movenext
loop
end if
rs.close
%>
</td>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
</table>
<table width="98%" bgcolor="#eeeeee">
<tr>
<td width="60" align="center">成<br/>
人<br/>
笑<br/>
话</td>
<td><script language="JavaScript" type="text/JavaScript" src="http://code.qihoo.com/ad_bcast/html_show.js?a=2039&b=1003&p=2001&nt=&w=468&h=82&m=156158"> </script>
</td>
</tr>
</table>
<table width="100%" height="120" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="4" height="149"></td>
<td height="140" colspan="2" align="center" valign="top"><div align="center"></div>
<table width="540" border="0" cellspacing="0">
<tr>
<td width="124" bgcolor="#00AEEF">■ <%=List1(1)%></td>
<td width="124" bgcolor="#00AEEF"> </td>
<td width="5"> </td>
<td width="124" bgcolor="#00AEEF">■ <%=List1(2)%></td>
<td width="124" bgcolor="#00AEEF"></td>
</tr>
<tr>
<td width="248" bgcolor="#00AEEF" height="1" colspan="2"></td>
<td width="5" height="1"></td>
<td width="242" bgcolor="#5A7CCC" height="1" colspan="2"></td>
</tr>
<tr>
<td width="248" valign="top" colspan="2"><%=List3(1)%> <%=List2(1)%> </td>
<td width="5"> </td>
<td width="248" valign="top" colspan="2"><%=List3(2)%> <%=List2(2)%> </td>
</tr>
<tr>
<td width="124" bgcolor="#00AEEF">■ <%=List1(3)%> </td>
<td width="124" bgcolor="#00AEEF"></td>
<td width="5"> </td>
<td width="124" bgcolor="#00AEEF">■ <%=List1(4)%> </td>
<td width="124" bgcolor="#00AEEF"></td>
</tr>
<tr>
<td width="248" bgcolor="#00AEEF" height="1" colspan="2"></td>
<td width="5" height="1"></td>
<td width="242" bgcolor="#00AEEF" height="1" colspan="2"></td>
</tr>
<tr>
<td width="248" valign="top" colspan="2"><%=List3(3)%> <%=List2(3)%> </td>
<td width="5"> </td>
<td width="248" valign="top" colspan="2"><%=List3(4)%> <%=List2(4)%> </td>
</tr>
<tr>
<td width="124" bgcolor="#00AEEF">■ <%=List1(5)%> </td>
<td width="124" bgcolor="#00AEEF"></td>
<td width="5"> </td>
<td width="124" bgcolor="#00AEEF">■<b><a href="software/"> <%=List1(6)%></a></b></td>
<td width="124" bgcolor="#00AEEF"> </td>
</tr>
<tr>
<td width="248" bgcolor="#5A7CCC" height="1" colspan="2"></td>
<td width="5" height="1"></td>
<td width="242" bgcolor="#00AEEF" height="1" colspan="2"></td>
</tr>
<tr>
<td width="248" valign="top" colspan="2"><%=List3(5)%> <%=List2(5)%> </td>
<td width="5"> </td>
<td width="248" valign="top" colspan="2"><%=List3(6)%> <%=List2(6)%></td>
</tr>
</table></td>
</tr>
<tr>
<td height="1" colspan="2"><div align="left"><b>【</b>Ad position<b>】</b></div></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellPadding="0" cellSpacing="0" background="../skin4/0617471721.gif">
<tbody>
<tr>
<td background="../skin/main/0617471721.gif" bgcolor="#FFFFAE"><table border="0" cellpadding="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#808080" width="100%" bgcolor="#808080">
<%
set rs=server.CreateObject("ADODB.RecordSet")
set rs_list=server.CreateObject("ADODB.RecordSet")
rs.open "select * from downtype where tj=1",conn,1,1
if NOT rs.EOF then
do while NOT rs.EOF
jjj=0
c=c+1
if c=2 then
cc="#F4F4F4"
c=0
else
cc="white"
end if
%>
<tr>
<td width="17%" bgcolor="<%=cc%>" align="center"><a href="../d/L<%=rs("id")%>_1.html"><font color="#000000"><%=split(rs("tname"),"|")(rs("tj")-1)%></font></a></td>
<td width="85%" bgcolor="<%=cc%>"><table border="0" cellpadding="2" cellspacing="2" style="border-collapse: collapse" width="100%" bgcolor="#FFFFFF" height="20">
<%
rs_list.open "select * from downtype where ts like '"&rs("ts")&"%' and id<>"&rs("id")&" order by ts",conn,1,1
if NOT rs_list.EOF then
%>
<tr>
<%
do while not rs_list.eof
i=1
Do While i<=5
%>
<td width="20%" bgcolor="<%=cc%>" align="center" height="15"><a href="../d/L<%=rs_list("id")%>_1.html"><font color="#000000"><%=split(rs_list("tname"),"|")(rs_list("tj")-1)%></font></a></td>
<%
i=i+1
rs_list.MoveNext
if rs_list.eof then
exit do
end if
loop
%>
<%for l=0 to 5-i%>
<td width="20%" bgcolor="<%=cc%>" align="center" height="20"></td>
<%next%>
</tr>
<%
loop
end if
rs_list.close
%>
</table></td>
</tr>
<%
rs.MoveNext
loop
end if
rs.close
set rs=nothing
set rs_list=nothing
conn.close
set conn=nothing%>
</table></td>
</tr>
</tbody>
</table></td>
</tr>
</table>
<table width="760" cellspacing="2" cellPadding=0 bgcolor="#eeeeee" border=0>
<tr>
<script language="JavaScript" type="text/JavaScript" src="http://code.qihoo.com/ad_bcast/html_show.js?a=2007&b=1003&p=2001&nt=&w=760&h=132&m=156158"> </script>
</tr>
</table>
<table width="760" align="center" bgcolor="#FFFFFF" class="tableborder">
<tr>
<td width="779" height="5">友情链接： <a href=http://www.shangdu.org target=_blank>5566高考网</a> <a href=http://www.firefoxc.org target=_blank>firefox下载</a> <a href="http://www.xadesign.org/" target=_blank>西安设计</a></td>
</tr>
<tr>
<td height="8" bgcolor="#00AEEF" class="linebar" colspan="2"></td>
</tr>
<tr>
<td height="5"></td>
</tr>
<tr>
<td height="65" align="center" class="tablebody">关于本站 - 网站帮助 - 广告合作 - 下载声明
- 友情连接 - <a href="downmap.html">网站地图</a> - 管理登录 <br>
Copyright © 2006-2008 <a href=http://www.2ky.cn target=_blank><font face=Verdana, Arial, Helvetica, sans-serif><b>2KY<font color=#CC0000>.CN</font></b></font></a>.
All Rights Reserved . <br>
<a href="http://www.miibeian.gov.cn" target=_blank>陕ICP备
06000505 号</a><br>
<script language="javascript" type="text/javascript" src="http://js.users.51.la/1126595.js"></script> <a href="http://www.pagerank.net/" title="Search Engine Optimization" target="_blank"><img src="http://www.pagerank.net/pagerank.gif" alt="Search Engine Optimization" style="border: 0;"></a>
</td>
<TD align=center><a href='#' target=_blank><img src="../images/xaguard.gif" border=0><br/>
XA10870S</a></TD>
</tr>
</table>
</body>
</html>
<%
Function RemoveHTML(strHTML) '过滤HTML代码的函数包括过滤CSS和JS
StrHtml = Replace(StrHtml,vbCrLf,"")
StrHtml = Replace(StrHtml,Chr(13)&Chr(10),"")
StrHtml = Replace(StrHtml,Chr(13),"")
StrHtml = Replace(StrHtml,Chr(10),"")
StrHtml = Replace(StrHtml," ","")
StrHtml = Replace(StrHtml," ","")
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
'取闭合的<>
objRegExp.Pattern = "<style(.+?)/style>"
'进行匹配
Set Matches = objRegExp.Execute(strHTML)
' 遍历匹配集合，并替换掉匹配的项目
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
Next
'取闭合的<>
objRegExp.Pattern = "<script(.+?)/script>"
'进行匹配
Set Matches = objRegExp.Execute(strHTML)
' 遍历匹配集合，并替换掉匹配的项目
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
Next
'取闭合的<>
objRegExp.Pattern = "<.+?>"
'进行匹配
Set Matches = objRegExp.Execute(strHTML)
' 遍历匹配集合，并替换掉匹配的项目
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
Next
RemoveHTML=strHTML
Set objRegExp = Nothing
End Function
%>