📄 codeview.asp
字号:
<%@ LANGUAGE = VBScript.Encode %><!--#include file=Config.asp--><!--#include file=asp300cache.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><%=banner%> → <%=DownName%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK href="<%=WebUrl%>/favicon.ico" rel="shortcut icon"><link rel="Bookmark" href="<%=WebUrl%>/favicon.ico">
<meta name=robots content=all><meta name=Keywords><LINK href="images/style.css" type=text/css rel=stylesheet>
<BASE onmouseover="window.status=' 欢迎您来到本站：请将本站推荐给你ＱＱ上的好友，谢谢！广告投放QQ:85850013 ';return true">
<!--#include file="head.asp" --></HEAD>
<BODY leftMargin=0 topMargin=0 style="text-align: center">
<DIV id=hint style="DISPLAY: none"></DIV>
<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">软件下载</a> →<%=softname%>
<b><a target="_blank" href="Soft_sort.asp"><font color="#008000">软件分类导航</font></a></b>
<b><a target="_blank" href="http://www.363net.com/bbs">
<font color="#FF6600">红丝带在行动</font></a></b> <b>
<a target="_blank" href="http://www.363net.com/bt"><font color="#008080">BT电影高速下载</font></a></b>
<b><font color="#800000">
<a title="酷站导航" target="_blank" href="http://www.363net.com/url">中文网址大全</a>
<a title="明星写真图片" target="_blank" href="http://www.363net.com/pic">
<font color="#FF00FF">美女图片</font></a></font></b></td>
</tr>
</table>
<TABLE cellSpacing=0 cellPadding=2 width=770 bgColor=#eeeeee border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD bgColor=#ffffff>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD background="images/line.gif" height=1></TD></TR>
<TR>
<TD height=5></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
</TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top align=middle width=175 bgColor=#f6f6f6>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD background="images/homedhbg.gif"><img src="images/xzss.gif" width="161" height="34">
</TD>
</TR></TBODY></TABLE>
<TABLE height=24 cellSpacing=0 cellPadding=0 width="100%"
border=0>
<FORM name=form1 action=search.asp method=post>
<TBODY>
<TR>
<TD><INPUT maxLength=40 size=16 name=ss_name> <SELECT name=sor>
<OPTION value=00 selected>全部软件</OPTION>
<OPTION
value=01>国产软件</OPTION>
<OPTION value=02>国外软件</OPTION>
<OPTION
value=03>汉化补丁</OPTION>
<OPTION value=wz>软件资讯</OPTION>
</SELECT> <INPUT type=submit value=" 搜 索 " name=Submit></TD>
</TR>
</FORM>
<TR>
<TD background="images/homedhbg.gif">
<TABLE cellSpacing=1 cellPadding=0 width=98% border=0 id="table2">
<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 id="table3">
<TBODY>
<TR bgcolor="#669900">
<TD height=2 bgcolor="#FFFFFF">
<table id="table4">
<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="CodeSort.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="CodeSort.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="CodeSort.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="CodeSort.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="CodeSort.asp?id=3&page=1">
留言日记</a></td>
<td align="middle" width="21" height="20">
<img id="dian12" height="8" src="images/dian02.gif" width="8" border="0"></td>
<td width="75" height="20">
<a href="CodeSort.asp?id=12&page=1">
贺卡图片</a></td>
</tr>
<tr>
<td align="middle" width="22" height="20">
<img id="dian4" height="8" src="images/dian02.gif" width="8" border="0"></td>
<td width="62" height="20">
<a href="CodeSort.asp?id=4&page=1">
社区论坛</a></td>
<td align="middle" width="21" height="20">
<img id="dian13" height="8" src="images/dian02.gif" width="8" border="0"></td>
<td width="75" height="20">
<a href="CodeSort.asp?id=13&page=1">
邮件列表</a></td>
</tr>
<tr>
<td align="middle" width="22" height="20">
<img id="dian5" height="8" src="images/dian02.gif" width="8" border="0"></td>
<td width="62" height="20">
<a href="CodeSort.asp?id=5&page=1">
上传下载</a></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -