?? class.asp
字號:
<!--#include file=top.asp -->
<%
Private Function bytes2BSTR(vIn)
Dim i, ThischrCode, NextchrCode
strReturn = ""
For i = 1 To LenB(vIn)
ThischrCode = AscB(MidB(vIn, i, 1))
If ThischrCode < &H80 Then
strReturn = strReturn & Chr(ThischrCode)
Else
NextchrCode = AscB(MidB(vIn, i + 1, 1))
strReturn = strReturn & Chr(CLng(ThischrCode) * &H100 + CInt(NextchrCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
Function GetURL(url)
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "GET", url, False, "", ""
.Send
GetURL = .ResponseText
GetURL = bytes2BSTR(.Responsebody)
End With
Set Retrieval = Nothing
End Function
file = GetURL("http://www.skycn.com/sort/"&request("id")&".html")
function convert(file)
'filearray=split(file,"您的位置")
filearray=split(file,"<tr bgcolor=""#42A5F7"">")
filearray2=split(filearray(1),"<table width=""760"">")
convert=filearray2(0)
convert=replace(convert,"href=""sort""","href=Class.asp?id=sort")
convert=replace(convert,"href='sort","href='Class.asp?id=sort")
convert=replace(convert,"HREF='sort","href='Class.asp?id=sort")
convert=replace(convert,"href=rjfl","href=Class.asp?id=rjfl")
convert=replace(convert,"href='rjfl","href=Class.asp?id=rjfl")
convert=replace(convert,"HREF=rjfl","href=Class.asp?id=rjfl")
convert=replace(convert,"HREF='rjfl","href=Class.asp?id=rjfl")
convert=replace(convert,"value='sort","value='Class.asp?id=sort")
convert=replace(convert,"value='rjfl","value='Class.asp?id=rjfl")
convert=replace(convert,"href=sort","href=Class.asp?id=sort")
convert=replace(convert,"soft_sort.html","index.asp")
convert=replace(convert,"article/","down/article.asp?id=")
convert=replace(convert,"sort/","down/Class.asp?id=")
convert=replace(convert,"flash/","down/flash.asp?id=")
convert=replace(convert,"<A href=""../index.html""","<A href=default.asp")
convert=replace(convert,"../soft/","download.asp?id=")
'convert=replace(convert,"_indate_DESC_1.html","")
convert=replace(convert,".html","")
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(<script.*></script>)"
convert= re.Replace(convert,"")
set re=Nothing
convert=replace(convert,"../search.php","search.asp")
convert=replace(convert,"軟件發布","")
convert=replace(convert,"※","")
convert=replace(convert,"高級查找","")
convert=replace(convert,"#000000","#639ace")
convert=replace(convert,"#DFE6EE","#dee7f7")
end function
response.write("<link href=""css.css"" rel=""stylesheet"" type=""text/css"">")
response.write("<title>紫色憂郁工作室--軟件下載站</title>")
response.write(" <table width=760 border=0 cellspacing=0 cellpadding=0 align=center><tr bgcolor=#848284> ")
response.write convert(file)
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -