new.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/new/"&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,"value='sort","value='Class.asp?id=sort")
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,"00.html","new.asp?id=00")
convert=replace(convert,"01.html","new.asp?id=01")
convert=replace(convert,"02.html","new.asp?id=02")
convert=replace(convert,"03.html","new.asp?id=03")
convert=replace(convert,"wz.html","new.asp?id=wz")
convert=replace(convert,"qd.html","new.asp?id=qd")

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)

%>