知识大全 ASP生成html的新方法

Posted 2022-07-17 文件

篇首语：刀不磨要生锈，人不学要落后。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 ASP生成html的新方法相关的知识，希望对你有一定的参考价值。

ASP生成html的新方法 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　已经有很多生成的新闻系统但是都是用的模板本函数实现把asp页面产生的代码保存成为一个文件这样就没有必要改动原来的页面就可以轻松完成一个生成的新闻系统了 ^_^ 由于代码比较短这里就不进行注释了

　　以下为引用的内容 <% 当目标页面的包含文件即#include的页面里边存在response End()的时候本程序有问题注意本文件一定要放在指向的文件的同一目录下 dim hughchiu_rtcode Function get_exe_code( ) dim execode dim tmp_str Dim re re content fso f aspStart aspEnd dim ms m execode = "" set fso=CreateObject("Scripting FileSystemObject") set f=fso OpenTextFile(server mappath( )) 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*#includes*files*=s*""([^""]+)""s* >" do set ms = re execute(content) if ms count<> then set m = ms( ) tmp_str = get_exe_code(m submatches( )) content = re replace(content tmp_str) else exit do end if loop set m = nothing set ms = nothing

　　re pattern="^s*=" aspEnd= aspStart=inStr(aspEnd content "<%")+

　　set re =new RegExp re ignorecase = true re global = false re pattern = "response Write( +)"

　　do while aspStart>aspEnd+ execode = execode&vbcrlf&" hughchiu_rtcode = hughchiu_rtcode&"""&replace( replace(Mid(content aspEnd aspStart aspEnd ) """" """""") vbcrlf """&vbcrlf&""")&""""&vbcrlf aspEnd=inStr(aspStart content "%>")+ tmp_str = Mid(content aspStart aspEnd aspStart )

　　do set ms = re execute(tmp_str) if ms count<> then set m = ms( ) tmp_str = re replace(tmp_str " hughchiu_rtcode = hughchiu_rtcode&"&m submatches( )) 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 "<%")+ loop

　　set re = 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 asp ( ) dim code code = replace( replace( replace( get_exe_code( ) "hughchiu_rtcode = hughchiu_rtcode&"""""&vbcrlf "" ) "<%" "" ) "%>" "" ) response Write(code) execute(code) response Write( hughchiu_rtcode ) asp = hughchiu_rtcode end function %>

　　使用范例

　　以下为引用的内容

cha138/Article/program/net/201311/14236