Aunque Script House ha publicado códigos relevantes antes, algunos sitios web especiales no son perfectos. Recientemente, ayudé a los clientes a modificar el sistema y encontré que este código era bastante bueno, así que lo extraje para comodidad de todos.
Copie el código de código de la siguiente manera:
<%
carpeta web="/"
host="index_cn.asp"'dirección dinámica de recepción
carpeta="/"'carpeta
filename="index_cn.html"'Generar nombre de archivo estático
Fso_info host,carpeta,nombre de archivo
Response.write "Completar la generación de HTML estático para la página de inicio china del sitio web.<br />"
'Generar html
Función Fso_info(host,carpeta,nombre de archivo)
host="http://"+Request.ServerVariables("HTTP_HOST")&carpeta web&host
si SaveFile(""&carpeta&nombre de archivo&"",""&host&"") entonces
respuesta.Escribir ""&carpeta&nombre de archivo&" generado correctamente. <br />"
demás
Response.write ""&carpeta&nombre de archivo&" no pudo generar <font color='#FF0000'></font>. Quizás el nombre de su archivo contenga caracteres especiales.<br />"
terminar si
Función final
'Generar archivo
función Guardar archivo (nombre de archivo local, URL de archivo remoto)
Anuncios atenuados, recuperación, GetRemoteData
En caso de error Continuar siguiente
Set Retrieval = Server.CreateObject("Microso" & "ft.XM" & "LHTTP") '//Divida las palabras para evitar la eliminación accidental mediante software antivirus
Con recuperación
.Abrir "Obtener", RemoteFileUrl, Falso, "", ""
.Enviar
GetRemoteData = .ResponseBody
Terminar con
Establecer recuperación = nada
Set Ads = Server.CreateObject("Ado" & "db.Str" & "eam") '//Divida las palabras para evitar la eliminación accidental por parte del software antivirus
Con anuncios
.Tipo = 1
.Abierto
.Escribir GetRemoteData
.SaveToFile Server.MapPath(NombreDeArchivoLocal), 2
.Cancelar()
.Cerca()
Terminar con
Establecer anuncios = nada
si err <> 0 entonces
GuardarArchivo = falso
errar.claro
demás
Guardar archivo = verdadero
terminar si
Función final
%>