Diese Art von Code wird hauptsächlich verwendet, wenn wir die Funktion zum Generieren statischer Seiten nicht implementiert haben, wir jedoch vorübergehend einige dynamische Seiten in statische Seiten generieren möchten. Wir können den dynamischen Inhalt direkt abrufen und als statischen speichern.
Kopieren Sie den Codecode wie folgt:
<!--#include file="admin_Checkuser.asp"-->
<%
ConnectionDatabase() aufrufen
dim str,str_new
str=""
str_new=""
sqlx="ID aus Fl_Products auswählen, Reihenfolge nach ID desc"
set rsx=conn.execute(sqlx)
tun, während nicht rsx.eof
str=str&rsx("id")&"|"
rsx.movenext :loop
rsx.close
sqlx="ID aus Fl_News auswählen, sortiert nach ID desc"
set rsx=conn.execute(sqlx)
tun, während nicht rsx.eof
str_new=str_new&rsx("id")&"|"
rsx.movenext :loop
rsx.close
place=InStrRev(str,"|")
str=Left(str,place-1)
place=InStrRev(str_new,"|")
str_new=Left(str_new,place-1)
dim url,cwww,act
act=Trim(Request.QueryString("act"))
URL =Request.ServerVariables("HTTP_HOST")
cwww="http://"+URL
MakeHtm cwww&"/index.asp","../index.htm","Homepage erfolgreich geschrieben!"
MakeHtm cwww&"/about.asp","../about.htm","Firmenprofil erfolgreich erstellt!"
MakeHtm cwww&"/contact.asp","../contact.htm","Kontaktieren Sie uns erfolgreich geschrieben!"
MakeHtm cwww&"/ry.asp","../ry.htm","Qualifikationen und Ehrungen erfolgreich geschrieben!"
MakeHtm cwww&"/liuyan.asp","../liuyan.htm","Kontaktieren Sie uns und schreiben Sie erfolgreich!"
MakeHtm cwww&"/pro.asp","../pro.htm","Produktanzeige erfolgreich geschrieben!"
MakeHtm cwww&"/news.asp","../news.htm","Workshop-Schreiben erfolgreich generieren!"
MakeHtm cwww&"/xinwen.asp","../xinwen.htm","Nachrichteninformationen erfolgreich geschrieben!"
MakeHtm cwww&"/alliance.asp","../alliance.htm","Vertriebsnetzwerk erfolgreich geschrieben!"
'Produkt generieren
xstr=split(str,"|")
für i=0 bis ubound(xstr)
MakeHtm cwww&"/uzProduct.asp?id="&xstr(i),"../uzProduct_"&xstr(i)&".htm","Product"&xstr(i)&"Erfolgreich geschrieben!"
nächste
xstr=split(str_new,"|")
für i=1 bis ubound(xstr)/25+1
MakeHtm cwww&"/xinwen.asp?Page="&i,../xinwen_"&i&".htm","News List"&i&"Erfolgreich geschrieben!"
nächste
xstr=split(str_new,"|")
für i=0 bis ubound(xstr)
MakeHtm cwww&"/uzNews.asp?id="&xstr(i),"../uzNews_"&xstr(i)&".htm","News"&xstr(i)&"Erfolgreich schreiben!"
nächste
Funktion BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Öffnen
objstream.Text schreiben
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Schließen
set objstream = nichts
Funktion beenden
Funktion MakeHtm(curl,turl,mess)
Setze xml = Server.CreateObject("Microsoft.XMLHTTP")
'Ersetzen Sie die folgende Adresse durch die Dateiadresse Ihrer Homepage. Achten Sie darauf, dass Sie am Anfang den absoluten Pfad verwenden.
xml.Open „GET“, curl, False
xml.Senden
BodyText=xml.ResponseBody
BodyText=BytesToBstr(BodyText,"gb2312")
Setze xml = Nichts
'ersetzen
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=replace(BodyText,"index.asp","index.htm")
BodyText=replace(BodyText,"about.asp","about.htm")
BodyText=replace(BodyText,"pro.asp","pro.htm")
BodyText=replace(BodyText,"news.asp","news.htm")
BodyText=replace(BodyText,"liuyan.asp","liuyan.htm")
BodyText=replace(BodyText,"ry.asp","ry.htm")
BodyText=replace(BodyText,"xinwen.asp","xinwen.htm")
BodyText=replace(BodyText,"contact.asp","contact.htm")
Dim fso, MyFile
Setze fso = CreateObject("Scripting.FileSystemObject")
Setze MyFile= fso.CreateTextFile(server.MapPath(turl), True)
MyFile.WriteLine(BodyText)
MyFile.Close
Antwort.Write chaos
Antwort.Schreiben Sie „<br>“
Funktion beenden
Öffentliche Funktion RegReplace(sContent, sPatrn, sNewStr)
Dim oTempReg: Setze oTempReg = New RegExp
Mit oTempReg
.IgnoreCase = True
.Global=True
.Pattern = sPatrn
RegReplace = .Replace(sContent, sNewStr)
Ende mit
Setzen Sie oTempReg = Nothing
Funktion beenden
Aufruf von CloseDatabase()
%>
<html>
<Kopf>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>Unbenanntes Dokument</title>
<Stil>
body,td{font-family:Verdana, Arial, Helvetica, sans-serif;
Schriftgröße: 10,5pt;}
</style>
</head>
<Körper>
</body>
</html>
von iisboy