Méthode simple ASP pour générer du statique (remplacement de balise de modèle)

Un moyen simple de générer de l'asp statique. Aujourd'hui, j'ai regardé le code dans l'outil dictionnaire. Les amis qui en ont besoin peuvent s'y référer. CréerHtml

Tous les articles sont générés, ressources faciles à utiliser

Première méthode :

Copiez le code comme suit :

'Démarrer le mode de génération HTML

Définir Rs = Server.Createobject (Adodb.Recordset)

Sql = Sélectionnez KQIQI_ID, KQIQI_Title, KQIQI_Pinyin, KQIQI_Explain, KQIQI_Content, KQIQI_Record à partir de KQIQI_CY, trié par KQIQI_ID Desc

Rs.Open SQL,Conn,1,3

Datanum=Rs.Recordcount

Pour i = 1 à Datanum

Titre=Remplacer(Remplacer(Rs(1),Chr(13),),Chr(10),)

'Commencer à générer des fichiers idiomatiques

Définir Fso=Createobject (Scripting.FilesyStemobject)

Définir KQIQI_MB=Fso.Opentextfile(server.mappath(KQIQI_CY_MB.html))

KQIQI_Ce=KQIQI_MB.readall

KQIQI_MB.close

KQIQI_Ce=Remplacer(KQIQI_Ce,{$KQIQI:Titre},&Titre&)

KQIQI_Ce=Remplacer(KQIQI_Ce,{$KQIQI:SystemTitle},&SystemTitle&)

KQIQI_Ce=Remplacer(KQIQI_Ce,{$KQIQI:Pinyin},&Rs(2)&)

KQIQI_Ce=Remplacer(KQIQI_Ce,{$KQIQI:Expliquez},&Rs(3)&)

KQIQI_Ce=Remplacer(KQIQI_Ce,{$KQIQI:Content},&Rs(4)&)

KQIQI_Ce=Remplacer(KQIQI_Ce,{$KQIQI:Enregistrement},&Rs(5)&)

Définir KQIQI_We=Fso.Createtextfile(Server.Mappath(Html/KQIQICY_&Rs(0)&.html),true)

KQIQI_We.writeline KQIQI_Ce

KQIQI_We.Fermer

Définir Fso=Rien

'Génération terminée

Rs.Movenext

Suivant

KQIQICY = KQIQICY & <TABLE cellSpacing=0 cellPadding=0 width=480 align=center border=0 class=td table> & vbCrLf

KQIQICY = KQIQICY & <TR><TD align=center><IMG src=images/logo.gif border=0 width=220 height=90></TD></TR> & vbCrLf

KQIQICY = KQIQICY & <TR><TD align=center class=tdbar>Généré</TD></TR> & vbCrLf

KQIQICY = KQIQICY & <TR><TD align=center>Le dictionnaire d'idiomes Ke Qiqi a été généré ! <input type=button name=button1value=return onclick=javascript:history.back(-1);></TD></TR>& vbCrLf

KQIQICY = KQIQICY & <TR><TD align=center class=tdbar>Quitter</TD></TR> & vbCrLf

KQIQICY = KQIQICY & <TR><TD align=center><a href=KQIQI_Admin.asp?Action=Quit>Quitter</a>& vbCrLf

KQIQICY = KQIQICY & </TD></TR></FORM></TABLE> & vbCrLf

Le deuxième type est visible depuis d’autres systèmes.

Copiez le code comme suit :

<%

'Droit d'auteur 2007

'Écrit par : Wu Jun

' Droit d'auteur : www.sm05.com

'Version : Version 1.0

'Support technique : Email : [email protected] QQ : 21275120

%>

<!--#include file=cyconn.asp-->

<%

faible fso

faible fr

faible wstr

fw

'Démarrer le mode de génération HTML

définir rs=server.createobject(adodb.recordset)

sql=select * à partir de l'ordre des photos par identifiant desc

rs.open sql, conn, 1,3

datanum=rs.recordcount

pour i= 1 à datanum

'Commencer à générer des fichiers idiomatiques

set fso=createobject(scripting.filesystemobject)

set fr=fso.opentextfile(server.mappath(chengyu_m.htm))

wstr=fr.readall

fr.close

faible rstr

wstr=replace(wstr,<{{biaoti}}>,&replace(rs(biaoti),vbnewline,)&)

wstr=replace(wstr,<{{pinyin}}>,&rs(sg)&)

wstr=replace(wstr,<{{jieshi}}>,&rs(js)&)

wstr=replace(wstr,<{{from}}>,&rs(content)&)

wstr=replace(wstr,<{{exemple}}>,&rs(jilu)&)

set fw=fso.createtextfile(server.mappath(view/chengyu&rs(id)&.htm),true)

fw.writeline wstr

fw.close

définir fso = rien

'Génération terminée

rs.movenext

suivant

réponse.write Allez, toutes les colonnes idiomatiques du forum ont été générées !

%>

MakeHtml est généré à partir de l'identifiant spécifié

Copiez le code comme suit :

'Démarrer le mode de génération HTML

Définir Rs = Server.Createobject (Adodb.Recordset)

Sql = Sélectionnez KQIQI_ID, KQIQI_Title, KQIQI_Pinyin, KQIQI_Explain, KQIQI_Content, KQIQI_Record à partir de KQIQI_CY, trié par KQIQI_ID Desc

Rs.Open SQL,Conn,1,3

Pour i=id1 À id2

Titre=Remplacer(Remplacer(Rs(1),Chr(13),),Chr(10),)

'Commencer à générer des fichiers idiomatiques

Définir Fso=Createobject (Scripting.FilesyStemobject)

Définir KQIQI_MB=Fso.Opentextfile(server.mappath(KQIQI_CY_MB.html))

KQIQI_Ce=KQIQI_MB.readall

KQIQI_MB.close

KQIQI_Ce=Remplacer(KQIQI_Ce,{$KQIQI:Titre},&Titre&)

KQIQI_Ce=Remplacer(KQIQI_Ce,{$KQIQI:SystemTitle},&SystemTitle&)

KQIQI_Ce=Remplacer(KQIQI_Ce,{$KQIQI:Pinyin},&Rs(2)&)

KQIQI_Ce=Remplacer(KQIQI_Ce,{$KQIQI:Expliquez},&Rs(3)&)

KQIQI_Ce=Remplacer(KQIQI_Ce,{$KQIQI:Content},&Rs(4)&)

KQIQI_Ce=Remplacer(KQIQI_Ce,{$KQIQI:Enregistrement},&Rs(5)&)

Définir KQIQI_We=Fso.Createtextfile(Server.Mappath(Html/KQIQICY_&Rs(0)&.html),true)

KQIQI_We.writeline KQIQI_Ce

KQIQI_We.Fermer

Définir Fso=Rien

'Génération terminée

Rs.Movenext

Suivant

KQIQICY = KQIQICY & <TABLE cellSpacing=0 cellPadding=0 width=480 align=center border=0 class=td table> & vbCrLf

KQIQICY = KQIQICY & <TR><TD align=center><IMG src=images/logo.gif border=0 width=220 height=90></TD></TR> & vbCrLf

KQIQICY = KQIQICY & <TR><TD align=center class=tdbar>Généré</TD></TR> & vbCrLf

KQIQICY = KQIQICY & <TR><TD align=center>Le dictionnaire d'idiomes Ke Qiqi a été généré ! <input type=button name=button1value=return onclick=javascript:history.back(-1);></TD></TR>& vbCrLf

KQIQICY = KQIQICY & <TR><TD align=center class=tdbar>Quitter</TD></TR> & vbCrLf

KQIQICY = KQIQICY & <TR><TD align=center><a href=KQIQI_Admin.asp?Action=Quit>Quitter</a>& vbCrLf

KQIQICY = KQIQICY & </TD></TR></FORM></TABLE> & vbCrLf