Простой метод ASP для создания статики (замена тега шаблона)

Простой способ создания статического asp. Сегодня я посмотрел код в словаре. Друзья, которым он нужен, могут обратиться к нему. СоздатьHtml

Все статьи генерируются, удобные в использовании ресурсы.

Первый метод:

Скопируйте код кода следующим образом:

'Запускаем режим генерации HTML

Установите Rs=Server.Createobject(Adodb.Recordset)

Sql=Выбрать KQIQI_ID,KQIQI_Title,KQIQI_Pinyin,KQIQI_Explain,KQIQI_Content,KQIQI_Record из KQIQI_CY Упорядочить по KQIQI_ID Desc

Rs.Open Sql, Conn, 1,3

Datanum=Rs.Recordcount

Для i = 1 в Datanum

Название=Заменить(Заменить(Rs(1),Chr(13),),Chr(10),)

'Начинаем генерировать файлы идиом

Установите Fso=Createobject(Scripting.FilesyStemobject)

Установите KQIQI_MB=Fso.Opentextfile(server.mappath(KQIQI_CY_MB.html))

KQIQI_Ce=KQIQI_MB.readall

KQIQI_MB.close

KQIQI_Ce=Заменить(KQIQI_Ce,{$KQIQI:Title},&Title&)

KQIQI_Ce=Заменить(KQIQI_Ce,{$KQIQI:SystemTitle},&SystemTitle&)

KQIQI_Ce=Replace(KQIQI_Ce,{$KQIQI:Пиньинь},&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)&)

Установите KQIQI_We=Fso.Createtextfile(Server.Mappath(Html/KQIQICY_&Rs(0)&.html),true)

KQIQI_We.writeline KQIQI_Ce

KQIQI_We.Close

Установить Fso=Ничего

'Генерация завершена

Rs.Movenext

Следующий

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>Сгенерировано</TD></TR> & vbCrLf

KQIQICY = KQIQICY & <TR><TD align=center>Словарь идиом Ke Qiqi создан! <input type=button name=button1value=return onclick=javascript:history.back(-1);></TD></TR>& vbCrLf

KQIQICY = KQIQICY & <TR><TD align=center class=tdbar>Выход</TD></TR> & vbCrLf

KQIQICY = KQIQICY & <TR><TD align=center><a href=KQIQI_Admin.asp?Action=Quit>Выход</a>& vbCrLf

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

Второй тип наблюдается в других системах.

Скопируйте код кода следующим образом:

<%

'Авторское право 2007 г.

'Сценарист: У Цзюнь

Авторские права: www.sm05.com

'Версия: Версия 1.0

'Техническая поддержка: Электронная почта: [email protected] QQ: 21275120

%>

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

<%

тусклый фсо

тусклый пт

тусклый свет

фу

'Запускаем режим генерации HTML

установите rs=server.createobject(adodb.recordset)

sql=select * из порядка изображений по идентификатору

rs.open sql,conn,1,3

datanum=rs.recordcount

для i = 1 до datanum

'Начинаем генерировать файлы идиом

set fso=createobject(scripting.filesystemobject)

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

wstr=fr.readall

фр.закрыть

дим рстр

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

wstr=replace(wstr,<{{пиньинь}}>,&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.закрыть

установить fso=ничего

'Генерация завершена

rs.movenext

следующий

response.write Да ладно, все идиоматические рубрики форума сформированы!

%>

MakeHtml генерируется, начиная с указанного идентификатора.

Скопируйте код кода следующим образом:

'Запускаем режим генерации HTML

Установите Rs=Server.Createobject(Adodb.Recordset)

Sql=Выбрать KQIQI_ID,KQIQI_Title,KQIQI_Pinyin,KQIQI_Explain,KQIQI_Content,KQIQI_Record из KQIQI_CY Упорядочить по KQIQI_ID Desc

Rs.Open Sql, Conn, 1,3

Для i=id1 до id2

Название=Заменить(Заменить(Rs(1),Chr(13),),Chr(10),)

'Начинаем генерировать файлы идиом

Установите Fso=Createobject(Scripting.FilesyStemobject)

Установите KQIQI_MB=Fso.Opentextfile(server.mappath(KQIQI_CY_MB.html))

KQIQI_Ce=KQIQI_MB.readall

KQIQI_MB.close

KQIQI_Ce=Заменить(KQIQI_Ce,{$KQIQI:Title},&Title&)

KQIQI_Ce=Заменить(KQIQI_Ce,{$KQIQI:SystemTitle},&SystemTitle&)

KQIQI_Ce=Replace(KQIQI_Ce,{$KQIQI:Пиньинь},&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)&)

Установите KQIQI_We=Fso.Createtextfile(Server.Mappath(Html/KQIQICY_&Rs(0)&.html),true)

KQIQI_We.writeline KQIQI_Ce

KQIQI_We.Close

Установить Fso=Ничего

'Генерация завершена

Rs.Movenext

Следующий

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>Сгенерировано</TD></TR> & vbCrLf

KQIQICY = KQIQICY & <TR><TD align=center>Словарь идиом Ke Qiqi создан! <input type=button name=button1value=return onclick=javascript:history.back(-1);></TD></TR>& vbCrLf

KQIQICY = KQIQICY & <TR><TD align=center class=tdbar>Выход</TD></TR> & vbCrLf

KQIQICY = KQIQICY & <TR><TD align=center><a href=KQIQI_Admin.asp?Action=Quit>Выход</a>& vbCrLf

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