Copy codeThe Code is as follows: <%
Webfolder = "/"
Host = "index_cn.asp" 'foreground Dynamic Address
Folder = "/" 'folder
Filename = "index_cn.html" 'to generate a static file name
Fso_info host, folder, filename
Response. write "static HTML of the Chinese homepage of the website is generated. <br/>"
'Generate html
Function Fso_info (host, folder, filename)
Host = "http: //" + Request. ServerVariables ("HTTP_HOST") & webfolder & host
If SaveFile ("" & folder & filename & "", "" & host & ") then
Response. Write "" & folder & filename & "generated successfully. <br/>"
Else
Response. write "" & folder & filename & "generate <font color = '# FF0000'> failed </font>. Your file name may contain special characters. <br/>"
End if
End Function
'Generate the file
Function SaveFile (LocalFileName, RemoteFileUrl)
Dim Ads, Retrieval, GetRemoteData
On Error Resume Next
Set Retrieval = Server. CreateObject ("Microso" & "ft. XM" & "LHTTP") '// open the word to prevent false positives
With Retrieval
. Open "Get", RemoteFileUrl, False ,"",""
. Send
GetRemoteData =. ResponseBody
End
Set Retrieval = Nothing
Set Ads = Server. CreateObject ("Ado" & "db. Str" & "eam") '// separate the words to prevent false positives
With Ads
. Type = 1
. Open
. Write GetRemoteData
. SaveToFile Server. MapPath (LocalFileName), 2
. Cancel ()
. Close ()
End
Set Ads = nothing
If err <> 0 then
SaveFile = false
Err. clear
Else
SaveFile = true
End if
End function
%>
