default.asp

入库连接下载； 生成静态页面； 可以添加广告会员下载

<!--#include file=top.asp -->
<%
Private Function bytes2BSTR(vIn)
	Dim i, ThischrCode, NextchrCodea
	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/index.html")


function convert(file)
'filearray=split(file,"您的位置")
filearray=split(file,"<tr bgcolor=""#42A5F7"">")
filearray2=split(filearray(1),"<hr")

convert=filearray2(0)

convert=replace(convert,"href=""sort/""","href=Class.asp?id=")
convert=replace(convert,"href='sort/","href='Class.asp?id=")
convert=replace(convert,"HREF='sort/","href='Class.asp?id=")
convert=replace(convert,"value='sort/","value='Class.asp?id=")
convert=replace(convert,"href=sort/","href=Class.asp?id=")
convert=replace(convert,"soft_sort.html","index.asp")

convert=replace(convert,"：<A href=""index.html""","<A href=default.asp")
convert=replace(convert,"soft/","download.asp?id=")
convert=replace(convert,"article/","article.asp?id=")
convert=replace(convert,"flash/","flash.asp?id=")
convert=replace(convert,"new/qd","Class.asp?id=sort0000qd_indate_DESC_1")
convert=replace(convert,"new/","new.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")
convert=replace(convert,"网络实名:天空软件站","")
convert=replace(convert,"Skycn","Fymp3")
convert=replace(convert,"skycn","Fymp3")
convert=replace(convert,"本站特聘法律顾问：<a href=http://www.h-lawer.com/ target=_blank>何新权律师</a>","本站技术支持：jjgn(雪域一线天)")
convert=replace(convert,"","")
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)
%>