< %
url = " 1shouye.asp " ' 源文件
filename = " index.html " ' 目标文件
Set MyFileObject = Server.CreateObject( " Scripting.FileSystemObject " )
path1 = server.mappath(filename)
Set MyTextFile = MyFileObject.CreateTextFile(path1)
strurl = url
strTmp = GetHTTPPage( trim (strurl))
MytextFile.Close
response.write " <p> 生成 " & filename & " 成功 <br></p> "
Set MyFileObject = nothing
Function getHTTPPage(url)
On Error Resume Next
dim http
set http = Server.createobject( " Microsoft.XMLHTTP " )
Http.open " GET " ,url, false
Http.send()
if Http.readystate <> 4 then
exit function
end if
getHTTPPage = bytesToBSTR(Http.responseBody, " GB2312 " )
set http = nothing
If Err.number <> 0 then
Response.Write " <p align='center'><font color='red'><b>服务器获取文件内容出错</b></font></p> "
Err.Clear
End If
End Function
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject( " adodb.stream " )
objstream.Type = 1
objstream.Mode = 3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
Function timetohtml(str)
timetohtml = Replace ( Replace ( Replace (str, " : " , "" ), " - " , "" ), " " , "" ) & " .html "
End Function
% >
