Einfache ASP-Methode zum Generieren statischer Daten (Ersetzen von Vorlagen-Tags)

Eine einfache Möglichkeit, statisches ASP zu generieren. Ich habe mir den Code im Wörterbuch-Tool angesehen. Es ist relativ einfach. CreateHtml

Alle Artikel sind generierte, benutzerfreundliche Ressourcen

Erste Methode:

Kopieren Sie den Codecode wie folgt:

'HTML-Generierungsmodus starten

Setze Rs=Server.Createobject(Adodb.Recordset)

Sql=Wählen Sie KQIQI_ID,KQIQI_Title,KQIQI_Pinyin,KQIQI_Explain,KQIQI_Content,KQIQI_Record aus KQIQI_CY, Reihenfolge nach KQIQI_ID Desc

Rs.Open Sql,Conn,1,3

Datennum=Rs.Recordcount

Für i= 1 bis Datanum

Titel=Ersetzen(Ersetzen(Rs(1),Chr(13),),Chr(10),)

'Beginnen Sie mit der Generierung von Idiom-Dateien

Setze Fso=Createobject(Scripting.FilesyStemobject)

Setzen Sie KQIQI_MB=Fso.Opentextfile(server.mappath(KQIQI_CY_MB.html))

KQIQI_Ce=KQIQI_MB.readall

KQIQI_MB.close

KQIQI_Ce=Replace(KQIQI_Ce,{$KQIQI:Title},&Title&)

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

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

KQIQI_Ce=Replace(KQIQI_Ce,{$KQIQI:Explain},&Rs(3)&)

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

KQIQI_Ce=Replace(KQIQI_Ce,{$KQIQI:Record},&Rs(5)&)

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

KQIQI_We.writeline KQIQI_Ce

KQIQI_We.Close

Setze Fso=Nothing

„Generation abgeschlossen

Rs.Movenext

Nächste

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>Generiert</TD></TR> & vbCrLf

KQIQICY = KQIQICY & <TR><TD align=center>Ke Qiqi Idiom-Wörterbuch wurde generiert! <input type=button name=button1value=return onclick=javascript:history.back(-1);></TD></TR>& vbCrLf

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

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

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

Der zweite Typ wird von anderen Systemen gesehen.

Kopieren Sie den Codecode wie folgt:

<%

'Copyright 2007

'Geschrieben von: Wu Jun

' Urheberrecht: www.sm05.com

'Version: Version 1.0

'Technischer Support: E-Mail: [email protected] QQ: 21275120

%>

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

<%

dim fso

dim fr

dim wstr

fw

'HTML-Generierungsmodus starten

set rs=server.createobject(adodb.recordset)

sql=select * from pic order by id desc

rs.open sql,conn,1,3

datanum=rs.recordcount

für i= 1 bis datanum

'Beginnen Sie mit der Generierung von Idiom-Dateien

set fso=createobject(scripting.filesystemobject)

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

wstr=fr.readall

fr.schließen

dim 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,<{{example}}>,&rs(jilu)&)

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

fw.writeline wstr

fw.close

setze fso=nichts

„Generation abgeschlossen

rs.movenext

nächste

Response.write Komm schon, alle Redewendungsspalten des Forums wurden generiert!

%>

MakeHtml wird ausgehend von der angegebenen ID generiert

Kopieren Sie den Codecode wie folgt:

'HTML-Generierungsmodus starten

Setze Rs=Server.Createobject(Adodb.Recordset)

Sql=Wählen Sie KQIQI_ID,KQIQI_Title,KQIQI_Pinyin,KQIQI_Explain,KQIQI_Content,KQIQI_Record aus KQIQI_CY, Reihenfolge nach KQIQI_ID Desc

Rs.Open Sql,Conn,1,3

Für i=id1 bis id2

Titel=Ersetzen(Ersetzen(Rs(1),Chr(13),),Chr(10),)

'Beginnen Sie mit der Generierung von Idiom-Dateien

Setze Fso=Createobject(Scripting.FilesyStemobject)

Setzen Sie KQIQI_MB=Fso.Opentextfile(server.mappath(KQIQI_CY_MB.html))

KQIQI_Ce=KQIQI_MB.readall

KQIQI_MB.close

KQIQI_Ce=Replace(KQIQI_Ce,{$KQIQI:Title},&Title&)

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

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

KQIQI_Ce=Replace(KQIQI_Ce,{$KQIQI:Explain},&Rs(3)&)

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

KQIQI_Ce=Replace(KQIQI_Ce,{$KQIQI:Record},&Rs(5)&)

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

KQIQI_We.writeline KQIQI_Ce

KQIQI_We.Close

Setze Fso=Nothing

„Generation abgeschlossen

Rs.Movenext

Nächste

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>Generiert</TD></TR> & vbCrLf

KQIQICY = KQIQICY & <TR><TD align=center>Ke Qiqi Idiom-Wörterbuch wurde generiert! <input type=button name=button1value=return onclick=javascript:history.back(-1);></TD></TR>& vbCrLf

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

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

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