ASP生成html的新方法

欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【ASP生成html的新方法】，下面是详细的分享！

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
%>

以上所分享的是关于ASP生成html的新方法，下面是编辑为你推荐的有价值的用户互动：

　　相关问题：比较ASP生成静态HTML文件的几种方法

　　答：将动态页面转换生成静态Html文件有许多好处，比如生成html网页有利于被搜索引擎收录（特别是对接受动态参数的页面）。前台访问时，脱离了数据访问，减轻对数据库访问的压力，加快网页打开速度。 当然，凡事有利必有弊，生成HTML页面无形中也耗费... >>详细

　　相关问题：asp生成html的方法？？？

　　答：其实很简单的，用fso就可以 这样就可以了。 关键是处理htmStr部分。你可以同样用fso来读取模板，或者从数据库读龋 再用类似这样的标签放在模板里代替要显示的数据，生成之前进行替换 htmStr = "$title123" title = "testing" htmStr = Replace(h... >>详细

　　相关问题：如何将ASP网站首页做成自动生成html 怎么做呢

　　答：我有一个页，点了就可以生成首页HTML。方法是后台发布新闻注销以后转到这个页，然后点一下就自动生成HTML但你域名设置打开页要是index.html就行了要的给信箱我发给你 >>详细