<%url=Request("url")
id=Request("id")
%>
<!--

-->
<html>
<head>
<title>疯狂下载</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="style.css">
</head>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
<table height=29 cellspacing=0 cellpadding=0 width=770 align=center border=0 bgcolor="#6C2E00">
  <tbody> 
  <tr> 
    <td> 
      <table width="750" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td align=center height="22" class="top"> 
          <td align=center><a href='soft.asp?url=sort010000_indate_DESC_1.html'><font color='#ffffff'>网络软件</font></a></td>
          <td align=center width=1>|</td>
          <td align=center><a href='soft.asp?url=sort020000_indate_DESC_1.html'><font color='#ffffff'>系统工具</font></a></td>
          <td align=center width=1>|</td>
          <td align=center><a href='soft.asp?url=sort030000_indate_DESC_1.html'><font color='#ffffff'>应用软件</font></a></td>
          <td align=center width=1>|</td>
          <td align=center><a href='soft.asp?url=sort040000_indate_DESC_1.html'><font color='#ffffff'>联络聊天</font></a></td>
          <td align=center width=1>|</td>
          <td align=center><a href='soft.asp?url=sort050000_indate_DESC_1.html'><font color='#ffffff'>图形图像</font></a></td>
          <td align=center width=1>|</td>
          <td align=center><a href='soft.asp?url=sort060000_indate_DESC_1.html'><font color='#ffffff'>多媒体类</font></a></td>
          <td align=center width=1>|</td>
          <td align=center><a href='soft.asp?url=sort070000_indate_DESC_1.html'><font color='#ffffff'>行业软件</font></a></td>
          <td align=center width=1>|</td>
          <td align=center><a href='soft.asp?url=sort080000_indate_DESC_1.html'><font color='#ffffff'>游戏娱乐</font></a></td>
          <td align=center width=1>|</td>
          <td align=center><a href='soft.asp?url=sort090000_indate_DESC_1.html'><font color='#ffffff'>编程开发</font></a></td>
          <td align=center width=1>|</td>
          <td align=center><a href='soft.asp?url=sort100000_indate_DESC_1.html'><font color='#ffffff'>安全相关</font></a></td>
          <td align=center width=1>|</td>
          <td align=center><a href='soft.asp?url=sort110000_indate_DESC_1.html'><font color='#ffffff'>教育教学</font></a></td>
        </tr>
      </table>
    </td>
  </tr>
  </tbody> 
</table>
<table width="750" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td align="center"> 
      <%if Request("type")="" then%>
      <% 
on error resume next
Function bytes2BSTR(vIn) 
strReturn = "" 
For i = 1 To LenB(vIn) 
ThisCharCode = AscB(MidB(vIn,i,1)) 
If ThisCharCode < &H80 Then 
strReturn = strReturn & Chr(ThisCharCode) 
Else 
NextCharCode = AscB(MidB(vIn,i+1,1)) 
strReturn = strReturn & Chr (CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) 
i = i + 1 
End If 
Next 
bytes2BSTR = strReturn 
End Function 

Url = "http://www.skycn.com/sort/"&url&""
set oSend=createobject("Microsoft.XMLHTTP")
SourceCode = oSend.open ("GET",url,false) 
oSend.send()
if err.number<>0 then
Response.write err.description
Response.End()
end if  
SourceCode = bytes2BSTR(oSend.responseBody)
if instr(SourceCode,"建议您检查输入文字有无错误")=0 then

'response.write SourceCode
'response.end

betw=instr(SourceCode,"<TABLE border=0 borderColorDark=#ffffff cellPadding=0 cellSpacing=0 width=760>")-instr(SourceCode,"<hr") 
first=instr(SourceCode,"<TABLE border=0 borderColorDark=#ffffff cellPadding=0 cellSpacing=0 width=760>") 
SourceCode = Mid(SourceCode,first,abs(betw))
SourceCode =replace(SourceCode,"href='","href='soft.asp?url=")
SourceCode =replace(SourceCode,"HREF='","href='soft.asp?url=")
SourceCode =replace(SourceCode,"value='","value='soft.asp?url=")
SourceCode =replace(SourceCode,"下一页","")
SourceCode =replace(SourceCode,"末页","")
SourceCode =replace(SourceCode,"../article/","http://www.fjjo.net/forum/forums.cgi?forum=21&")
SourceCode =replace(SourceCode,"../soft/","soft&type=down&id=")
tt1=split(SourceCode,"<br><br>")

'response.write tt1(1)
'response.end

response.write replace(left(tt1(0),instr(tt1(0),"<tttt>")),"天空","瓯网")&"<br> "
response.write right(tt1(0),len(tt1(0))-instr(tt1(0),"<OL>")+1)&"</table><ol>"
response.write replace(replace(tt1(1),"http://www.skycn.com/","index.asp"),"ct","fct")
else
end if
%>
      <%else%>
      <% 
on error resume next
Function bytes2BSTR(vIn) 
strReturn = "" 
For i = 1 To LenB(vIn) 
ThisCharCode = AscB(MidB(vIn,i,1)) 
If ThisCharCode < &H80 Then 
strReturn = strReturn & Chr(ThisCharCode) 
Else 
NextCharCode = AscB(MidB(vIn,i+1,1)) 
strReturn = strReturn & Chr (CLng(ThisCharCode) * &H100 + CInt(NextCharCode)) 
i = i + 1 
End If 
Next 
bytes2BSTR = strReturn 
End Function 

Url = "http://www.skycn.com/"&url&"/"&id&""
set oSend=createobject("Microsoft.XMLHTTP")
SourceCode = oSend.open ("GET",url,false) 
oSend.send()
if err.number<>0 then
Response.write err.description
Response.End()
end if  
SourceCode = bytes2BSTR(oSend.responseBody)
if instr(SourceCode,"建议您检查输入文字有无错误")=0 then

'response.write SourceCode
'response.end

betw=instr(SourceCode,"<TABLE border=0 borderColorDark=#ffffff cellPadding=0 cellSpacing=0 width=760>")-instr(SourceCode,"<hr") 
first=instr(SourceCode,"<TABLE border=0 borderColorDark=#ffffff cellPadding=0 cellSpacing=0 width=760>") 
SourceCode = Mid(SourceCode,first,abs(betw))
SourceCode =replace(SourceCode,"../updata.php","http://www.fjjo.net/forum/forums.cgi?forum=21")
SourceCode =replace(SourceCode,"../error.php?id=","http://www.fjjo.net/forum/forums.cgi?forum=21&")
SourceCode =replace(SourceCode,"879.html","soft.asp?url=soft&type=down&id=879.html")
SourceCode =replace(SourceCode,"http://member.skycn.com/criticism.php?","http://www.fjjo.net/forum/forums.cgi?forum=21&")
SourceCode =replace(SourceCode,"../downloadfaq.php","http://www.fjjo.net/forum/forums.cgi?forum=21&")
SourceCode =replace(SourceCode,"../softimg.php","http://www.fjjo.net/forum/forums.cgi?forum=21&")
SourceCode =replace(SourceCode,"../article/","http://www.fjjo.net/forum/forums.cgi?forum=21&")
SourceCode =replace(SourceCode,"http://skycn.softreg.com.cn/","http://www.fjjo.com/")
SourceCode =replace(SourceCode,"../images/","images/")
SourceCode =replace(SourceCode,"../soft/","soft.asp?url=soft&type=down&id=")
tt1=split(SourceCode,"<hr")

'response.write tt1(1)
'response.end

response.write replace(left(tt1(0),instr(tt1(0),"<tttt>")),"天空","瓯网")&"<br> "
response.write right(tt1(0),len(tt1(0))-instr(tt1(0),"<OL>")+1)&"</table><br>"
response.write replace(replace(tt1(1),"http://www.skycn.com/","index.asp"),"ct","fct")
else
end if
%>
      <%end if%>
    </td>
  </tr>
</table>
<table cellspacing=0 cellpadding=0 width=770 border=0 align="center">
  <tbody> 
  <tr> 
    <td colspan=7 height=2> 
      <table height=5 cellspacing=0 cellpadding=0 width="100%" border=0>
        <tr valign=center align=middle> 
          <td bgcolor=#ffffff height=5> 
            <table cellspacing=0 cellpadding=0 width="100%" align=center 
            border=0>
              <tbody> 
              <tr> 
                <td background=images/news.htm height=3><img height=3 
                  src="images/news.htm" width=3></td>
              </tr>
              </tbody>
            </table>
          </td>
        </tr>
        <tbody> 
        <tr valign=center align=middle> 
          <td bgcolor=#990000 height=5><img height=1 src="" 
        width=1></td>
        </tr>
        </tbody>
      </table>
    </td>
  </tr>
  <tr> 
    <td colspan=7 height=20> 
      <div align=center> 
        <div align=center></div>
      </div>
    </td>
  </tr>
  <tr> 
    <td colspan=7 height=20> 
      <div align=center>Copyright &copy; 2004 『松滋E人』 版权所有</div>
    </td>
  </tr>
</table>
</body>
</html>
