Método simple ASP para generar estática (reemplazo de etiquetas de plantilla)

Una forma sencilla de generar asp estático. Hoy miré el código en la herramienta de diccionario. Los amigos que lo necesiten pueden consultarlo. CrearHtml

Todos los artículos son recursos generados y fáciles de usar.

Primer método:

Copie el código de código de la siguiente manera:

'Iniciar modo de generación HTML

Establecer Rs = Servidor.Crearobjeto (Adodb.Recordset)

Sql=Seleccione KQIQI_ID,KQIQI_Title,KQIQI_Pinyin,KQIQI_Explain,KQIQI_Content,KQIQI_Record de KQIQI_CY Ordenar por KQIQI_ID Desc

Rs.Open Sql,Conn,1,3

Númdatos=Rs.Recordcount

Para i= 1 a núm de datos

Título=Reemplazar(Reemplazar(Rs(1),Chr(13),),Chr(10),)

'Comenzar a generar archivos idiomáticos

Establecer Fso=Crearobjeto(Scripting.FilesyStemobject)

Establecer KQIQI_MB=Fso.Opentextfile(server.mappath(KQIQI_CY_MB.html))

KQIQI_Ce=KQIQI_MB.readall

KQIQI_MB.cerrar

KQIQI_Ce=Reemplazar(KQIQI_Ce,{$KQIQI:Título},&Título&)

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

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

KQIQI_Ce=Reemplazar(KQIQI_Ce,{$KQIQI:Explicar},&Rs(3)&)

KQIQI_Ce=Reemplazar(KQIQI_Ce,{$KQIQI:Contenido},&Rs(4)&)

KQIQI_Ce=Reemplazar(KQIQI_Ce,{$KQIQI:Registro},&Rs(5)&)

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

KQIQI_We.writeline KQIQI_Ce

KQIQI_We.Cerrar

Establecer Fso=Nada

'Generación completada

Rs.Movenext

Próximo

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

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

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

KQIQICY = KQIQICY & <TR><TD align=center>¡Se ha generado el diccionario idiomático Ke Qiqi! <tipo de entrada=nombre del botón=valor del botón1=retorno al hacer clic=javascript:history.back(-1);></TD></TR>& vbCrLf

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

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

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

El segundo tipo se ve desde otros sistemas.

Copie el código de código de la siguiente manera:

<%

'Derechos de autor 2007

'Escrito por: Wu Jun

' Copyright: www.sm05.com

'Versión: Ver 1.0

'Soporte técnico: Correo electrónico: [email protected] QQ: 21275120

%>

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

<%

fso tenue

oscuro fr

wstr tenue

fw

'Iniciar modo de generación HTML

establecer rs=servidor.createobject(adodb.recordset)

sql=select * de orden de imagen por id desc

rs.open sql, conexión, 1,3

númdatos=rs.recordcount

para i= 1 al número de datos

'Comenzar a generar archivos idiomáticos

establecer fso=createobject(scripting.filesystemobject)

establecer fr=fso.opentextfile(servidor.mappath(chengyu_m.htm))

wstr=es.readall

fr.cerrar

rtr oscuro

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

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

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

wstr=reemplazar(wstr,<{{from}}>,&rs(contenido)&)

wstr=reemplazar(wstr,<{{ejemplo}}>,&rs(jilu)&)

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

fw.writeline wstr

fw.cerrar

establecer fso = nada

'Generación completada

rs.movenext

próximo

Response.write ¡Vamos, se han generado todas las columnas idiomáticas del foro!

%>

MakeHtml se genera a partir de la identificación especificada

Copie el código de código de la siguiente manera:

'Iniciar modo de generación HTML

Establecer Rs = Servidor.Crearobjeto (Adodb.Recordset)

Sql=Seleccione KQIQI_ID,KQIQI_Title,KQIQI_Pinyin,KQIQI_Explain,KQIQI_Content,KQIQI_Record de KQIQI_CY Ordenar por KQIQI_ID Desc

Rs.Open Sql,Conn,1,3

Para i=id1 a id2

Título=Reemplazar(Reemplazar(Rs(1),Chr(13),),Chr(10),)

'Comenzar a generar archivos idiomáticos

Establecer Fso=Crearobjeto(Scripting.FilesyStemobject)

Establecer KQIQI_MB=Fso.Opentextfile(server.mappath(KQIQI_CY_MB.html))

KQIQI_Ce=KQIQI_MB.readall

KQIQI_MB.cerrar

KQIQI_Ce=Reemplazar(KQIQI_Ce,{$KQIQI:Título},&Título&)

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

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

KQIQI_Ce=Reemplazar(KQIQI_Ce,{$KQIQI:Explicar},&Rs(3)&)

KQIQI_Ce=Reemplazar(KQIQI_Ce,{$KQIQI:Contenido},&Rs(4)&)

KQIQI_Ce=Reemplazar(KQIQI_Ce,{$KQIQI:Registro},&Rs(5)&)

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

KQIQI_We.writeline KQIQI_Ce

KQIQI_We.Cerrar

Establecer Fso=Nada

'Generación completada

Rs.Movenext

Próximo

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

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

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

KQIQICY = KQIQICY & <TR><TD align=center>¡Se ha generado el diccionario idiomático Ke Qiqi! <tipo de entrada=nombre del botón=valor del botón1=retorno al hacer clic=javascript:history.back(-1);></TD></TR>& vbCrLf

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

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

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