Uma maneira simples de gerar asp estático Hoje olhei o código na ferramenta de dicionário. Amigos que precisam podem consultá-lo. CriarHtml
Todos os artigos são gerados, recursos fáceis de usar
Primeiro método:
Copie o código do código da seguinte forma:
'Iniciar modo de geração de HTML
Definir Rs=Server.Createobject(Adodb.Recordset)
Sql=Selecione 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
Datanum=Rs.Contagem de registros
Para i = 1 para Datanum
Título=Substituir(Substituir(Rs(1),Chr(13),),Chr(10),)
'Comece a gerar arquivos de idioma
Definir Fso=Createobject(Scripting.FilesyStemobject)
Definir KQIQI_MB=Fso.Opentextfile(server.mappath(KQIQI_CY_MB.html))
KQIQI_Ce=KQIQI_MB.readall
KQIQI_MB.fechar
KQIQI_Ce=Substituir(KQIQI_Ce,{$KQIQI:Título},&Título&)
KQIQI_Ce=Substituir(KQIQI_Ce,{$KQIQI:SystemTitle},&SystemTitle&)
KQIQI_Ce=Substituir(KQIQI_Ce,{$KQIQI:Pinyin},&Rs(2)&)
KQIQI_Ce=Substituir(KQIQI_Ce,{$KQIQI:Explicar},&Rs(3)&)
KQIQI_Ce=Substituir(KQIQI_Ce,{$KQIQI:Conteúdo},&Rs(4)&)
KQIQI_Ce=Substituir(KQIQI_Ce,{$KQIQI:Record},&Rs(5)&)
Definir KQIQI_We=Fso.Createtextfile(Server.Mappath(Html/KQIQICY_&Rs(0)&.html),true)
KQIQI_We.writeline KQIQI_Ce
KQIQI_We.Close
Definir Fso=Nada
'Geração concluída
Rs. Movenext
Próximo
KQIQICY = KQIQICY & <TABLE cellSpacing=0 cellPadding=0 largura=480 alinhar=borda central=0 classe=tabela td> & 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>Gerado</TD></TR> & vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center>O dicionário de idioma Ke Qiqi foi gerado! <input type=button name=button1value=return onclick=javascript:history.back(-1);></TD></TR>& vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center class=tdbar>Sair</TD></TR> & vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center><a href=KQIQI_Admin.asp?Action=Quit>Sair</a>& vbCrLf
KQIQICY = KQIQICY & </TD></TR></FORM></TABLE> & vbCrLf
O segundo tipo é visto em outros sistemas.
Copie o código do código da seguinte forma:
<%
'Direitos autorais 2007
'Escrito por: Wu Jun
' Direitos autorais: www.sm05.com
'Versão: Versão 1.0
'Suporte técnico: E-mail: [email protected] QQ: 21275120
%>
<!--#include arquivo=cyconn.asp-->
<%
escurecer fso
escurecer fr
escurecer wstr
boa noite
'Iniciar modo de geração de HTML
definir rs=server.createobject(adodb.recordset)
sql = selecione * da ordem da foto por id desc
rs.open sql,conn,1,3
datanum=rs.recordcount
para i = 1 para datanum
'Comece a gerar arquivos de idioma
definir fso=createobject(scripting.filesystemobject)
definir fr=fso.opentextfile(server.mappath(chengyu_m.htm))
wstr=fr.readall
fr.fechar
dim rstr
wstr=replace(wstr,<{{biaoti}}>,&replace(rs(biaoti),vbnewline,)&)
wstr=substituir(wstr,<{{pinyin}}>,&rs(sg)&)
wstr=substituir(wstr,<{{jieshi}}>,&rs(js)&)
wstr=replace(wstr,<{{from}}>,&rs(conteúdo)&)
wstr=replace(wstr,<{{exemplo}}>,&rs(jilu)&)
definir fw=fso.createtextfile(server.mappath(view/chengyu&rs(id)&.htm),true)
fw.writeline wstr
fw.fechar
definir fso = nada
'Geração concluída
rs.movnext
próximo
response.write Vamos lá, todas as colunas de idioma do fórum foram geradas!
%>
MakeHtml é gerado a partir do id especificado
Copie o código do código da seguinte forma:
'Iniciar modo de geração de HTML
Definir Rs=Server.Createobject(Adodb.Recordset)
Sql=Selecione 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 Para id2
Título=Substituir(Substituir(Rs(1),Chr(13),),Chr(10),)
'Comece a gerar arquivos de idioma
Definir Fso=Createobject(Scripting.FilesyStemobject)
Definir KQIQI_MB=Fso.Opentextfile(server.mappath(KQIQI_CY_MB.html))
KQIQI_Ce=KQIQI_MB.readall
KQIQI_MB.fechar
KQIQI_Ce=Substituir(KQIQI_Ce,{$KQIQI:Título},&Título&)
KQIQI_Ce=Substituir(KQIQI_Ce,{$KQIQI:SystemTitle},&SystemTitle&)
KQIQI_Ce=Substituir(KQIQI_Ce,{$KQIQI:Pinyin},&Rs(2)&)
KQIQI_Ce=Substituir(KQIQI_Ce,{$KQIQI:Explicar},&Rs(3)&)
KQIQI_Ce=Substituir(KQIQI_Ce,{$KQIQI:Conteúdo},&Rs(4)&)
KQIQI_Ce=Substituir(KQIQI_Ce,{$KQIQI:Record},&Rs(5)&)
Definir KQIQI_We=Fso.Createtextfile(Server.Mappath(Html/KQIQICY_&Rs(0)&.html),true)
KQIQI_We.writeline KQIQI_Ce
KQIQI_We.Close
Definir Fso=Nada
'Geração concluída
Rs. Movenext
Próximo
KQIQICY = KQIQICY & <TABLE cellSpacing=0 cellPadding=0 largura=480 alinhar=borda central=0 classe=tabela td> & 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>Gerado</TD></TR> & vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center>O dicionário de idioma Ke Qiqi foi gerado! <input type=button name=button1value=return onclick=javascript:history.back(-1);></TD></TR>& vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center class=tdbar>Sair</TD></TR> & vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center><a href=KQIQI_Admin.asp?Action=Quit>Sair</a>& vbCrLf
KQIQICY = KQIQICY & </TD></TR></FORM></TABLE> & vbCrLf