Il y a deux jours, j'ai fait un article publiant un programme pour un site Web (www.cfsoft.com.cn).
1. La structure de la table XXFB est la suivante:
Type de type, utilisé dans mon site Web pour distinguer plusieurs colonnes, j'ai une technologie et une nouvelle.
Titre de la page pagtitale
Page de mots clés Mot-clé
Description dans la page description Mata
Titre de l'article de Doctle
Contenu de l'article DocText
TheDate Release Time
Code de tri OrderID
L'étiquetage Comdend est-il un article recommandé
Deuxièmement, chaque type définit une liste de noms de type List_ Plus, une page Temp_ Plus Type Name Irtics Template.
3. Ce qui suit est une page statique générant un programme principal:
| Ce qui suit est le contenu de référence: Si TRIM (demande (drapeau)) = Build alors '--- Générer le répertoire ------ SQL = SELECT TYPE DISTIT DE XXFB Définir objrs = const.execute (SQL) Bien qu'il ne soit pas objrs.eof url = siteUrl & / admin / list_ & trim (objrs (type)) &. Définir http = server.createObject (msxml2.xmlhttp) Http.open get, url, false Http.send () Définir ObjStream = Server.CreateObject (Adodb.Stream) objstream.type = 1 objstream.open objstream.write http.Responsebody Objstream.savetofile server.mappath (/ & trim (objrs (type)) & / & trim (objrs (type)) &. Htm, 2 objstream.close Définir objstream = rien objrs.movenext Se promener Définir objrs = rien SQL = SELECT * FROM XXFB ORDER par TheDate Desc Définir objrs = const.execute (SQL) Bien qu'il ne soit pas objrs.eof Url = siteUrl & / admin / temp_ & trim (objrs (type)) & Asp? Définir http = server.createObject (msxml2.xmlhttp) Http.open get, url, false Http.send () Définir ObjStream = Server.CreateObject (Adodb.Stream) objstream.type = 1 objstream.open objstream.write http.responsebody Objstream.savetofile server.mappath (/ & trim (objrs (type)) & / & trim (objrs (id) &. Htm), 2 objstream.close Définir objstream = rien objrs.movenext se promener Response.Write génère un succès statique! Terminer si |