📄 codeview.asp
字号:
<!--#include file=cache.inc-->
<%
Server.ScriptTimeOut=120
dim id,softname,softdx,softlanguage,softjm,softlx,softhj,softdj,softsj,softlxr,softkfs,softcs,softjj,downurl,softxg,topsoft
on error resume next
id=request("id")
if id="" then
response.write("<script language='javascript'>")
response.write("alert('对不起，没有此软件!');")
response.write("history.go(-1);")
response.write("</Script>")
response.end
else
id =request("id")
end if
url="http://www.asp300.com/CodeView/CodeView_"&id&".html"
softcode=getHTTPPage(url)
if err.number=0 then
start=Instr(softcode,"<p align=""center"" style=""font-size:14px""><b>")+44
over=Instr(softcode,"</b></font></TD></TR>")
banner=mid(softcode,start,over-start)
banner=replace(banner,"ASP300","搜网引擎")
start=Instr(softcode,"ASP300</a> >>")+19
over=Instr(softcode,">></TD>")
list=mid(softcode,start,over-start)
list=replace(list,"../CodeList/CodeList_CodeDate_Desc_","codesort.asp?page=")
list=replace(list,"../CodeList/Catalog_","codesort.asp?id=")
list=replace(list,"_CodeDate_Desc_","&page=")
list=replace(list,".html","")
start=Instr(softcode,"代码类别：</td>")
over=Instr(softcode,"<td width=""19%"" align=""left"" height=""24"">代码评价：</td>")
softname=mid(softcode,start,over-start)
softname=replace(softname,"<td width=""81%"" height=""24"" colspan=""2"">","")
softname=replace(softname,"</td>","")
softname=replace(softname,"</tr>","")
softname=replace(softname,"<tr>","")
start=Instr(softcode,"代码评价：</td>")
over=Instr(softcode,"<td width=""19%"" align=""left"" height=""24"">运行环境：</td>")
softdx=mid(softcode,start,over-start)
softdx=replace(softdx,"<td width=""81%"" height=""24"" colspan=""2"">","")
softdx=replace(softdx,"</td>","")
softdx=replace(softdx,"</tr>","")
softdx=replace(softdx,"<tr>","")
softdx=replace(softdx,"../images/3star.gif","http://www.asp300.com/images/3star.gif")
softdx=replace(softdx,"../images/2star.gif","http://www.asp300.com/images/2star.gif")
softdx=replace(softdx,"../images/1star.gif","http://www.asp300.com/images/1star.gif")
softdx=replace(softdx,"../images/4star.gif","http://www.asp300.com/images/4star.gif")
softdx=replace(softdx,"../images/5star.gif","http://www.asp300.com/images/5star.gif")
start=Instr(softcode,"运行环境：</td>")
over=Instr(softcode,"<td width=""19%"" align=""left"" height=""20"">代码大小")
softlanguage=mid(softcode,start,over-start)
softlanguage=replace(softlanguage,"<td width=""81%"" height=""24"" colspan=""2"">","")
softlanguage=replace(softlanguage,"</td>","")
softlanguage=replace(softlanguage,"</tr>","")
softlanguage=replace(softlanguage,"<tr>","")
start=Instr(softcode,"代码大小：</td>")
over=Instr(softcode,"<td width=""19%"" align=""left"" height=""26"">更新日期")
softlx=mid(softcode,start,over-start)
softlx=replace(softlx,"<td width=""81%"" height=""20"" colspan=""2"">","")
softlx=replace(softlx,"</td>","")
softlx=replace(softlx,"</tr>","")
softlx=replace(softlx,"<tr>","")
start=Instr(softcode,"更新日期：</td>")
over=Instr(softcode,"<td width=""19%"" align=""left"" height=""20"">相关链接：</td>")
softhj=mid(softcode,start,over-start)
softhj=replace(softhj,"<td width=""81%"" height=""26"" colspan=""2"">","")
softhj=replace(softhj,"</td>","")
softhj=replace(softhj,"</tr>","")
softhj=replace(softhj,"<tr>","")
start=Instr(softcode,"相关链接：</td>")
over=Instr(softcode,"</u></a></td>")+8
softjm=mid(softcode,start,over-start)
softjm=replace(softjm,"<td width=""81%"" height=""20"" colspan=""2"">","")
softjm=replace(softjm,"</td>","")
start=Instr(softcode,"下载地址：</td>")
over=Instr(softcode,"</u></td>")+4
softsj=mid(softcode,start,over-start)
softsj=replace(softsj,"<br>","")
' softsj=replace(softsj,"<td width=""81%"" height=""25"" colspan=""2"">","")
softsj=replace(softsj,"../CodeDown.asp?ID="&id&"&Type=0","http://www.asp300.com/CodeDown.asp?ID="&id&"&Type=0")
softsj=replace(softsj,"../CodeDown.asp?ID="&id&"&Type=1","http://www.asp300.com/CodeDown.asp?ID="&id&"&Type=1")
softsj=replace(softsj,"../images/d_download.gif","http://www.asp300.com/images/d_download.gif")
start=Instr(softcode,"下载统计：</td>")
over=Instr(softcode,"</iframe></td>")+9
softcs=mid(softcode,start,over-start)
softcs=replace(softcs,"../DownHits.asp?CodeID="&id&"&leixing=免费","http://www.asp300.com/DownHits.asp?CodeID="&id&"&leixing=免费")
softcs=replace(softcs,"</td>","")
softcs=replace(softcs,"<td width=""81%"" height=""21"" colspan=""2"">","")
start=Instr(softcode,"简 介：")
over=Instr(softcode,"</table><BR></TD></TR>")
softdj=mid(softcode,start,over-start)
softdj=replace(softdj,"</td>","<br>")
softdj=replace(softdj,"<td width=""486"" height=""1"" valign=""top"" bgcolor=""#EEEEEE"">","")
softdj=replace(softdj,"</tr>","")
else
wscript.echo err.description
end if
%>
<HTML><HEAD><TITLE>八度空间-软件下载-<%=softname%></TITLE>
<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 leftMargin=0 topMargin=0 bgcolor="#0472BC">
<!--#include file="head.asp"-->
<table width="770" border="0" cellspacing="0" cellpadding="0" align="center" height="23" bgcolor="#F2F2F2">
<tr>
<td> 您现在的位置是：<a href="http://www.dns80.com">八度空间</a>-> <%=softname%></td>
</tr>
</table>
<table width="770" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
<tr>
<td>
<table width="769" border="0" cellspacing="0" cellpadding="0" align="right" 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>
</td>
</tr>
</table>
<table width="770" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
<tr>
<td>
<div align="center"> <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" height="214">
<tr valign="top">
<td width="210" bgcolor="#FFFFFF">
<table width="210" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="210" height="5" bgcolor="#FFCC00"></td>
</tr>
<tr>
<td width="210" height="24" bgcolor="#0099FF">
<table width="173" border="0" cellspacing="0" cellpadding="0" height="22">
<tr>
<td width="22">
<div align="center"><img src="images/icon.gif" width="7" height="7"></div>
</td>
<td width="88"><font color="#FFFFFF"><b><font color="#FFFFFF">软件搜索</font></b></font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="210" bgcolor="#00FFFF" height="6"></td>
</tr>
</table>
<table width="210" border="0" cellspacing="0" cellpadding="0" height="92">
<tr>
<td width="210">
<table width="162" border="0" cellspacing="5" cellpadding="0" align="center">
<form name="form1" method="post" action="search.asp">
<tr>
<td width="210">
<input type="text" name="ss_name" size="21" maxlength="40">
<br>
<br>
<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>
</table>
</td>
</tr>
</table>
<table width="210" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="210" height="5" bgcolor="#FFCC00"></td>
</tr>
<tr>
<td width="210" height="24" bgcolor="#0099FF">
<table width="200" border="0" cellspacing="0" cellpadding="0" height="22">
<tr>
<td width="34">
<div align="center"><img src="images/icon.gif" width="7" height="7"></div>
</td>
<td width="166"><font color="#FFFFFF"><b>支持我们请点击广告</b></font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="210" bgcolor="#00FFFF" height="6"></td>
</tr>
</table>
<table width="210" border="0" cellspacing="2" cellpadding="0" height="161">
<tr>
<td width="210">
<div align="center">
<script language="JavaScript" type="text/JavaScript" src="http://union.3721.com/ass/adv2_3.js?pid2=0"></script>
<br>
<br>
<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>
<br><br><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> </div>
</td>
</tr>
</table>
<table width="210" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="210" height="5" bgcolor="#FFCC00"></td>
</tr>
<tr>
<td width="210" height="24" bgcolor="#0099FF">
<table width="173" border="0" cellspacing="0" cellpadding="0" height="22">
<tr>
<td width="22">
<div align="center"><img src="images/icon.gif" width="7" height="7"></div>
</td>
<td width="88"><font color="#FFFFFF"><b><font color="#FFFFFF">源码列表</font></b></font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="210" bgcolor="#00FFFF" height="6"></td>
</tr>
</table>
<table width="210" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="210">
<table width="100%" border="0" cellspacing="2" cellpadding="0" align="center">
<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="Sort.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="Sort.asp?id=10&page=1">
新闻文章</a></td>
</tr>
<tr>
<td align="middle" width="22" height="20">
<img id="dian2" height="8" src="images/dian02.gif" width="8" border="0"></td>
<td width="62" height="20">
<a href="Sort.asp?id=2&page=1">
聊天室类</a></td>
<td align="middle" width="21" height="20">
<img id="dian11" height="8" src="images/dian02.gif" width="8" border="0"></td>
<td width="75" height="20">
<a href="Sort.asp?id=11&page=1">
搜索链接</a></td>
</tr>
<tr>
<td align="middle" width="22" height="20">
<img id="dian3" height="8" src="images/dian02.gif" width="8" border="0"></td>
<td width="62" height="20">
<a href="Sort.asp?id=3&page=1">
留言日记</a></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -