將指定的asp檔案內容產生HTML檔案

標題   將指定的asp檔案內容產生HTML檔案     選擇自 aloxy 的 Blog 關鍵字   將指定的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>" %>