download.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/soft/"&request("id")&".html")


function convert(file)
filearray=split(file,"<tr bgcolor=""#42A5F7"">")

filearray2=split(filearray(1),"*")

convert=filearray2(0)

convert=replace(convert,"href=""sort""","href=Class.asp?id=sort")
convert=replace(convert,"href='../sort/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,"sort/soft_sort.html","down/index.asp")
convert=replace(convert,"http://count.skycn.com/softdown.php?id="&request("id")&"&url=","")

convert=replace(convert,"<A href=""../index.html""","<A href=default.asp")
convert=replace(convert,"../softimg.php","softimg.asp")
convert=replace(convert,"../soft/","download.asp?id=")
convert=replace(convert,"article/","down/article.asp?id=")
'convert=replace(convert,"_indate_DESC_1.html","")
convert=replace(convert,".html","")



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,"../images","images")
convert=replace(convert,"我来说两句","")
convert=replace(convert,"<img border=0 height=17 width=19 src='images/pinglun.gif'>","")
convert=replace(convert,"<img border=0 height=19 width=66 src='images/faq.gif'>","")
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)
response.write ("</B></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>")
%>