Existem muitos sistemas de notícias sobre a geração de HTML na Internet, mas todos são modelos. . ^_^
Como o código é relativamente curto, não haverá comentários aqui
A seguir, o conteúdo de referência:
<%
'' Quando o arquivo contém o arquivo, que é a página do #include, há um problema com este programa quando houver uma resposta.end () neste programa.
'' Nota: Este arquivo deve ser colocado no mesmo diretório do arquivo apontado pelo arquivo ordenado por 200412271111723.htm
dim hughchiu_rtcode
Função get_exe_code (20041227111723.htm)
Dim Execode
Dim tmp_str
Dim re, re1, conteúdo, fso, f, aspstart, aspend
dim ms, m
execode =
set fso = createObject (script.filesystemObject)
set f = fso.opentExtFile (Server.mappath (20041227111723.htm))
content = f.readall
F.Close
Definir F = nada
Definir FSO = nada
Definir re = novo regexp
Re.IGNORECASE = true
Re.global = true
Re.pattern =/</%/@[^/%]+/%/>
Content = re.Replace (Content,)
re.global = false
Re.pattern =/</!/-/-/s*/#incluir/s*file/s*=/s*/([^/]+) // s*/-///>
FAZER
set ms = re.execute (conteúdo)
Se ms.count <> 0 então
set m = ms (0)
tmp_str = get_exe_code (m.submatches (0))
Content = re.Replace (conteúdo, tmp_str)
outro
saída do
final se
laço
Definir M = nada
Definir ms = nada
Re.pattern =^/s*=
Aspend = 1
aspstart = instrum (aspend, content, <%)+2
set re1 = novo regexp
Re1.ignorecase = true
Re1.global = false
Re1.pattern = resposta/.Write (.+)
Faça enquanto aspstart> Aspend+1
EXECODE = EXECODE & VBCRLF & HUGHCHIU_RTCODE = HUGHCHIU_RTCODE && Substituir (Substituir (Content, Aspend, Aspstart-aspend-2),), Vbcrlf, & VBC Rlf &) && Vbcrlf
Aspend = Instr (Aspstart, Conteúdo,%/>)+2
Tmp_str = mid (conteúdo, aspstart, aspend-aspstart-2)
FAZER
set ms = re1.execute (tmp_str)
Se ms.count <> 0 então
set m = ms (0)
Tmp_str = re1.replace (tmp_str, hughchiu_rtcode = hughchiu_rtcode & & sinalizações (0))
outro
saída do
final se
laço
Definir M = nada
Definir ms = nada
Execode = Execode & re.Replace (tmp_str, hughchiu_rtcode = hughchiu_rtcode &)
aspstart = instrum (aspend, content, <%)+2
laço
Definir re1 = nada
Definir re = nada
Execode = Execode & Vbcrlf & hughchiu_rtcode = hughchiu_rtcode && substituir (substituir (mid (content, aspend) ,,), vbcrlf, & vbcrlf && vbcrlf
get_exe_code = <%& Execode &%/>
Função final
Função asp2html (200412271111723.htm)
Código dim
Código = substituir (substituir (substituir (get_exe_code (20041227111723.htm), hughchiu_rtcode = hughchiu_rtcode && vbcrlf,), < %), %/>), %/>)
'Response.write (código)
Executar (código)
'' Response.write (hughchiu_rtcode)
asp2html = hughchiu_rtcode
Função final
%>
Use exemplos:
A seguir, o conteúdo de referência:
set fso = createObject (script.filesystemObject)
set f = fso.createTextFile (server.mappath (youpage.htm), true)
F.WriteLine (ASP2HTML (YouPage.asp))
F.Close
Definir F = nada
Definir FSO = nada