The title generates the specified ASP file content to generate the HTML file Select the version of the BLOG key of Aloxy to generate the specified ASP file content <% function getpage (url) Dim RetrievalSet Retrieval = CreteObject ("Microsoft.xmlhttp") with retrieval .Open "Get", url, False ', "", "" .Send GetPage = BytesToBstr (.ResponseBody) End With Set Retrieval = Nothing End FunctionFunction BytesToBstr (body) dim objstreamset objstream = Server.CreateObject ( "adodb.stream") objstream .Type = 1objstream.Mode = 3objstream.Openobjstream.Write bodyobjstream.Position = 0objstream.Type = 2objstream.Charset = "GB2312" BytesToBstr = objstream.ReadText objstream.Closeset objstream = nothingEnd Functionon error resume nextUrl = "http: // www. TAiang.com.cn/index.asp"response.write "Start Update Home ..." WSTR = getPage (URL) Set Fs = Server.createObject ("scripting.filesystemObject") 'if not myfile.folderexists (Server.MAppath ("/ html /")) The 'MyFile.createFolder (Server.MAppath ("/ HTML /"))' 'endiff (fs.fileexists (server.mappath ("." "" "& " )) Thenfs.deletefile (Server.MAppath ("." ") End Ifset CRFI = fs.createtextfile (server.mappath (".") ") CRFI.WriteLine (WSTR) SET CRFI = NothingSet FS = NothingResponse.write" ... update complete! "%>
