疯狂下载

| 网络软件 | | | 系统工具 | | | 应用软件 | | | 联络聊天 | | | 图形图像 | | | 多媒体类 | | | 行业软件 | | | 游戏娱乐 | | | 编程开发 | | | 安全相关 | | | 教育教学

<% 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/soft_sort.html" 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,"

")-instr(SourceCode,"") first=instr(SourceCode,"

") SourceCode = Mid(SourceCode,first,abs(betw)) SourceCode =replace(SourceCode,"href=""","href=soft.asp?url=") SourceCode =replace(SourceCode,"动 画 类","") SourceCode =replace(SourceCode,"ＭＴＶ类","") SourceCode =replace(SourceCode,"专 辑 类","") SourceCode =replace(SourceCode,"软件报道","") SourceCode =replace(SourceCode,"软件教程","") SourceCode =replace(SourceCode,"设计学院","") SourceCode =replace(SourceCode,".html"">",".html>") tt1=split(SourceCode,"
") 'response.write tt1(1) 'response.end response.write replace(left(tt1(0),instr(tt1(0),"

")+7),"天空","瓯网")&"

" response.write right(tt1(0),len(tt1(0))-instr(tt1(0),"

")+1)&"

" response.write replace(replace(tt1(1),".html"">",".html>"),"ct","fct") else end if %>

Copyright © 2004 『松滋E人』 版权所有