仓酷云

标题: ASP编程：一个天生html的新办法 [打印本页]

作者: 透明 时间: 2015-1-16 23:40
标题: 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=""
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要强得多。在处理海量数据的效率，后台开发的灵活性，可扩展性等方面强大。

作者: 深爱那片海 时间: 2015-1-20 11:00
ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。

作者: 蒙在股里 时间: 2015-1-29 06:53
我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.

作者: 莫相离 时间: 2015-2-2 14:12
我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

作者: 愤怒的大鸟 时间: 2015-2-7 22:24
以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。

作者: 谁可相欹 时间: 2015-2-23 12:36
以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。

作者: 因胸联盟 时间: 2015-3-7 08:52
另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件)

作者: 简单生活 时间: 2015-3-14 15:53
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。　　因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。

作者: 灵魂腐蚀 时间: 2015-3-21 11:41
如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

欢迎光临仓酷云 (http://ckuyun.com/)