ASP网站制作之运转asp剧本的asp剧本(原作：V37）
由于ASP还是一种Script语言所没除了大量使用组件外，没有办法提高其工作效率。它必须面对即时编绎的时间考验，同时我们还不知其背后的组件会是一个什么样的状况；剧本|剧本写这个小器材的起点,因为常常的必要在线使用asp剧本的ado对数据库实行建表,修正字段每次都要ftp修正晋级文件传上往或在线修正好了运转!非常贫苦
因而写了这个小器材!很便利~~
剧本特性:
1.能够运转除ssi(如#includefile)和预处置指令(如@language=javascript)外的任何aspvbscript剧本
好比数据库毗连,纪录集的创建,乃至Fso等
2.并可运转<%%><%=%>HTML混编的ASP剧本
3.有复杂的容错处置机制,能够复杂的晓得是剧本谁人部分毛病
4.具有考证码上岸,暗码和用户名在代码runasp.asp的头部修正,缺省供应的是帐号:admin暗码:admin
看起来这个剧本很大略,实在功效极为壮大的可骇!
固然有复杂的上岸考证,但仍是不倡议你利用在你的站点上,做为一个帮助调试asp代码的小工具
团体以为对照有用的!以是你能够本人测试,玩玩,或作为一时的论坛代码办理成绩的测试工具!
由于每次都要进进调试情况来运转asp切实其实贫苦!
还必要注重一点的是象<tdwidth=50%>的50%必定要写加引号
演示(admin暗码admin):
www.paintblue.net/myasp/runasp.asp
(实践实行功效已屏障,请下载或粘贴上面代码测试利用):
下载:
http://www.paintblue.net/myasp/runasp.rar
<%@LANGUAGE="VBSCRIPT"%>
<%OptionExplicit
response.buffer=true
dimSpassword,SUserName
SUserName="admin"
Spassword="admin"
dimSQLMutiStr
dimi
dimaction
action=request.querystring("action")
IFaction="GetCode"then---------TOT
NumCodeJS
ELSE--------TOT
Response.Write("<!DOCTYPEHTMLPUBLIC""-//W3C//DTDHTML4.0Transitional//EN"">")
Response.Write("<HTML>")
Response.Write("<HEAD>")
Response.Write("<TITLE>ASPRunCodeSCRV1.0/CreateByPaintBlue.NetV37</TITLE>")
Response.Write("<METANAME=""Generator""CONTENT=""EditPlus,V37,PaintBlue.Net"">")
Response.Write("<METANAME=""Author""CONTENT=""V37,PaintBlue.Net"">")
Response.Write("<METANAME=""Keywords""CONTENT=""PaintBlue.Net,,V37,RunCode,ASP,Script,BlueIdea.COM,Lfgbox.com"">")
Response.Write("<METANAME=""Description""CONTENT=""运转ASP代码的ASP剧本!"">")
Response.Write("</HEAD>")
Response.Write("<BODYbgcolor=#D4D0C8>")
SQLMutiStr=trim(Request.Form("SQLMutiStr"))
ifsession("login")=""andaction="chkpass"then
session("login")=checkPass()
endif
ifaction="exit"thensession("login")=""
ifsession("login")="1"then
ifaction="RunCode"then
ifSQLMutiStr=""then
Response.write"没有输出要运转的代码!"
Response.write"<br><br><ahref=""javascript:window.history.back();"">前往运转页面</a><br><br>"
Response.write"<ahref=""?action=exit"">加入上岸</a>"
response.end
else
dimExeStrArr
dimre
dimtempSQL,tempSQL2
dimScriptArr,ScriptSubArr
tempSQL2=""
tempSQL=split(SQLMutiStr,vbcrlf)
ifinStr(lcase(tempSQL(0)),"language")>0then
tempSQL2=tempSQL(1)
ifubound(tempSQL)>1then
fori=1toubound(tempSQL)
tempSQL2=tempSQL2&tempSQL(i)
next
endif
tempSQL2=trim(tempSQL2)
else
tempSQL2=SQLMutiStr
endif
tempSQL2=replace(tempSQL2,"<%"&"=","<"&"%response.write")
do
tempSQL2=replace(tempSQL2,vbcrlf&vbcrlf,vbcrlf)
loopwhileinstr(tempSQL2,vbcrlf&vbcrlf)>0
</p>下一页
ASP在国内异常流行，因为国内大多使用的是盗版的Windows和盗版的SQLServer，而ASP＋COM＋SQLServer实际上也是一种不错的搭配，其性能也不输于PHP+MYSQL，特别是Windows系统和SQLServer都有图形界面，比APACHE和MYSQL易于维护，因此对于不重视知识产权的国家来说也是一种不错的选择。 先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习 ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。 哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的? 代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。 学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。 你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。 我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。 先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习 它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。
页:
[1]