ASP编程：一个天生html的新办法
缺乏可以共同遵循的行业标准，ASP还处在发展初期，大家对它的理解不同，如产品和服务标准，收费标准等，不利于行业的健康发展。天生html|天生html今朝已有良多天生html的旧事体系，可是都是用的模板，本函数完成把asp页面发生的html代码保留成为一个html文件，如许就没有需要修改本来的页面就能够轻松完成一个天生html的旧事体系了。^_^因为代码对照短，这里就不举行正文了
<%
当方针页面的包括文件即#include的页面里边存在response.End()的时分本程序有成绩
注重：本文件必定要放在filename指向的文件的统一目次下
dimhughchiu_rtcode
Functionget_exe_code(filename)
dimexecode
dimtmp_str
Dimre,re1,content,fso,f,aspStart,aspEnd
dimms,m
execode=""
setfso=CreateObject("Scripting.FileSystemObject")
setf=fso.OpenTextFile(server.mappath(filename))
content=f.ReadAll
f.close
setf=nothing
setfso=nothing
setre=newregexp
re.ignorecase=true
re.global=true
re.pattern="<\%@[^\%]+\%>"
content=re.replace(content,"")
re.global=false
re.pattern="<!--s*#includes*files*=s*""([^""]+)""s*-->"
do
setms=re.execute(content)
ifms.count0then
setm=ms(0)
tmp_str=get_exe_code(m.submatches(0))
content=re.replace(content,tmp_str)
else
exitdo
endif
loop
setm=nothing
setms=nothing
re.pattern="^s*="
aspEnd=1
aspStart=inStr(aspEnd,content,"<%")+2
setre1=newRegExp
re1.ignorecase=true
re1.global=false
re1.pattern="response.Write(.+)"
dowhileaspStart>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
setms=re1.execute(tmp_str)
ifms.count0then
setm=ms(0)
tmp_str=re1.replace(tmp_str,"hughchiu_rtcode=hughchiu_rtcode&"&m.submatches(0))
else
exitdo
endif
loop
setm=nothing
setms=nothing
execode=execode&re.replace(tmp_str,"hughchiu_rtcode=hughchiu_rtcode&")
aspStart=inStr(aspEnd,content,"<%")+2
loop
setre1=nothing
setre=nothing
execode=execode&vbcrlf&"hughchiu_rtcode=hughchiu_rtcode&"""&replace(replace(Mid(content,aspEnd),"""",""""""),vbcrlf,"""&vbcrlf&""")&""""&vbcrlf
get_exe_code="<%"&execode&"%>"
EndFunction
functionasp2html(filename)
dimcode
code=replace(replace(replace(get_exe_code(filename),"hughchiu_rtcode=hughchiu_rtcode&"""""&vbcrlf,""),"<%",""),"%>","")
response.Write(code)
execute(code)
response.Write(hughchiu_rtcode)
asp2html=hughchiu_rtcode
endfunction
%>
利用典范：
setfso=CreateObject("Scripting.FileSystemObject")
setf=fso.CreateTextFile(server.mappath("youpage.htm"),true)
f.WriteLine(asp2html("youpage.asp"))
f.close
setf=nothing
setfso=nothing
但愿这个函数对人人有点用，因为程度无限，有错的中央请人人指出，并但愿能加以改善。
</p>SQLServer是基于服务器端的中型的数据库，可以适合大容量数据的应用，在功能上管理上也要比Access要强得多。在处理海量数据的效率，后台开发的灵活性，可扩展性等方面强大。 ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。 我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标. 我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。 以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。 以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。 另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件) ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。 因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:
页:
[1]