Este tipo de código se usa principalmente cuando no hemos implementado la función de diseñar para generar estática, pero queremos generar temporalmente algunas páginas dinámicas en páginas estáticas. Podemos obtener directamente el contenido dinámico y guardarlo como estático.
Copie el código de código de la siguiente manera:
<!--#include file="admin_Checkuser.asp"-->
<%
llamar a la base de datos de conexión()
cadena tenue, str_new
cadena=""
str_new=""
sqlx="seleccione id de Fl_Products ordene por id desc"
establecer rsx=conn.execute(sqlx)
hacer mientras no rsx.eof
cadena=cadena&rsx("id")&"|"
rsx.movenext: bucle
rsx.cerrar
sqlx="seleccione id de Fl_News ordene por id desc"
establecer rsx=conn.execute(sqlx)
hacer mientras no rsx.eof
str_new=str_new&rsx("id")&"|"
rsx.movenext: bucle
rsx.cerrar
lugar=InStrRev(cadena,"|")
cadena=Izquierda(cadena,lugar-1)
lugar=InStrRev(str_new,"|")
str_new=Izquierda(str_new,lugar-1)
URL tenue, cwww, actuar
actuar=Recortar(Request.QueryString("actuar"))
URL = Solicitud.Variables del servidor ("HTTP_HOST")
cwww="http://"+url
MakeHtm cwww&"/index.asp","../index.htm","¡La página de inicio se escribió correctamente!"
MakeHtm cwww&"/about.asp","../about.htm","¡Perfil de la empresa escrito correctamente!"
MakeHtm cwww&"/contact.asp","../contact.htm","¡Contáctenos escrito con éxito!"
MakeHtm cwww&"/ry.asp","../ry.htm","¡Calificaciones y honores escritos con éxito!"
MakeHtm cwww&"/liuyan.asp","../liuyan.htm","¡Contáctanos y escribe con éxito!"
MakeHtm cwww&"/pro.asp","../pro.htm","¡La visualización del producto se escribió correctamente!"
MakeHtm cwww&"/news.asp","../news.htm","¡Genere redacción de taller con éxito!"
MakeHtm cwww&"/xinwen.asp","../xinwen.htm","¡Información de noticias escrita correctamente!"
MakeHtm cwww&"/alliance.asp","../alliance.htm","¡Red de ventas escrita con éxito!"
'Generar producto
xstr=dividir(cadena,"|")
para i=0 a ubound(xstr)
MakeHtm cwww&"/uzProduct.asp?id="&xstr(i),"../uzProduct_"&xstr(i)&".htm","Product"&xstr(i)&"¡Escrito correctamente!"
próximo
xstr=split(str_new,"|")
para i=1 a ubound(xstr)/25+1
MakeHtm cwww&"/xinwen.asp?Page="&i,"../xinwen_"&i&".htm","Lista de noticias"&i&"¡Escrito correctamente!"
próximo
xstr=split(str_new,"|")
para i=0 a ubound(xstr)
MakeHtm cwww&"/uzNews.asp?id="&xstr(i),"../uzNews_"&xstr(i)&".htm","News"&xstr(i)&"¡Escribe con éxito!"
próximo
Función BytesToBstr(cuerpo,Cset)
corriente de objetos tenue
establecer objstream = Server.CreateObject("adodb.stream")
objstream.Tipo = 1
objstream.Modo =3
objstream.Abrir
objstream.Escribir cuerpo
objstream.Posición = 0
objstream.Tipo = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Cerrar
establecer objstream = nada
Función final
Función MakeHtm(curl,turl,desorden)
Establecer xml = Server.CreateObject ("Microsoft.XMLHTTP")
'Reemplace la siguiente dirección con la dirección del archivo de su página de inicio. Asegúrese de utilizar la ruta absoluta al principio. No puede escribir una ruta relativa.
xml.Abrir "GET", curl, Falso
xml.Enviar
CuerpoTexto=xml.ResponseBody
TextoCuerpo=BytesToBstr(TextoCuerpo,"gb2312")
Establecer xml = Nada
'reemplazar
BodyText=RegReplace(BodyText,"uzProduct/.asp/?id=(/d*)", "uzProduct_$1.htm")
BodyText=RegReplace(BodyText,"uzNews/.asp/?id=(/d*)", "uzNews_$1.htm")
BodyText=RegReplace(BodyText,"xinwen/.asp/?Page=(/d*)", "xinwen_$1.htm")
BodyText=reemplazar(BodyText,"index.asp","index.htm")
BodyText=reemplazar(BodyText,"acerca de.asp","acerca de.htm")
TextoCuerpo=reemplazar(TextoCuerpo,"pro.asp","pro.htm")
BodyText=reemplazar(BodyText,"noticias.asp","noticias.htm")
BodyText=reemplazar(BodyText,"liuyan.asp","liuyan.htm")
TextoCuerpo=reemplazar(TextoCuerpo,"ry.asp","ry.htm")
BodyText=reemplazar(BodyText,"xinwen.asp","xinwen.htm")
BodyText=reemplazar(BodyText,"contacto.asp","contacto.htm")
Dim fso, MyFile
Establecer fso = CreateObject("Scripting.FileSystemObject")
Establecer MyFile= fso.CreateTextFile(server.MapPath(turl), True)
MiArchivo.WriteLine(BodyText)
MiArchivo.Cerrar
respuesta.Escribir desorden
respuesta.Escribe "<br>"
Función final
Función pública RegReplace(sContent, sPatrn, sNewStr)
Dim oTempReg: Establecer oTempReg = Nueva RegExp
Con oTempReg
.IgnoreCase = Verdadero
.Global=Verdadero
.Patrón = sPatrn
RegReplace = .Replace(sContenido, sNewStr)
Terminar con
Establecer oTempReg = Nada
Función final
llamar a CerrarBase de Datos()
%>
<html>
<cabeza>
<meta http-equiv="Tipo de contenido" content="text/html; charset=gb2312" />
<título>Documento sin título</título>
<estilo>
cuerpo,td{font-family:Verdana, Arial, Helvetica, sans-serif;
tamaño de fuente: 10,5 puntos;}
</estilo>
</cabeza>
<cuerpo>
</cuerpo>
</html>
de iisboy