<!--#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/soft_sort.html")


'response.write (file)

function convert(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,"_indate_DESC_1.html","_indate_DESC_1")
convert=replace(convert,"href=""sort","href=""Class.asp?id=")
convert=replace(convert,"../sort/","Class.asp?id=")
convert=replace(convert,"<A href=""../index.html""","<A href=default.asp")

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,"軟件發(fā)布","")
convert=replace(convert,"※","")
convert=replace(convert,"高級查找","")
convert=replace(convert,"../word.php","word.asp")
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)

%>