Generate an HTML file with the specified ASP file content
<% 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 " Start updating home ... "wstr = getpage (url) set fs = server.createObject (" scripting.filesystemObject ") 'if not myfile.folderexists (server.mappath (" / html / ")) Then' MyFile.createFolder Server.mappath ("/ html /")) '' end ififf (fs.fileexists (server.mappath (".") ")") ").. / "" "" "" "") End if set crfi = fs.createtextfile (Server.mAppath ("." X.htm ") crfi.writeline (wstr) set crfi = nothing set fs = Nothing response.write" ... update complete! "%>
