大家帮手看看这段代码,我看不明!~~~~
<!--#include file=artwind.inc--><%
Server.ScriptTimeOut=120
on error resume next
url="http://www.skycn.net/freejs/softshow.js"
set myCache=new cache
myCache.name="hot"
if myCache.valid then
hotcode = myCache.value
else
hotcode=getHTTPPage(url)
myCache.add hotcode,dateadd("d",1,now)
end if
if err.number=0 then
hotcode=replace(hotcode,"href=http://www.skycn.com/soft/","href=soft.asp?id=")
hotcode=replace(hotcode,".html","")
hotcode=replace(hotcode,"src=softad","src=http://www.skycn.com/softad")
hotcode=replace(hotcode,"更多详情","")
else
wscript.echo err.description
end if
url="http://www.skycn.net/index.html"
set myCache=new cache
myCache.name="sycode"
if myCache.valid then
indexcode = myCache.value
else
indexcode=getHTTPPage(url)
myCache.add indexcode,dateadd("n",100,now)
end if
if err.number=0 then
indexarr=split(indexcode,"<td width=295>")
gccode=indexarr(1)
over=Instr(gccode,"<div align=right>")
gccode=mid(gccode,1,over)
gccode=replace(gccode,"<br>","")
gccode=replace(gccode,"soft/","soft.asp?id=")
gccode=replace(gccode,".html","")
gcarr=split(gccode,"<font color=#000000>★</font>")
for i=1 to 10
gcsoft=gcsoft&"<TR><TD>·"& gcarr(i) &"</TD></TR>"
next
Erase gcarr
gwcode=indexarr(3)
over=Instr(gwcode,"<div align=right>")
gwcode=mid(gwcode,1,over)
gwcode=replace(gwcode,"<br>","")
gwcode=replace(gwcode,"soft/","soft.asp?id=")
gwcode=replace(gwcode,".html","")
gwarr=split(gwcode,"<font color=#000000>★</font>")
for i=1 to 10
gwsoft=gwsoft&"<TR><TD>·"& gwarr(i) &"</TD></TR>"
next
Erase gwarr
hhcode=indexarr(4)
over=Instr(hhcode,"<div align=right>")
hhcode=mid(hhcode,1,over)
hhcode=replace(hhcode,"<br>","")
hhcode=replace(hhcode,"soft/","soft.asp?id=")
hhcode=replace(hhcode,".html","")
hharr=split(hhcode,"<font color=#000000>★</font>")
for i=1 to 10
hhsoft=hhsoft&"<TR><TD>·"& hharr(i) &"</TD></TR>"
next
Erase hharr
tjcode=indexarr(2)
over=Instr(tjcode,"</TD></TR></table></table>")
tjcode=mid(tjcode,1,over)
tjcode=replace(tjcode,"<br>","")
tjcode=replace(tjcode,"soft/","soft.asp?id=")
tjcode=replace(tjcode,".html","")
tjarr=split(tjcode,"<font color=#000000>★</font>")
for i=1 to 10
tjsoft=tjsoft&"<TR><TD>·"& tjarr(i) &"</TD></TR>"
next
Erase tjarr
jccode=indexarr(2)
start=Instr(jccode,"<tr><td align='left'>")+21
over=Instr(jccode,"<div align=right>")
jccode=mid(jccode,start,over-start)
jccode=replace(jccode,"<br>","")
jccode=replace(jccode,"article/","article.asp?id=")
jccode=replace(jccode,".html","")
jcarr=split(jccode,"<IMG border=0 height=12 src='images/page1.gif' width=10>")
for i=1 to 10
jcsoft=jcsoft&"<TR><TD>·"& jcarr(i) &"</TD></TR>"
next
Erase jcarr
zxcode=indexarr(5)
over=Instr(zxcode,"<div align=right>")
zxcode=mid(zxcode,1,over)
zxcode=replace(zxcode,"<br>","")
zxcode=replace(zxcode,"article/","article.asp?id=")
zxcode=replace(zxcode,".html","")
zxarr=split(zxcode,"<IMG border=0 height=12 src='images/page1.gif' width=10>")
for i=1 to 10
zxsoft=zxsoft&"<TR><TD>·"& zxarr(i) &"</TD></TR>"
next
Erase zxarr
sdcode=indexarr(7)
over=Instr(sdcode,"<div align=right>")-1
sdcode=mid(sdcode,1,over)
sdcode=replace(sdcode,"<br>","")
sdcode=replace(sdcode,"soft/","soft.asp?id=")
sdcode=replace(sdcode,".html","")
sdarr=split(sdcode,"<li>")
for i=1 to 10
sdsoft=sdsoft&"<TR><TD>·"& sdarr(i) &"</TD></TR>"
next
Erase sdarr
aqcode=indexarr(6)
over=Instr(aqcode,"<div align=right>")
aqcode=mid(aqcode,1,over)
aqcode=replace(aqcode,"<br>","")
aqcode=replace(aqcode,"article/","article.asp?id=")
aqcode=replace(aqcode,".html","")
aqarr=split(aqcode,"<IMG border=0 height=12 src='images/page1.gif' width=10>")
for i=1 to 10
aqsoft=aqsoft&"<TR><TD>·"& aqarr(i)&"</TD></TR>"
next
Erase aqarr
topcode=indexarr(8)
over=Instr(topcode,"</TD></TR></table></table><p>")-1
topcode=mid(topcode,1,over)
topcode=replace(topcode,"<br>","")
topcode=replace(topcode,"soft/","soft.asp?id=")
topcode=replace(topcode,".html","")
toparr=split(topcode,"<li>")
for i=1 to 10
topsoft=topsoft&"<TR><TD>·"& toparr(i)&"</TD></TR>"
next
Erase toparr
Erase indexarr
zyarr=split(indexcode,"<FONT face=Webdings color=#ff8c00>8</FONT>")
for i=1 to ubound(zyarr)-1
zyarr(i)=replace(zyarr(i),"<br>","")
zycode=zycode&"<TR><TD>·"& zyarr(i)&"</TD></TR>"
next
Erase zyarr
else
wscript.echo err.description
end if
%>
<HTML><HEAD><TITLE>LOVE-HOBY！时尚快递--酷软快递</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="images/style.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2800.1170" name=GENERATOR>
</HEAD>
<BODY leftMargin=0 topMargin=0>
<DIV id=hint style="DISPLAY: none"></DIV>
</HEAD>
<!--#include file="Top_up.asp" -->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center">
<script LANGUAGE="JavaScript1.1" SRC="mxg_2.js"></script>
</td>
</tr>
</table>
<table width="778" height="30" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td height="27" align="center" background="images/meaubg.gif"><table width="100%"border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><script src="soft_Menu.js"></script></td>
</tr>
</table></td>
</tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" class=2b>
<tr>
<td width="334" height="24" bgcolor="#FFFFFF"> <img src="images/tp009.gif" width="15" height="15" align="absmiddle">
当前位置：<a href="index.asp">软件下载</a> </td>
<td width="434" bgcolor="#FFFFFF"> </td>
<!--- 首页滚动广告位置结束 --->
</tr>
</table>
<TABLE width=778 border=0 align="center" cellPadding=2 cellSpacing=0 bgColor=#eeeeee>
<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 vAlign=top align=middle width=170 bgColor=#f6f6f6>
<TABLE height=24 cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR><TD background="images/table_bgline.gif"><img src="images/news.gif" width="173" height="34"></TD>
</TR>
<TR>
<TD><TABLE cellSpacing=0 cellPadding=1 width="100%"
align=center border=0>
<TBODY>
<script language="JavaScript" src="news.js"></script>
</TBODY></TABLE></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=3 width="100%" border=0>
<TBODY>
<TR>
<TD align=middle></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD vAlign=top>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=5></TD>
<TD vAlign=top width="100%">
<TABLE cellSpacing=1 cellPadding=0 width="101%" border=0>
<TBODY>
<TR>
<TD width="91%" background="images/homedhbg.gif"><img src="images/zxtjs.gif" width="214" height="34"></TD>
<TD width="9%" background="images/homedhbg.gif"><img src="images/more.gif" width="54" height="11" border="0"></TD>
</TR>
<TR>
<TD height=100 colspan="2" vAlign=top> <TABLE cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TR>
<TD align=middle><!--#include file="soft_hot.asp" -->
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class=2b>
<tr bgcolor="#CCCCCC">
<td width="375" height="1"></td>
</tr>
<tr>
<td height="2"></td>
</tr>
<tr>
<form name="form1" method="post" action="search.asp">
<td height="26">
<img src="Images/checksoft.gif" width="15" height="15"> 软件搜索：
<input name="ss_name" type="text" class="2b" 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" bgcolor="#CCCCCC"></td>
</tr>
</table>
</TD>
</TR>
<TBODY>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD width=5></TD>
<TD vAlign=top bgColor=#FFFFFF>
<TABLE height=2 cellSpacing=0 cellPadding=0
width="100%" border=0>
<TBODY>
<TR bgColor=#99cc00>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=1 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
</TBODY>
</TABLE>
</TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top align=middle width=170 bgColor=#f6f6f6>
<TABLE height=24 cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD
background="images/table_bgline.gif"><img src="images/bzxz.gif" width="173" height="34"></TD>
</TR>
</TBODY>
</TABLE>
<TABLE height=10 cellSpacing=0 cellPadding=0 width="98%"
border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=1 width="100%"
border=0>
<TBODY>
<%=topsoft%>
</TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE height=24 cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD><img src="images/bztj.gif" width="173" height="34"></TD>
</TR></TBODY></TABLE>
<TABLE height=10 cellSpacing=0 cellPadding=0 width="98%"
border=0>
<TBODY>
<TR>
<TD><TABLE cellSpacing=0 cellPadding=1 width="100%"
border=0>
<TBODY>
<TR>
<TD height="100%"><%=zycode%></TD></TR>
</TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
<TD rowspan="3" vAlign=top><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=5 height="35"></TD>
<TD width="49%">
<TABLE height=34 cellSpacing=0 cellPadding=0
width="100%" border=0>
<TBODY>
<TR>
<TD width=34 height="34"><img src="images/homedhs.gif"></TD>
<TD width="208" background="images/homedhbg.gif"><IMG
height=20 src="images/dot1.gif" width=9
align=absMiddle> 国产软件</TD>
<TD width=68 background="images/homedhbg.gif"><a href="new.asp?id=1"><img src="images/new_more.gif" width="42" height="12" border="0"></a></TD>
</TR></TBODY></TABLE></TD>
<TD width=5></TD>
<TD width="49%">
<TABLE height=32 cellSpacing=0 cellPadding=0
width="100%" border=0>
<TBODY>
<TR>
<TD width=34 height="32"
background="images/homedhbg.gif"><img src="images/homedhs.gif"></TD>
<TD width="187"
background="images/homedhbg.gif"><IMG
height=20 src="images/dot2.gif" width=9
align=absMiddle> 国外软件 </TD>
<TD width=68 background="images/homedhbg.gif"><a href="new.asp?id=2"><img src="images/new_more.gif" width="42" height="12" border="0"></a></TD>
</TR></TBODY></TABLE></TD></TR>
<TR>
<TD></TD>
<TD vAlign=top height=150>
<TABLE cellSpacing=0 cellPadding=1 width="100%"
border=0>
<TBODY>
<%=gcsoft%>
</TBODY></TABLE></TD>
<TD></TD>
<TD vAlign=top>
<TABLE cellSpacing=0 cellPadding=1 width="100%"
border=0>
<TBODY>
<%=gwsoft%>
</TBODY></TABLE></TD></TR></TBODY></TABLE>
<table width="100%"border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="Images/banner2.jpg" width="600" height="86"></td>
</tr>
</table>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=5 height="29"></TD>
<TD width="49%">
<TABLE height=27 cellSpacing=0 cellPadding=0
width="100%" border=0>
<TBODY>
<TR background="images/homedhbg.gif">
<TD width=55 height="27"><img src="images/homedhs.gif"></TD>
<TD width="189"
background="images/homedhbg.gif"><IMG
height=20 src="images/dot2.gif" width=9
align=absMiddle> 汉化软件</TD>
<TD width=68 background="images/homedhbg.gif"><a href="new.asp?id=3"><img src="images/new_more.gif" width="42" height="12" border="0"></a></TD>
</TR></TBODY></TABLE></TD>
<TD width=5></TD>
<TD width="49%">
<TABLE height=24 cellSpacing=0 cellPadding=0
width="100%" border=0>
<TBODY>
<TR>
<TD width=10 background="images/homedhbg.gif"><img src="images/homedhs.gif"></TD>
<TD background="images/homedhbg.gif"><IMG
height=20 src="images/dot1.gif" width=9
align=absMiddle> 推荐软件 </TD>
<TD width=68 background="images/homedhbg.gif"><img src="images/new_more.gif" width="42" height="12" border="0"></TD>
</TR></TBODY></TABLE></TD></TR>
<TR>
<TD></TD>
<TD vAlign=top height=150>
<TABLE cellSpacing=0 cellPadding=1 width="100%"
border=0>
<TBODY>
<%=hhsoft%>
</TBODY></TABLE>
</TD>
<TD></TD>
<TD vAlign=top>
<TABLE cellSpacing=0 cellPadding=1 width="100%"
border=0>
<TBODY>
<%=tjsoft%>
</TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=5></TD>
<TD width="49%">
<TABLE height=24 cellSpacing=0 cellPadding=0
width="100%" border=0>
<TBODY>
<TR background="images/homedhbg.gif">
<TD width=10><img src="images/homedhs.gif"></TD>
<TD
background="images/homedhbg.gif"><IMG
height=20 src="images/dot1.gif" width=9
align=absMiddle> 杀毒软件</TD>
<TD width=68 background="images/homedhbg.gif"><a href="sort.asp?id=10&typeid=01"><img src="images/new_more.gif" width="42" height="12" border="0"></a></TD>
</TR></TBODY></TABLE></TD>
<TD width=5></TD>
<TD width="49%">
<TABLE height=24 cellSpacing=0 cellPadding=0
width="100%" border=0>
<TBODY>
<TR>
<TD width=10><img src="images/homedhs.gif"></TD>
<TD background="images/homedhbg.gif"><IMG
height=20 src="images/dot2.gif" width=9
align=absMiddle> 安全资讯</TD>
<TD width=68 background="images/homedhbg.gif"><a href="new.asp?id=4"><img src="images/new_more.gif" width="42" height="12" border="0"></a></TD>
</TR></TBODY></TABLE></TD></TR>
<TR>
<TD></TD>
<TD vAlign=top height=150>
<TABLE cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<%=sdsoft%>
</TBODY></TABLE></TD>
<TD></TD>
<TD vAlign=top>
<TABLE cellSpacing=0 cellPadding=1 width="100%"
border=0>
<TBODY>
<%=aqsoft%>
</TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=5></TD>
<TD width="49%">
<TABLE height=24 cellSpacing=0 cellPadding=0
width="100%" border=0>
<TBODY>
<TR>
<TD width=10><img src="images/homedhs.gif"></TD>
<TD background="images/homedhbg.gif"><IMG
height=20 src="images/dot2.gif" width=9
align=absMiddle> 软件资讯</TD>
<TD width=68 background="images/homedhbg.gif"><a href="new.asp?id=4"><img src="images/new_more.gif" width="42" height="12" border="0"></a></TD>
</TR></TBODY></TABLE></TD>
<TD width=5></TD>
<TD width="49%">
<TABLE height=24 cellSpacing=0 cellPadding=0
width="100%" border=0>
<TBODY>
<TR>
<TD width=10><img src="images/homedhs.gif"></TD>
<TD background="images/homedhbg.gif"><IMG
height=20 src="images/dot1.gif" width=9
align=absMiddle> 软件教程</TD>
<TD width=68 background="images/homedhbg.gif"><a href="new.asp?id=4"><img src="images/new_more.gif" width="42" height="12" border="0"></a></TD>
</TR></TBODY></TABLE></TD></TR>
<TR>
<TD></TD>
<TD vAlign=top height=150>
<TABLE cellSpacing=0 cellPadding=1 width="100%"
border=0>
<TBODY>
<%=zxsoft%>
</TBODY></TABLE></TD>
<TD></TD>
<TD vAlign=top>
<TABLE cellSpacing=0 cellPadding=1 width="100%"
border=0>
<TBODY>
<%=jcsoft%>
</TBODY></TABLE>
<table cellspacing=0 cellpadding=0 width="100%" border=0>
<tbody>
<tr>
<td align=middle> </td>
</tr>
</tbody>
</table></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD vAlign=top align=middle bgColor=#f6f6f6><img src="images/ztlma.gif" width="172" height="34"></TD>
</TR>
<TR>
<TD vAlign=top align=middle bgColor=#f6f6f6><table width="100%"border="0" align="center">
<tr>
<td><div align="center"></div></td>
</tr>
<tr>
<td><div align="center"></div></td>
</tr>
<tr>
<td><div align="center"></div></td>
</tr>
<tr>
<td><div align="center"></div></td>
</tr>
<tr>
<td><div align="center"></div></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
</table></TD>
</TR>
</TBODY></TABLE>
</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE id=nav_menu cellSpacing=0 cellPadding=5 width=770 bgColor=#FFFFFF
border=0>
<TBODY>
<TR>
<!--#include file="footer.asp" -->
</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
%>
这是我从网上下载下来的ASP版的天空下载小偷一个主页面,为什么我在本地调
试时,总是出现"剩余一项"未打开?????是不是里面掺杂了某些提者的广告了？？
暗地里帮它们挣钱了？ 还是本来程序就有问题？但我好象又找不到什
么ID的关键词~~~请大家帮忙一下？？？ 我不是高手 那么长..........
看都累死了.........
我是没有耐心看下去了 asp的吗
我现在对php感兴趣 嘿嘿菜 不明白是什么东西 又是那个小偷的？看的头都晕了，不明白 下面是引用shuimu543于2004-08-19 10:11 PM发表的 :
又是那个小偷的？看的头都晕了，不明白
嗯,就是不知怎搞???~~~~
头都昏了~~~~~
页:
[1]