Ce type de code est principalement utilisé lorsque nous n'avons pas implémenté la fonction de conception pour générer du statique, mais que nous souhaitons générer temporairement des pages dynamiques en pages statiques. Nous pouvons directement obtenir le contenu dynamique et l'enregistrer sous forme statique.
Copiez le code comme suit :
<!--#include file="admin_Checkuser.asp"-->
<%
appelez ConnectionDatabase()
dim str,str_new
str=""
str_new=""
sqlx="sélectionner l'identifiant dans la commande Fl_Products par identifiant desc"
définir rsx=conn.execute(sqlx)
faire sans rsx.eof
str=str&rsx("id")&"|"
rsx.movenext : boucle
rsx.fermer
sqlx="sélectionner l'identifiant dans Fl_News, trier par identifiant desc"
définir rsx=conn.execute(sqlx)
faire sans rsx.eof
str_new=str_new&rsx("id")&"|"
rsx.movenext : boucle
rsx.fermer
place=InStrRev(str,"|")
str=Gauche(str,place-1)
place=InStrRev(str_new,"|")
str_new=Gauche(str_new,place-1)
URL faible, cwww, acte
acte=Trim(Request.QueryString("acte"))
url =Request.ServerVariables("HTTP_HOST")
cwww="http://"+url
MakeHtm cwww&"/index.asp","../index.htm","Page d'accueil écrite avec succès!"
MakeHtm cwww&"/about.asp","../about.htm","Profil de l'entreprise écrit avec succès!"
MakeHtm cwww&"/contact.asp","../contact.htm","Contactez-nous par écrit avec succès !"
MakeHtm cwww&"/ry.asp","../ry.htm","Qualifications et distinctions rédigées avec succès !"
MakeHtm cwww&"/liuyan.asp","../liuyan.htm","Contactez-nous et écrivez avec succès!"
MakeHtm cwww&"/pro.asp","../pro.htm","Affichage du produit écrit avec succès !"
MakeHtm cwww&"/news.asp","../news.htm","Générer l'écriture d'un atelier avec succès !"
MakeHtm cwww&"/xinwen.asp","../xinwen.htm","Informations d'actualité écrites avec succès!"
MakeHtm cwww&"/alliance.asp","../alliance.htm","Réseau de vente écrit avec succès !"
'Générer le produit
xstr=split(str,"|")
pour i=0 à ubound(xstr)
MakeHtm cwww&"/uzProduct.asp?id="&xstr(i),"../uzProduct_"&xstr(i)&".htm","Product"&xstr(i)&"Écrit avec succès !"
suivant
xstr=split(str_new,"|")
pour i=1 à ubound(xstr)/25+1
MakeHtm cwww&"/xinwen.asp?Page="&i,"../xinwen_"&i&".htm","Liste des actualités"&i&"Écrit avec succès !"
suivant
xstr=split(str_new,"|")
pour i=0 à ubound(xstr)
MakeHtm cwww&"/uzNews.asp?id="&xstr(i),"../uzNews_"&xstr(i)&".htm","News"&xstr(i)&"Écrivez avec succès !"
suivant
Fonction BytesToBstr(corps,Cset)
objstream obscur
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Ouvrir
objstream.Écrire le corps
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Fermer
définir objstream = rien
Fonction de fin
Fonction MakeHtm(curl,turl,mess)
Définir xml = Server.CreateObject("Microsoft.XMLHTTP")
'Remplacez l'adresse suivante par l'adresse du fichier de votre page d'accueil. Assurez-vous d'utiliser le chemin absolu au début. Vous ne pouvez pas écrire un chemin relatif.
xml.Ouvrez "GET", curl, False
xml.Envoyer
BodyText=xml.ResponseBody
BodyText=BytesToBstr(BodyText,"gb2312")
Définir xml = Rien
'remplacer
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=remplacer(BodyText,"index.asp","index.htm")
BodyText=remplacer(BodyText,"about.asp","about.htm")
BodyText=remplacer(BodyText,"pro.asp","pro.htm")
BodyText=remplacer(BodyText,"news.asp","news.htm")
BodyText=remplacer(BodyText,"liuyan.asp","liuyan.htm")
BodyText=remplacer(BodyText,"ry.asp","ry.htm")
BodyText=remplacer(BodyText,"xinwen.asp","xinwen.htm")
BodyText=remplacer(BodyText,"contact.asp","contact.htm")
Dim fso, MonFichier
Définir fso = CreateObject("Scripting.FileSystemObject")
Définir MyFile= fso.CreateTextFile(server.MapPath(turl), True)
MonFichier.WriteLine(BodyText)
MonFichier.Fermer
réponse.Écrire un désordre
réponse.Écrivez "<br>"
Fonction de fin
Fonction publique RegReplace (sContent, sPatrn, sNewStr)
Dim oTempReg : Définir oTempReg = New RegExp
Avec oTempReg
.IgnoreCase = Vrai
.Global=Vrai
.Motif = sMotif
RegReplace = .Replace(sContent, sNewStr)
Terminer par
Définir oTempReg = Rien
Fonction de fin
appelez CloseDatabase()
%>
<html>
<tête>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>Document sans titre</title>
<style>
corps,td{font-family:Verdana, Arial, Helvetica, sans-serif ;
taille de police : 10,5 pt ;}
</style>
</tête>
<corps>
</corps>
</html>
de isboy