📄 sort.asp
字号:
<!--#include file=cache.inc-->
<%
Server.ScriptTimeOut=120
dim id
on error resume next
page=request("page")
if page="" then
page=1
else
page= request("page")
end if
id=request("id")
if id="" or id="1" then
url="http://www.asp300.com/CodeList/CodeList_CodeDate_Desc_"&page&".html"
'response.write("<script language='javascript'>")
'response.write("alert('对不起，没有此类软件!');")
'response.write("history.go(-1);")
'response.write("</Script>")
'response.end
else
' url="http://www.asp300.com/CodeList/CodeList_"&id&"_CodeDate_Desc_"&page&".html"
url="http://www.asp300.com/CodeList/Catalog_"&id&"_CodeDate_Desc_"&page&".html"
end if
set myCache=new cache
myCache.name=page&asp300&id
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,"<table width=""100%"" border=0 cellpadding=4 cellspacing=1 id=""TbCodeList"">")
over=Instr(sortcode,"</FORM></tr></table>")+20
page=mid(sortcode,start,over-start)
page=replace(page,"../sort/","sort.asp?id=")
page=replace(page,".html","")
page=replace(page,"../CodeView/CodeView_","codeView.asp?id=")
page=replace(page,"100%","56%")
if id="" or id="1" then
page=replace(page,"CodeList_CodeDate_Desc_","sort.asp?page=")
else
page=replace(page,"Catalog_","sort.asp?id=")
page=replace(page,"_CodeDate_Desc_","&page=")
end if
page=replace(page,"../images/line.gif","http://www.asp300.com/images/line.gif")
page=replace(page,"../images/1star.gif","http://www.asp300.com/images/1star.gif")
page=replace(page,"../images/2star.gif","http://www.asp300.com/images/2star.gif")
page=replace(page,"../images/3star.gif","http://www.asp300.com/images/3star.gif")
page=replace(page,"../images/4star.gif","http://www.asp300.com/images/4star.gif")
page=replace(page,"../images/5star.gif","http://www.asp300.com/images/5star.gif")
else
wscript.echo err.description
end if
%>
<HTML><HEAD><TITLE>八度空间－源码下载</TITLE>
<META http-equiv=content-type content="text/html; charset=gb2312">
<meta NAME="author" CONTENT="Blue2004">
<meta NAME="description" CONTENT="八度空间－免费ASP空间，域名 建站">
<BASE onmouseover="window.status=' QQ：80392625，请保留 Powered By blue2004 ！';return true">
<meta NAME="copyright" content="Copyright 2003-2004 - 搜网引擎 - SUZI">
<meta NAME="keywords" CONTENT="ASP,PHP,CGI,免费ASP空间,代码,源程序,免费下载,软件下载,技术,下载,免费服务,download,asp,php,cgi,mysql,sql,mssql,asp">
<link rel="stylesheet" href="style.css">
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<!--#include file="css.asp" -->
<META content="MSHTML 6.00.2800.1170" name=GENERATOR></HEAD>
<BODY class=css_all bgcolor="#0472BC">
<!--#include file="head.asp"--><table width="770" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
<tr>
<td>
<div align="center">
<iframe marginwidth=0 marginheight=0 frameborder=0 scrolling=no src='http://ad.xxsky.com/banner/760.aspx?upid=tingshu8' width=760 height=60></iframe>
</div>
</td>
</tr>
</table>
<table width="770" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
<tr>
<td>
<div align="center"><script language="JavaScript" type="text/JavaScript" src="http://union.3721.com/ads/ads.js?id=50320&ads=2&img_url=http%3A%2F%2Funion.3721.com%2Fimages%2Fyisou%2F750-90.swf&img_type=1&img_h=90&img_w=750"> </script> </div>
</td>
</tr>
</table>
<table width="770" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF"><tr><td>
<div align=center>
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="770" id="AutoNumber1">
<tr>
<td width="181" bgcolor="#000080">
</td>
<td width="586" bgcolor="#000080" align="center"> </td>
</tr>
<tr>
<td width="181" align="left" valign="top">
<table>
<tr valign="top">
<SCRIPT language=javascript src="CodeType.js"></SCRIPT>
</tr><tr><script language="JavaScript" type="text/JavaScript" src="http://union.3721.com/ads/ads.js?id=50320&ads=1&img_url=http%3A%2F%2Funion.3721.com%2Fimages%2FIM180-60.swf&img_type=1&img_h=60&img_w=180"> </script> </tr><tr><script language="JavaScript" type="text/JavaScript" src="http://union.3721.com/ads/ads.js?id=50320&ads=2&img_url=http%3A%2F%2Funion.3721.com%2Fimages%2Fyisou%2F180-60.swf&img_type=1&img_h=60&img_w=180"> </script> </tr><tr><script language="JavaScript" type="text/JavaScript" src="http://union.3721.com/ass/adv2_3.js?pid2=A_badfish_57132"></script></tr><tr><script language="JavaScript" type="text/JavaScript" src="http://union.3721.com/ass/adv5_3.js?pid2=A_badfish_57132"></script></tr><script>var AllyId =1668;
var Width = 180;
var Height = 60;
</script>
<script src='http://www.u517.com/Ally/Ad.js'></script></tr><tr><iframe marginwidth=0 marginheight=0 frameborder=0 scrolling=no src='http://ad.xxsky.com/banner/180.aspx?upid=tingshu8' width=180 height=60></iframe></tr>
</table>
</td>
<td width="586" align="center"><%=page%> </td>
</tr>
</table>
</center>
</div>
</div></td></tr></table><!--#include file="foot.asp"-->
<%
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
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -