Как генерировать HTML в ASP?

Ниже приведено цитируемое содержание:

<%

«Когда целевая страница содержит файл, то есть страница #include, есть проблема с этой программой.

Примечание: этот файл должен быть помещен в тот же каталог, что и файл, указанный к 20041227111723.htm

Dim hughchiu_rtcode

Функция get_exe_code (20041227111723.htm)

Dim Execode

Dim tmp_str

Dim Re, Re1, Content, FSO, F, Aspstart, Aspend

Dim MS, m

execode =

Установить fso = createObject (scripting.filesystemobject)

Установите f = fso.opentextfile (server.mappath (20041227111723.htm)))

Контент = F.Readall

F.Close

Установите F = ничего

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

SET RE = новая режима

re.ignorecase = true

re.global = true

re.pattern =/</%/@[^/%]/%///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

Content = re.replace (Content,)

re.global = false

re.pattern = /</!/-/-/s*/#include/s*file/s*=/s*/([^/] )//s*/-/////////////////////////////////

делать

Установите MS = re.Execute (Content)

Если Ms.count <> 0, то

Установите M = MS (0)

tmp_str = get_exe_code (m.submatches (0))

content = re.replace (content, tmp_str)

еще

Выход DO

конец, если

петля

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

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

re.pattern =^/s*=

Append = 1

aspstart = instr (aspend, content, <%) 2

Установите RE1 = новая режима

re1.ignorecase = true

re1.global = false

re1.pattern = response/.write (.)

Делай, пока aspstart> aspend 1

execode = execrode & vbcrlf & hughchiu_rtcode = hughchiu_rtcode && reply (reply (mid (content, aspend, aspstart-aspend-2) ,,), vbcrlf, & vbcrlf &) && vbcrlf

aspend = instr (aspstart, content,%/>) 2

tmp_str = mid (content, aspstart, aspend-aspstart-2)

делать

Установить MS = re1.execute (tmp_str)

Если Ms.count <> 0, то

Установите M = MS (0)

tmp_str = re1.replace (tmp_str, hughchiu_rtcode = hughchiu_rtcode && m.submatches (0))

еще

Выход DO

конец, если

петля

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

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

execude = execude & re.replace (tmp_str, hughchiu_rtcode = hughchiu_rtcode &)

aspstart = instr (aspend, content, <%) 2

петля

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

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

execude = execrode & vbcrlf & hughchiu_rtcode = hughchiu_rtcode && reply (reply (mid (content, aspend),,), vbcrlf, & vbcrlf &) && vbcrlf

get_exe_code = <%& execode &%/>

Конечная функция

Функция asp2html (20041227111723.htm)

Dim Code

Code = reply (replace (replace (get_exe_code (20041227111723.htm), hughchiu_rtcode = hughchiu_rtcode && vbcrlf,), < %,), %/>,)

'response.write (код)

выполнить (код)

'response.write (hughchiu_rtcode)

asp2html = hughchiu_rtcode

конечная функция

%>

Ниже приведено цитируемое содержание:

Установить fso = createObject (scripting.filesystemobject)

Установить f = fso.createTextFile (server.mappath (youpage.htm), true)

F.WriteLine (asp2html (youpage.asp))

F.Close

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

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