Copy Code code as follows:
<%
Webfolder= "/"
host= "index_cn.asp" ' foreground dynamic address
Folder= "/" folder
Filename= "index_cn.html" generates a static filename
Fso_info Host,folder,filename
Response.Write "Generate Web site Chinese home static HTML complete. <br/>"
' Generate HTML
Function Fso_info (Host,folder,filename)
host= "http://" +request.servervariables ("Http_host") &webfolder&host
If SaveFile ("&folder&filename&" "," "&host&") Then
Response. The Write "&folder&filename&" build succeeded. <br/> "
Else
Response.Write "&folder&filename&" generates <font color= ' #FF0000 ' > failed </font> Your file name may contain special characters .< br/> "
End If
End Function
' Generate file
function SaveFile (Localfilename,remotefileurl)
Dim Ads, retrieval, Getremotedata
On Error Resume Next
Set retrieval = Server.CreateObject ("Microso" & ft.) XM "&" Lhttp ") '//Take apart the word to prevent the killing of antivirus software
With retrieval
. Open "Get", Remotefileurl, False, "", ""
. Send
Getremotedata =. Responsebody
End With
Set retrieval = Nothing
Set Ads = Server.CreateObject ("Ado" & "db.") Str "&" Eam ") '//Take apart the word to prevent the killing of antivirus software
With Ads
. Type = 1
. Open
. Write Getremotedata
. SaveToFile Server.MapPath (LocalFilename), 2
. Cancel ()
. Close ()
End With
Set ads=nothing
If Err <> 0 Then
SaveFile = False
Err.Clear
Else
SaveFile = True
End If
End Function
%>
