如何将指定的asp文件内容生成HTML文件？

<%

Function GetPage(url)

dim Retrieval

Set Retrieval = CreateObject("Microsoft.XMLHTTP")

With Retrieval

.Open "Get", url, False ', "", ""

.Send

GetPage = BytesToBstr(.ResponseBody)

End With

Set Retrieval = Nothing

End Function

Function BytesToBstr(body)

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 = "GB2312"

BytesToBstr = objstream.ReadText

objstream.Close

set objstream = nothing

End Function

on error resume next

Url="http://www.taiang.com.cn/index.asp"

response.write "开始更新首页..."

wstr = GetPage(Url)

Set fs=Server.CreateObject("Scripting.FileSystemObject")

'if not MyFile.FolderExists(server.MapPath("/html/")) then

'MyFile.CreateFolder(server.MapPath("/html/"))'

'end if

If (fs.FileExists(server.MapPath("./")&"/index.htm")) Then

fs.DeleteFile(server.MapPath("./")&"/index.htm")

End If

Set CrFi=fs.CreateTextFile(server.MapPath("./")&"/index.htm")

Crfi.Writeline(wstr)

set CrFi=nothing

set fs=nothing

response.write "...<font color=red>更新完成！</font>"

%>

本文地址：http://www.45fan.com/a/question/73669.html