asp网站制作教程之ASP生成html方法

<%
    '当目标页面的包含文件即#include的页面里边存在response.End()的时候本程序有问题
    '注意：本文件一定要放在20041227111723.htm指向的文件的同一目录下
    dim hughchiu_rtcode
    Function get_exe_code(20041227111723.htm)
    dim execode
    dim tmp_str
    Dim re,re1,content,fso,f,aspStart,aspEnd
    dim ms,m
    execode = ""
    set fso=CreateObject("Scripting.FileSystemObject")
    set f=fso.OpenTextFile(server.mappath(20041227111723.htm))
    content=f.ReadAll
    f.close
    set f=nothing
    set fso=nothing
    set re = new regexp
    re.ignorecase = true
    re.global = true
    re.pattern = "\<\%\@[^\%]+\%\>"
    content = re.replace(content,"")
    re.global = false
    re.pattern = "\<\!\-\-\s*\#include\s*file\s*=\s*\""([^\""]+)\""\s*\-\-\>"
    do
    set ms = re.execute(content)
    if ms.count<>0 then
    set m = ms(0)
    tmp_str = get_exe_code(m.submatches(0))
    content = re.replace(content, tmp_str)
    else
    exit do
    end if
    loop
    set m = nothing
    set ms = nothing
    re.pattern="^\s*="
    aspEnd=1
    aspStart=inStr(aspEnd,content,"<%")+2
    set re1=new RegExp
    re1.ignorecase = true
    re1.global = false
    re1.pattern = "response\.Write(.+)"
    do while aspStart>aspEnd+1
    execode = execode&vbcrlf&" hughchiu_rtcode = hughchiu_rtcode&"""&replace( replace(Mid(content,aspEnd,aspStart-aspEnd-2),"""",""""""), vbcrlf, """&vbcrlf&""")&""""&vbcrlf
    aspEnd=inStr(aspStart,content,"%\>")+2
    tmp_str = Mid(content,aspStart,aspEnd-aspStart-2)
    do
    set ms = re1.execute(tmp_str)
    if ms.count<>0 then
    set m = ms(0)
    tmp_str = re1.replace(tmp_str, " hughchiu_rtcode = hughchiu_rtcode&"&m.submatches(0))
    else
    exit do
    end if
    loop
    set m = nothing
    set ms = nothing
    execode = execode& re.replace(tmp_str,"hughchiu_rtcode = hughchiu_rtcode&")
    aspStart=inStr(aspEnd,content,"<%")+2
    loop
    set re1 = nothing
    set re=nothing
    execode = execode&vbcrlf&" hughchiu_rtcode = hughchiu_rtcode&"""&replace( replace(Mid(content,aspEnd), """", """"""), vbcrlf, """&vbcrlf&""" )&""""&vbcrlf
    get_exe_code = "<%"&execode&"%\>"
    End Function
    function asp2html(20041227111723.htm)
    dim code
    code = replace( replace( replace( get_exe_code(20041227111723.htm), "hughchiu_rtcode = hughchiu_rtcode&"""""&vbcrlf, "" ), "<%", "" ), "%\>", "" )
    'response.Write(code)
    execute(code)
    'response.Write( hughchiu_rtcode )
    asp2html = hughchiu_rtcode
    end function
    %>