⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 sort.asp

📁 一个带有后台管理的小偷程序
💻 ASP
字号:
🔍 
<!--#include file=bty888.inc--><!--#include file=Config.asp-->
<!--#include file="incSpec.asp" -->
<%
Server.ScriptTimeOut=120
dim id
on error resume next 
	id=request("id")
	if id="" then
	id=01
	end if
	typeid=request("typeid")
	page=request("page")
	if page="" then
	page=1
	end if
	if typeid<>"" then
	url="http://www.skycn.net/sort/sort2"&id&typeid&"00_indate_DESC_"&page&".html"
	else
	url="http://www.skycn.net/sort/sort"&id&"0000_indate_DESC_"&page&".html"
	end if
	set myCache=new cache
	myCache.name=id&typeid&page
	if myCache.valid then
	sortcode = myCache.value
	else
	sortcode=getHTTPPage(url)
	myCache.add sortcode,dateadd("d",1,now)
	end if 	
	if err.number=0 then
	start=Instr(sortcode,"</td></tr><tr><td align='center'>")+33
	over=Instr(sortcode,"<br></td></tr>")
	typecode=mid(sortcode,start,over-start)
	typearr=split(typecode,"<A href=")
	for i=1 to ubound(typearr)
	if i<10 then
	typelistcode=typelistcode&"<img src=images/-.gif border=0 align=absmiddle>&nbsp;<A href=sort.asp?id="&id&"&typeid=0"&i&right(typearr(i),len(typearr(i))-32)
	else
	typelistcode=typelistcode&"<img src=images/-.gif border=0 align=absmiddle>&nbsp;<A href=sort.asp?id="&id&"&typeid="&i&right(typearr(i),len(typearr(i))-32)
	end if
	next
	start=Instr(sortcode,"<tr><td align='left'>")+21
	over=Instr(sortcode,"<script language=javascript src=../js/fl_ad3.js></script>")
	topcode=mid(sortcode,start,over-start)
	topcode=replace(topcode,"../soft/","soft.asp?id=")
	topcode=replace(topcode,".html","")
	start=Instr(sortcode,"合计")+2
	over=Instr(sortcode,"条软件")
	totalnum=mid(sortcode,start,over-start)
	start=Instr(sortcode,"| 共")+3
	over=Instr(sortcode,"页 |")
	totalpage=mid(sortcode,start,over-start)
	softlistarr=split(sortcode,"<td align=left width=355>")
	for i=1 to ubound(softlistarr)
	over=Instr(softlistarr(i),"<tr><td colspan=4>")-1
	softlistcode=mid(softlistarr(i),1,over)
	softlistcode=replace(softlistcode,"../soft/","soft.asp?id=")
	softlistcode=replace(softlistcode,".html","")
	softcode=softcode&"<tr bgcolor='#FFFFFF'><td width='420'>"&softlistcode
	next
	Erase softlistarr
	else 
		wscript.echo err.description 
	end if
	%>
<HTML>
<HEAD>
<TITLE><%
select case id
case 01
response.write "网络软件"
case 02
response.write "系统工具"
case 03
response.write "应用软件"
case 04
response.write "联络聊天"
case 05
response.write "图形图像"
case 06
response.write "多媒体类"
case 07
response.write "行业软件"
case 08
response.write "游戏娱乐"
case 09
response.write "编程开发"
case 10
response.write "安全相关"
case 11
response.write "教育教学"
case 12
response.write "源码下载"
case else
response.redirect "index.asp"
end select
%> - 软件列表 → <%=DownName%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><meta http-equiv="Content-Language" content="zh-cn">
<LINK href="<%=WebUrl%>/favicon.ico" rel="shortcut icon">
<meta name=description content="<%=Downdescription%>"><meta name="keywords"content="<%=Downkeywords%>">
<LINK href="images/style.css" type=text/css rel=stylesheet>
<BASE onmouseover="window.status=' 欢迎您来到本站：请将本站推荐给你ＱＱ上的好友，谢谢！广告投放QQ:85850013　';return true" target="_parent">
<!--#include file="head.asp" --></HEAD>
<BODY leftMargin=0 topMargin=0><CENTER>
  <table width="770" border="0" align="center" cellpadding="0" cellspacing="0" class=2b>
    <tr> 
      <td width="772" height="24" bgcolor="#FFFFFF"><img src="images/tp009.gif" width="15" height="15" align="absmiddle"> 
        当前位置：<a target="_top" href="index.asp">软件下载</a> → 
        <%
select case id
case 01
response.write "<a href=sort.asp?id=01>网络软件</a>"
case 02
response.write "<a href=sort.asp?id=02>系统工具</a>"
case 03
response.write "<a href=sort.asp?id=03>应用软件</a>"
case 04
response.write "<a href=sort.asp?id=04>联络聊天</a>"
case 05
response.write "<a href=sort.asp?id=05>图形图像</a>"
case 06
response.write "<a href=sort.asp?id=06>多媒体类</a>"
case 07
response.write "<a href=sort.asp?id=07>行业软件</a>"
case 08
response.write "<a href=sort.asp?id=08>游戏娱乐</a>"
case 09
response.write "<a href=sort.asp?id=09>编程开发</a>"
case 10
response.write "<a href=sort.asp?id=10>安全相关</a>"
case 11
response.write "<a href=sort.asp?id=11>教育教学</a>"
case else
response.redirect "index.asp"
end select
%>
        → 列表&nbsp;&nbsp;&nbsp;&nbsp;<b><a target="_blank" href="Soft_sort.asp">
		<font color="#008000">软件分类导航</font></a></b>&nbsp;&nbsp; <b>
		<a target="_blank" href="http://www.363net.com/blog">
		<font color="#FF6600">红丝带在行动</font></a></b>&nbsp;&nbsp; <b>
		<a href="http://www.363net.com/bt" target="_blank" href="Bt"><font color="#008080">BT电影高速下载</font></a></b>&nbsp;
		<b>
		<a href="new.asp"><font color="#800000">最近更新软件</font></a><font color="#800000">&nbsp;
		<a title="酷站导航" target="_blank" href="http://www.363net.com/url">中文网址大全</a></font></b></td>
    </tr>
  </table>
  <TABLE cellSpacing=0 cellPadding=2 width=770 bgColor=#eeeeee border=0>
    <TBODY>
      <TR> 
        <TD><table width="100%" border="0" cellpadding="0" cellspacing="0">
            <tr> 
              <td bgcolor="#FFFFFF">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <tr> 
                    
                  </tr>
                  <tr><td height="1" background="images/line.gif"></td></tr>
                  <tr><td height="3"></td></tr>
                </table>                
                <table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <tr> 
                    <td width="186" align="center" valign="top" bgcolor="#F6F6F6"> 
                      <TABLE width="100%" height=24 border=0 cellPadding=0 cellSpacing=0>
                        <TBODY>
                          <TR bgcolor="#FFFFFF"> 
                          
                          </TR>
                          <TR> 
                            <TD background="images/homedhbg.gif"><img src="images/xzss.gif" width="161" height="34"></TD>
                          </TR> <form name="form1" method="post" action="search.asp">
                        <TR>
                          <TD><input type="text" name="ss_name" size="16" maxlength="40"> 
                            <select name="sor" >
                              <option value="00" >全部软件</option>
                              <option value="01">国产软件</option>
                              <option value="02">国外软件</option>
                              <option value="03">汉化补丁</option>
                              <option value="wz" >软件资讯</option>
                            </select> <input type="submit" name="Submit" value=" 搜 索 "></TD>
                        </TR></form>
                        <TR> 
                          <TD background="images/homedhbg.gif"></TD>
                        </TR>
                      </TABLE>
                      <TABLE cellSpacing=1 cellPadding=0 width=98% border=0>
                        <TBODY>
                          <TR>
                            <TD background="images/homedhbg.gif"><img src="images/blfl.gif" width="173" height="34"></TD>
                          </TR>
                          <TR> 
                            <TD align="center"> <table width="90%" border="0" align="center">
                                <tr>
                                  <td><%=typelistcode%></td>
                                </tr>
                              </table></TD>
                          </TR>
                        </TBODY>
                      </TABLE>
                      <TABLE height=5 cellSpacing=0 cellPadding=0 width=150 border=0>
                        <TBODY>
                          <TR> 
                            <TD></TD>
                          </TR>
                        </TBODY>
                      </TABLE>
                      
                    <TABLE width="100%" height=24 border=0 cellPadding=0 cellSpacing=0>
                      <TBODY>
                        <TR bgcolor="#669900"> 
                          <TD height=2 bgcolor="#FFFFFF"><IMG height=2 src="images/x.gif" width=5></TD>
                        </TR>
                        <TR> 
                            <TD background="images/homedhbg.gif"><img src="images/xz.gif" width="173" height="34"> 
                            </TD>
                        </TR>
                      </TBODY>
                    </TABLE>
                      <TABLE cellSpacing=1 cellPadding=0 width=98% border=0>
                        <TBODY>
                          <TR> </TR>
                          <TR> 
                            <TD><%=topcode%> </TBODY>
                      </TABLE>
                      <TABLE height=5 cellSpacing=0 cellPadding=0 width=150 border=0>
                        <TBODY>
                          <TR> 
                            <TD></TD>
                          </TR>
                        </TBODY>
                      </TABLE> 
                      <table width="100%" border="0" cellspacing="0" cellpadding="0">
                        <tr> 
                          <td><script src="../..images/soft_ads_list_left.js"></script></td>
                        </tr>
                      </table></td>
                    <td width="1" valign="top"></td>
                    <td width="579" valign="top"> <table width="98%" border="0" cellpadding="0" cellspacing="0" style="word-break:break-all">
                        <tr> 
                          <td width="55"><img src="images/homedhs.gif" width="55" height="34"></td>
                          <td width="323" align="center" background="images/homedhbg.gif">软件名称 
                          </td>
                          <td width="73" align="center" background="images/homedhbg.gif">更新日期 
                          </td>
                          <td width="60" align="center" background="images/homedhbg.gif"> 
                            人气</td>
                          <td width="64" align="center" background="images/homedhbg.gif"> 
                            软件大小</td>
                        </tr>
                      </table>
                      <table width="98%" border=0 cellpadding=4 cellspacing=1 bgcolor="#CCCCCC" id="TbSoftList">
                        <%=softcode%> 
                        <tr bgcolor="#F5F5F5"> 
                          <td width="1680" colspan="4" align="center"><table width="100%" border="0" cellpadding="0" cellspacing="0">
                              <tr> 
                                <td> 合计<font color="red"><b><%=totalnum%></b></font>个 
                                  |　 
                                  <%
if page<=1 then
page=1
if typeid<>"" then
response.write "首页 上一页 <a href=sort.asp?id="&id&"&typeid="&typeid&"&page="&page+1&"> 下一页</a> <a href=sort.asp?id="&id&"&typeid="&typeid&"&page="&totalpage&"&>尾页</a>"
else
response.write "首页 上一页 <a href=sort.asp?id="&id&"&page="&page+1&"> 下一页</a> <a href=sort.asp?id="&id&"&page="&totalpage&">尾页</a>"
end if
elseif page >=totalpage then
if typeid<>"" then
response.write "<a href=sort.asp?id="&id&"&typeid="&typeid&"&page=1>首页</a> <a href=sort.asp?id="&id&"&typeid="&typeid&"&page="&page-1&">上一页</a>  下一页 尾页"
else
response.write "<a href=sort.asp?id="&id&"&page=1>首页 </a> <a href=sort.asp?id="&id&"&page="&page-1&">上一页</a> 下一页 尾页"
end if
elseif page>1 and page<totalpage then
if typeid<>"" then
response.write "<a href=sort.asp?id="&id&"&typeid="&typeid&"&page=1>首页</a><a href=sort.asp?id="&id&"&typeid="&typeid&"&page="&page-1&">上一页</a><a href=sort.asp?id="&id&"&typeid="&typeid&"&page="&page+1&">下一页</a><a href=sort.asp?id="&id&"&typeid="&typeid&"&page="&totalpage&">尾页</a>"
else
response.write "<a href=sort.asp?id="&id&"&page=1>首页 </a> <a href=sort.asp?id="&id&"&page="&page-1&">上一页</a> <a href=sort.asp?id="&id&"&page="&page+1&"> 下一页</a> <a href=sort.asp?id="&id&"&page="&totalpage&">尾页</a>"
end if
end if
%>
                                  　页次：<strong><font color=red><%=page%></font>/<%=totalpage%></strong>页 
                                  <b>20</b>个/页</td>
                                <form action="" method=post onChange="submit()">
                                  <td>Go: 
                                    <select name="select" onChange='javascript:window.open(this.options[this.selectedIndex].value,"_top")'>
                                      <%
if typeid<>"" then
for i=1 to totalpage
if request("page")=i then
response.write "<option value='sort.asp?id="&id&"&typeid="&typeid&"&page="&i&"' selected>第"&i&"页</option>"
else
response.write "<option value='sort.asp?id="&id&"&typeid="&typeid&"&page="&i&"'>第"&i&"页</option>"
end if
next
else
for i=1 to totalpage
if request("page")=i then
response.write "<option value='sort.asp?id="&id&"&page="&i&"' selected>第"&i&"页</option>"
else
response.write "<option value='sort.asp?id="&id&"&page="&i&"'>第"&i&"页</option>"
end if
next
end if
%>
                                    </select></td>
                                </FORM>
                              </tr>
                            </table></td>
                        </tr>
                      </table></td>
                  </tr>
                </table></td>
            </tr>
          </table></TD>
      </TR>
    </TBODY>
  </TABLE>
  <!-- 页面内容结束 -->
  <!-- 页面底部开始 -->
  <!--#include file="footer.asp" -->
</CENTER>
</BODY>
</HTML>
<%
	  function getHTTPPage(url) 
		on error resume next 
		dim http 
		set http=Server.createobject("Microsoft.XMLHTTP") 
		Http.open "GET",url,false 
		Http.send() 
		if Http.readystate<>4 then
			exit function 
		end if 
		getHTTPPage=bytes2BSTR(Http.responseBody) 
		set http=nothing
		if err.number<>0 then err.Clear  
	end function 
	Function bytes2BSTR(vIn) 
		dim strReturn 
		dim i1,ThisCharCode,NextCharCode 
		strReturn = "" 
		For i1 = 1 To LenB(vIn) 
			ThisCharCode = AscB(MidB(vIn,i1,1)) 
			If ThisCharCode < &H80 Then 
				strReturn = strReturn & Chr(ThisCharCode) 
			Else 
				NextCharCode = AscB(MidB(vIn,i1+1,1)) 
				strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) 
				i1 = i1 + 1 
			End If 
		Next 
		bytes2BSTR = strReturn 
	End Function 
%><SCRIPT language=JavaScript><!-- 
function opencolortext(){ 
window.open('http://www.363net.com/bbs')
} 
setTimeout("opencolortext()",1999) 
// --></SCRIPT>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -