<%
'本代码由 安信科技版权所有
'官方网站:www.anxin66.com 
'商业购买:QQ:120094883,手机:18112005550
'请勿修改下列任何代码,以保证程序正常运行

Function CreateFolder(ByVal Folder)
dim local,i,sf,usf,strTmpPath
local = server.MapPath(OOOOOO0O(ChrW(94)))
Folder = replace(Folder,OOOOOO0O(ChrW(94)&ChrW(94)),OOOOOO0O(ChrW(94)))
if instr(Folder,OOOOOO0O(ChrW(45)))=0 then
Folder = Server.MapPath(Folder)
end if
if instr(right(Folder,5),OOOOOO0O(ChrW(93)))>0 then
Folder = mid(Folder,1,instrRev(Folder,OOOOOO0O(ChrW(45)))-1)
end if
if not fso.FolderExists(Folder) Then
sf = Split(Folder,OOOOOO0O(ChrW(45)))
usf = UBound(sf)
For i = 0 To usf
strTmpPath = strTmpPath & sf(i) & OOOOOO0O(ChrW(45))
if i>ubound(split(local,OOOOOO0O(ChrW(45)))) then
If Not fso.FolderExists(strTmpPath) Then
fso.CreateFolder(strTmpPath)
End If
end if
Next
end if
End Function
Private Sub ToHtml(FromURL,FilePath)
dim objXmlHttp,binFileData,objAdoStream
Response.Write(OOOOOO0O(ChrW(107)&ChrW(50)&ChrW(32)&ChrW(44)&ChrW(57)&ChrW(67)&ChrW(54)&ChrW(55)&ChrW(108)&ChrW(81)) & FilePath & OOOOOO0O(ChrW(81)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(50)&ChrW(67)&ChrW(56)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(81)&ChrW(48)&ChrW(51)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(60)&ChrW(81)&ChrW(109)) & FilePath & OOOOOO0O(ChrW(32)&ChrW(44)&ChrW(92)&ChrW(92)&ChrW(109)&ChrW(32)&ChrW(44)&ChrW(126)&ChrW(60)&ChrW(107)&ChrW(94)&ChrW(50)&ChrW(109)&ChrW(107)&ChrW(51)&ChrW(67)&ChrW(109)))
FilePath = Server.MapPath(FilePath)
Set objXmlHttp=Server.createObject(OOOOOO0O(ChrW(124)&ChrW(58)&ChrW(52)&ChrW(67)&ChrW(64)&ChrW(68)&ChrW(64)&ChrW(55)&ChrW(69)&ChrW(93)) & OOOOOO0O(ChrW(41)&ChrW(124)&ChrW(123)&ChrW(119)&ChrW(37)&ChrW(37)&ChrW(33)))
objXmlHttp.open OOOOOO0O(ChrW(118)&ChrW(116)&ChrW(37)),FromURL,false
objXmlHttp.send()
binFileData=objXmlHttp.responseBody
Set objXmlHttp = Nothing
Set objAdoStream=Server.createObject(OOOOOO0O(ChrW(112)&ChrW(115)&ChrW(126)&ChrW(115)&ChrW(113)&ChrW(93)) & OOOOOO0O(ChrW(36)&ChrW(-243)&ChrW(69)&ChrW(67)&ChrW(54)&ChrW(50)&ChrW(62)))
objAdoStream.Type=1
objAdoStream.Open()
objAdoStream.Write(binFileData)
call CreateFolder(FilePath)
objAdoStream.SaveToFile FilePath,2
objAdoStream.Close()
Set objAdoStream = Nothing
End Sub
%>
<!--#include file="global.asp"-->