Aunque Wulin.com www.vevb.com ha publicado códigos relevantes antes, algunos sitios web especiales no son perfectos. Recientemente, ayudé a un cliente a modificar el sistema y encontré que este código era bastante bueno, así que lo extraje para todos. conveniencia. 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 genera 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.
demás
Response.write &folder&filename& 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 mediante software antivirus
Con anuncios
.Tipo = 1
.Abierto
.Escribir GetRemoteData
.SaveToFile Server.MapPath(LocalFileName), 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
%>