Generate an HTML file from the specified ASP file

Title Generate an HTML file from the specified ASP fileSelect blog from aloxy Keywords Generate an HTML file from the specified ASP file Source

<% Function getpage (URL) Dim Retrieval Set retrieval = Createobject ("Microsoft. XMLHTTP ") With Retrieval . Open "get", URL, false ',"","" . Send Getpage = bytestobstr (. responsebody) End 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 to update the homepage ..." 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> Update complete! </Font>" %>