📄 codesort8.asp
字号:
<!--#include file=Config.asp--><!--#include file=asp300cache.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_","codesort.asp?page=")
else
page=replace(page,"Catalog_","codesort.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>
<%
select case id
case 1
response.write "整站系统"
case 2
response.write "聊天室类"
case 3
response.write "留言日记"
case 4
response.write "社区论坛"
case 5
response.write "上传下载"
case 6
response.write "电子商务"
case 7
response.write "广告排行"
case 8
response.write "投票调查"
case 9
response.write "主机域名"
case 10
response.write "新闻文章"
case 11
response.write "搜索链接"
case 12
response.write "贺卡图片"
case 13
response.write "邮件列表"
case 14
response.write "交友会员"
case 15
response.write "计数统计"
case 16
response.write "影音娱乐"
case 17
response.write "办公管理"
case 18
response.write "其它类别"
end select
%>-源码下载列表 → <%=DownName%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK href="<%=WebUrl%>/favicon.ico" rel="shortcut icon">
<meta name=description content="<%=Downdescription%>"><meta name="keywords"content="<%=Downkeywords%>">
<meta name=robots content=all><meta name=Keywords><LINK href="images/style.css" type=text/css rel=stylesheet>
<BASE onmouseover="window.status=' 欢迎您来到本站：如果感觉本站还不错请把本站推荐给你的好友，谢谢！广告投放QQ:53499623';return true">
<!--#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 href="index.asp">YD软件园</a> → <a href="CodeSort8.asp">源码下载</a> → 列表
<b><a target="_blank" href="Soft_sort.asp"><font color="#008000">软件分类导航</font></a></b>
<b><a target="_blank" href="http://www.lanbaba.com/game/wg">
<font color="#FF6600">游戏外挂下载</font></a></b> <b>
<a target="_blank" href="Bt"><font color="#008080">BT电影高速下载</font></a></b>
<b>
<a href="new.asp"><font color="#800000">最近更新软件</font></a><font color="#800000">
<a title="酷站导航" target="_blank" href="http://url.ydxp.com">中文网址大全</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>
</TBODY>
</TABLE>
<TABLE width="100%" height=24 border=0 cellPadding=0 cellSpacing=0>
<TBODY>
<TR bgcolor="#669900">
<TD height=2 bgcolor="#FFFFFF">
<table id="table1">
<tr vAlign="top">
<td vAlign="top" align="middle" width="22" height="20">
<img id="dian1" height="8" src="images/dian02.gif" width="8" border="0"></td>
<td width="62" height="20">
<a href="CodeSort8.asp?id=1&page=1">
整站系统</a></td>
<td align="middle" width="21" height="20">
<img id="dian10" height="8" src="images/dian02.gif" width="8" border="0"></td>
<td width="75" height="20">
<a href="CodeSort8.asp?id=10&page=1">
新闻文章</a></td>
</tr>
<tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -