📄 index.asp
字号:
<!--#include file=bty888.inc--><!--#include file="incSpec.asp" --><!--#include file=Config.asp-->
<%
Server.ScriptTimeOut=120
dim id
on error resume next
id=request("id")
if id="" then
id=0
end if
if id=4 then
url="http://www.skycn.net/new/wz.html"
else
url="http://www.skycn.net/new/0"&id&".html"
end if
set myCache=new cache
myCache.name=id
if myCache.valid then
newcode = myCache.value
else
newcode=getHTTPPage(url)
end if
if err.number=0 then
topcodearr=split(newcode,"<tr><td align='left'>")
for i=1 to ubound(topcodearr)
over=Instr(topcodearr(i),"</td></tr>")
topcodearr(i)=mid(topcodearr(i),1,over-1)
topcodearr(i)=replace(topcodearr(i),"../soft/","soft.asp?id=")
topcodearr(i)=replace(topcodearr(i),".html","")
next
start=Instr(newcode,"<td>[")
over=Instr(newcode,"<center><table width=""760"">")
listcode=mid(newcode,start,over-start)
listcodearr=split(listcode,"<font color")
for i=1 to ubound(listcodearr)
over=Instr(listcodearr(i),"</tr>")+5
listcodearr(i)=mid(listcodearr(i),1,over-1)
listcodearr(i)=replace(listcodearr(i),"</a>]","]")
listcodearr(i)=replace(listcodearr(i),"../soft/","soft.asp?id=")
listcodearr(i)=replace(listcodearr(i),"../article/","article.asp?id=")
listcodearr(i)=replace(listcodearr(i),".html","")
list=list&"<tr bgcolor=#f5f5f5><td>[<font color"&listcodearr(i)
next
Erase listcodearr
else
wscript.echo err.description
end if
myCache.makeEmpty()
set myCache=nothing
%>
<HTML>
<HEAD>
<TITLE>最新更新 → <%=DownName%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><meta name=description content="软件更新 程序在线升级<%=Downdescription%>"><meta name="keywords"content="软件更新 程序在线升级 <%=Downkeywords%>">
<LINK href="images/style.css" type=text/css rel=stylesheet>
<BODY leftMargin=0 topMargin=0>
<DIV id=hint style="DISPLAY: none"></DIV>
<!--#include file="head.asp" --></HEAD>
<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> → 最新更新 → 列表</td>
</tr>
</table>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0" class=2b>
<tr bgcolor="#CCCCCC">
<td height="1" colspan="2"></td>
</tr>
<tr>
<td height="2" colspan="2"></td>
</tr>
<tr>
<form name="form1" method="post" action="search.asp">
<td width="113" height="22" bgcolor="#eeeeee"><img src="images/zxgg.gif" width="113" height="22"></td>
<td bgcolor="#eeeeee"> <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>
</form>
</tr>
<tr>
<td height="3" colspan="2" bgcolor="#CCCCCC"></td>
</tr>
</table>
<TABLE width=770 border=0 align="center" cellPadding=0 cellSpacing=0 class=2b>
<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>
<td width="187" align="center" valign="top" bgcolor="#F6F6F6">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="images/homedhbg.gif"><img src="images/bzxz.gif" width="173" height="34"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><%=topcodearr(1)%></td>
</tr>
</table>
<br> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="images/homedhbg.gif"><img src="images/byxz.gif" width="173" height="34"></td>
</tr>
</table>
<TABLE cellSpacing=0 cellPadding=0 width=98% border=0>
<TR> </TR>
<TR>
<TD><%=topcodearr(2)%>
</TABLE>
<br> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="images/homedhbg.gif"><img src="images/xz.gif" width="173" height="34"></td>
</tr>
</table>
<TABLE cellSpacing=0 cellPadding=0 width=98% border=0>
<TR> </TR>
<TR>
<TD><%=topcodearr(3)%>
</TABLE>
<br> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="images/homedhbg.gif"><img src="images/ljxz.gif" width="173" height="34"></td>
</tr>
</table>
<TABLE cellSpacing=0 cellPadding=0 width=98% border=0>
<TR> </TR>
<TR>
<TD><%=topcodearr(4)%> </TABLE></td>
<td width="1" valign="top"></td>
<td width="600" valign="top"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" background="images/homedhbg.gif">
<tr>
<td width="12%"><img src="images/homedhs.gif" width="55" height="34"></td>
<td width="88%">最近更新： 所有软件</td>
</tr>
</table>
<table width="98%" border=0 align="center" cellpadding=4 cellspacing=1 bgcolor="#CCCCCC" id="TbSoftList">
<tr align="center" bgcolor="#F5F5F5">
<td width="350" bgcolor="#F6F6F6">
<%
if id=4 then
response.write "文章标题"
else
response.write "软件名称"
end if
%>
</td>
<td nowrap>
<%
if id=4 then
response.write "作者"
else
response.write "整理日期"
end if
%>
</td>
<td nowrap>
<%
if id=4 then
response.write "整理日期"
else
response.write "软件大小"
end if
%>
</td>
</tr>
<%=list%> </table></td>
</tr>
</table></td>
</tr>
</table></TD>
</TR>
</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
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -