www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/index_down.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"" class=""biginfodh"">"&split(rs("tname"),"|")(rs("tj")-1)&"</a>·"
List1(ii)="<b><a href=""L"&rs("id")&"_1.Html"">"&split(rs("tname"),"|")(rs("tj")-1)&"</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"))
List3(ii)=List3(ii)&"<li><a cxn="""&rs_down("cxn")&""" target=""_blank"" href="""&rs_down("id")&".Html"">"&CutStr(rs_down("cxn"),30)&"</a><font color=""#C0C0C0"">"&datetime1&"</font></li>"
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
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<HTML xmlns="http://www.w3.org/1999/xhtml">
<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="../images/down_index.css" type="text/css" />
</HEAD>
<BODY>
<div id="navigation_top"><a href="http://www.2ky.cn" class="biginfodh">首
页</a> ┆ <a href="http://code.2ky.cn" title="下载中心" class="biginfodh">下载中心</a> ┆ <a href="/Special/" class="biginfodh">站长专题</a> ┆ <a href="/sucai" class="biginfodh">素材模板</a> ┆ <a href="/js" class="biginfodh">网页特效</a> ┆ <a href="/info/" class="biginfodh">站长查询</a> ┆ <a href="/forum/" class="biginfodh">技术论坛</a> ┆ </div>
<div class="globalMenu">
<div class="title"><A href="http://www.2ky.cn/"><IMG
src="../images/sharecentury.gif" width="233" border="0"></A></div>
<div class="content">
<ul>
<li><a href="/gb/">用户留言</a> </li>
<li><a href="javascript:window.external.AddFavorite(location.href,document.title)" title="将本站加入到你的收藏夹">加入收藏</a></li>
<li><a href="mailto:lennyash@2ky.cn">联系我们</a></li>
</ul>
</div>
</div>
<div class="clear"></div>
<div id="navigation"><%=list%></div>
<div id="flistindex">
<div class="right" id="slistl">
<div class="slistlt">资源图片</div>
<!-- 源码图片通栏开始 -->
<ul class="photo_layout">
<%
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"<li class=""lay""><a target=""_blank"" href="""&rs("id")&".html"">"
response.write"<img alt="""&rs("cxn")&" "&rs("cxv")&""" src="""&rs("pic")&""" /></a><p class=""photo_title"">"&CutStr(rs("cxn"),15)&"</p>"
response.write" </li>"
if i>=4 then exit do
rs.movenext
loop
end if
rs.close
%>
</ul>
<!-- 源码图片通栏结束 -->
<div class="wzy_a_td1_h">
<div class="wzy_a_td1_h_text"
align="left">下载更新</div>
</div>
<div class="softab" align="left">
<%
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
%>
<div class="clear"></div>
</div>
<div class="crclist">
<ul class="dlist">
<div class="dlist-title"> <%=List1(1)%></div>
<%=List3(1)%> <%=List2(1)%>
</ul>
<ul class="dlist">
<div class="dlist-title"> <%=List1(2)%></div>
<%=List3(2)%> <%=List2(2)%>
</ul>
<ul class="dlist">
<div class="dlist-title"> <%=List1(3)%></div>
<%=List3(3)%> <%=List2(3)%>
</ul>
<ul class="dlist">
<div class="dlist-title"> <%=List1(4)%></div>
<%=List3(4)%> <%=List2(4)%>
</ul>
<ul class="dlist">
<div class="dlist-title"> <%=List1(5)%></div>
<%=List3(5)%> <%=List2(5)%>
</ul>
<ul class="dlist">
<div class="dlist-title"> <%=List1(6)%></div>
<%=List3(6)%> <%=List2(6)%>
</ul>
</div>
<div align="center" class="crclist">
<iframe id="baiduframe" marginwidth="0" marginheight="0" scrolling="no"
framespacing="0" vspace="0" hspace="0" frameborder="0" width="578" height="80"
src="http://unstat.baidu.com/bdun.bsc?tn=lennyash&cv=0&cid=195707&csid=106&bgcr=f9fcfe&ftcr=000000&urlcr=0000ff&tbsz=300&sropls=1,2,3,4,5,6,7,9,11&kwgp=19"> </iframe>
</div>
<div class="wzy_a_td1_h">
<div class="wzy_a_td1_h_text"
align="left">下载分类</div>
</div>
<div align="left" id="mytable" >
<table border="0" cellpadding="0" cellspacing="1" style="border-collapse: collapse" width="100%">
<%
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
%>
<tr>
<th><a href="../d/L<%=rs("id")%>_1.html"><font color="#000000"><%=split(rs("tname"),"|")(rs("tj")-1)%></font></a></th>
<td width="80%" bgcolor="white"><table border="0" cellpadding="2" cellspacing="2" style="border-collapse: collapse">
<%
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%"><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%"></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
%>
</table>
</div>
<br />
</div>
<div class="left" id="slistr">
<div class="crclass">
<div class="crt"><SPAN class="cBlue">站点公告</SPAN> </div>
<div class="crc list">
<ul>
<%
set rs=server.CreateObject("ADODB.RecordSet")
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%>
<li> <%=rs("newsnote")%>
<%if rs("addtime")>=date() then%>
[<%=rs("addtime")%>]
<%else%>
[<%=rs("addtime")%>]
<%end if%>
</li>
<%
rs.movenext
loop
end if
rs.close
%>
</ul>
</div>
</div>
<div class="crclass">
<div class="crt"><SPAN class="cBlue">下载统计 > <%=year(date())%>-<%=month(date())%>-<%=day(date())%></SPAN> </div>
<div class="crc list">
<ul>
<li>下载总数：
<%
shu=0
sql="select count(*) from down"
rs2=conn.execute(sql)
shu=rs2(0)%>
<%=shu%></li>
<li>ASP源码：
<%
shu=0
sql="select count(*) from down where cd='ASP源码'"
rs2=conn.execute(sql)
shu=rs2(0)%>
<%=shu%></li>
<li>PHP源码：
<%
shu=0
sql="select count(*) from down where cd='PHP源码'"
rs2=conn.execute(sql)
shu=rs2(0)%>
<%=shu%></li>
<li>.NET源码：
<%
shu=0
sql="select count(*) from down where cd='.NET源码'"
rs2=conn.execute(sql)
shu=rs2(0)%>
<%=shu%></li>
<li>JSP源码：
<%
shu=0
sql="select count(*) from down where cd='JSP源码'"
rs2=conn.execute(sql)
shu=rs2(0)%>
<%=shu%></li>
<li>CGI源码：
<%
shu=0
sql="select count(*) from down where cd='CGI源码'"
rs2=conn.execute(sql)
shu=rs2(0)%>
<%=shu%></li>
<li>安全工具：
<%
shu=0
sql="select count(*) from down where cd='*安全工具*'"
rs2=conn.execute(sql)
shu=rs2(0)%>
<%=shu%></li>
<li>电子教程：
<%
shu=0
sql="select count(*) from down where cd='电子书'"
rs2=conn.execute(sql)
shu=rs2(0)%>
<%=shu%></li>
<li>应用软件：
<%
shu=0
sql="select count(*) from down where cd='应用软件'"
rs2=conn.execute(sql)
shu=rs2(0)%>
<%=shu%></li>
<li>素材模板：
<%
shu=0
sql="select count(*) from down where cd='素材模板'"
rs2=conn.execute(sql)
shu=rs2(0)%>
<%=shu%></li>
</ul>
</div>
</div>
<div class="crclass">
<div class="crt"><SPAN class="cBlue">总下载排行</SPAN></div>
<div class="crclist">
<ul>
<%
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"<li><a href="""&rs("id")&".html"">"&rs("cxn")&" "&rs("cxv")&"</a></li>"
i=i+1
if i>=15 then exit do
rs.movenext
loop
end if
rs.close
%>
</ul>
</div>
</div>
<div class="crclass">
<div class="crt"><SPAN class="cBlue">推荐资源</SPAN> </div>
<div class="crc lass"> <br />
<%
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")%>" height="96" src="<%=rs("pic")%>" width="126"><BR />
〖<%=CutStr(rs("cxn"),15)&" "&rs("cxv")%>〗</A> <br />
<%=CutStr(RemoveHTML(rs("body")),200)%>... <BR/>
<%if i>=1 then exit do
rs.movenext
loop
end if
rs.close
%>
</div>
</div>
<div class="crclass">
<div class="crt"><SPAN class="cBlue">推荐下载排行</SPAN></div>
<div class="crclist">
<ul>
<%
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"<li><a href="""&rs("id")&".html"">"&rs("cxn")&" "&rs("cxv")&"</a></li>"
i=i+1
if i>=10 then exit do
rs.movenext
loop
end if
rs.close
%>
</ul>
</div>
</div>
</div>
</div>
<div class="clear"></div>
<div class="blank9"></div>
<div> </div>
<div class="blank6"></div>
<div class="blank9"></div>
<div class="about">
<ul>
<li><a href="#">关于本站</a> - <a href="#">广告合作</a> - <a href="#">下载声明</a> - <a href="./downmap.html">网站地图</a> - <a href="#">联系我们</a> - <a href="#">友情连接</a> - <a href="/gb/">用户留言</a></li>
</ul>
</div>
<div class="blank6"></div>
<div class="foot">
<div class="center" id="contactus">COPYRIGHT © 2006-2008 <a href="http://www.2ky.cn" target="_blank"><font face="Verdana, Arial, Helvetica, sans-serif"><b>2KY<font color="#CC0000">.CN</b></a> 网监备案：XA10870S <A
href="http://www.miibeian.gov.cn/">陕ICP备06000505号</A> 版权所有<BR />
<span class="alert">希望我们的工作能有幸为您提供便利，您的选择，我们的荣耀！ </span><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> </div>
</div>
<div id="ADloading" class="ADloading">
<!--广告-->
</div>
<div id="alimama"></div>
</div>
<!--置换广告结束-->
</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
%>
<%
function CutStr(str,strlen)
dim I,l,t,c
l=len(str)
t=0
for I=1 to l
c=Abs(Asc(Mid(str,i,1)))
if c>255 then
t=t+2
else
t=t+1
end if
if t>=strlen Then
If I<>l Then cutStr=left(str,i)&"."
exit for
else
cutStr=str
end if
next
end function
%>