用asp实现asp文件的运行

写这个小东西的出发点,由于经常的需要在线利用asp脚本的ado对数据库执行建表,修改字段
每次都要ftp修改升级文件传上去或在线修改好了运行!很是麻烦
于是写了这个小东西!很方便~~

脚本特点:
1.可以运行除了 ssi(如#include file) 和预处理指令(如@ language=javascript)外的任何 asp vbscript 脚本
比如数据库连接,记录集的建立,甚至fso等
2.并可运行<%%> <%=%> html混编的 asp脚本
3.有简单的容错处理机制,可以简单的知道是脚本那个部分错误
4.具有验证码登陆,密码和用户名在代码runasp.asp 的头部修改,缺省提供的是帐号:admin 密码:admin

看起来这个脚本很简陋,其实功能极其强大的可怕!
虽然有简单的登陆验证,但还是不建议你使用在你的站点上,做为一个辅助调试asp代码的小工具
个人认为比较实用的!所以你可以自己测试,玩玩,或作为临时的论坛代码解决问题的测试工具!
因为每次都要进入调试环境来运行asp的确麻烦!
还需要注意一点的是象 <td width=50%> 的50%一定要写加引号

演示(admin 密码admin):
www.paintblue.net/myasp/runasp.asp
(实际执行功能已经屏蔽,请下载或粘贴下面代码测试使用):

下载: runasp.rar

<% @ language="<a href="/list/vbscript/index.html" title="vbscript" target="_blank"><acronym>vbscript</acronym></a>" %><%option explicitresponse.buffer=truedim spassword,susername susername="admin" spassword="admin"dim sqlmutistrdim idim action action=request.querystring("action")if action="getcode" then '---------tot numcode<a href="/list/js/index.html" title="js" target="_blank"><acronym>js</acronym></a>else '--------tot response.write("<!doctype <a href="/list/html/index.html" title="html" target="_blank"><acronym>html</acronym></a> public ""-//w3c//dtd <a href="/list/html/index.html" title="html" target="_blank"><acronym>html</acronym></a> 4.0 transitional//en"">") response.write("<<a href="/list/html/index.html" title="html" target="_blank"><acronym>html</acronym></a>>") response.write("<head>") response.write("<title><a href="/list/asp/index.html" title="asp" target="_blank"><acronym>asp</acronym></a> runcode scr v1.0 / create by paintblue<a href="/list/net/index.html" title=".net" target="_blank"><acronym>.net</acronym></a> v37</title>") response.write("<meta name=""generator"" content=""editplus,v37,paintblue<a href="/list/net/index.html" title=".net" target="_blank"><acronym>.net</acronym></a>"">") response.write("<meta name=""author"" content=""v37,paintblue<a href="/list/net/index.html" title=".net" target="_blank"><acronym>.net</acronym></a>"">") response.write("<meta name=""keywords"" content=""paintblue<a href="/list/net/index.html" title=".net" target="_blank"><acronym>.net</acronym></a>,,v37,runcode,<a href="/list/asp/index.html" title="asp" target="_blank"><acronym>asp</acronym></a>,script,blue<a href="/list/idea/index.html" title="idea" target="_blank"><acronym>idea</acronym></a>.com,lfgbox.com"">") response.write("<meta name=""description"" content=""运行<a href="/list/asp/index.html" title="asp" target="_blank"><acronym>asp</acronym></a>代码的<a href="/list/asp/index.html" title="asp" target="_blank"><acronym>asp</acronym></a>脚本!"">") response.write("</head>") response.write("<body bgcolor=#d4d0c8>") sqlmutistr=trim(request.form("sqlmutistr")) if session("login")="" and action="chkpass" then session("login")=checkpass() end if if action="exit" then session("login")="" if session("login")="1" then if action="runcode" then if sqlmutistr="" then response.write "没有输入要运行的代码!" response.write "<br><br><a href=""<a href="/list/javascript/index.html" title="javascript" target="_blank"><acronym>javascript</acronym></a>:window.history.back();"">返回运行页面</a><br><br>" response.write "<a href=""?action=exit"">退出登陆</a>" response.end else dim exestrarr dim re dim tempsql,tempsql2 dim scriptarr,scriptsubarr tempsql2="" tempsql=split(sqlmutistr,<a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) if instr(lcase(tempsql(0)),"language")>0 then tempsql2=tempsql(1) if ubound(tempsql)>1 then for i=1 to ubound(tempsql) tempsql2=tempsql2&tempsql(i) next end if tempsql2=trim(tempsql2) else tempsql2=sqlmutistr end if tempsql2=replace(tempsql2,"<%"&"=","<"&"%response.write ") do tempsql2=replace(tempsql2,<a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf&<a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf,<a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) loop while instr(tempsql2,<a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf&<a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf)>0 tempsql2=trim(tempsql2) tempsql2="<"&"%%"&">"&tempsql2&"<"&"%%"&">" scriptarr=split(tempsql2,"%"&">") dim ub,kub ub=ubound(scriptarr) for i=0 to ub-1 scriptsubarr=split(scriptarr(i),"<"&"%") if i>0 then response.write (scriptsubarr(0)) executeit(scriptsubarr(1)) next call endproc("<font color=#009900>代码运行完毕!</font>") end if else %> 输入要运行的<a href="/list/asp/index.html" title="asp" target="_blank"><acronym>asp</acronym></a>代码: <form method=post action="?action=runcode" style="margin:0px;"> <textarea name="sqlmutistr" wrap='off' rows="20" style="width:100%;height:100%;table-layout:fixed;word-break:break-all;"><%=server.<a href="/list/html/index.html" title="html" target="_blank"><acronym>html</acronym></a>encode(sqlmutistr)%></textarea> <br> <input type="button" onclick="window.location.href='?action=exit';" value="louout"> <input type="reset" value="clear"> <input type="submit" value="run <a href="/list/asp/index.html" title="asp" target="_blank"><acronym>asp</acronym></a>code"> </form> <% end if else call loginmain() end if response.write ("</body></<a href="/list/html/index.html" title="html" target="_blank"><acronym>html</acronym></a>>")end if '-------totsub loginmain() %> <form method=post action="?action=chkpass"> username:<input type="text" name="username"><br>  password:<input type="password" name="runpassword"><br> checkcode:<input type="getcode" name="getcode"><img src="run<a href="/list/asp/index.html" title="asp" target="_blank"><acronym>asp</acronym></a>.<a href="/list/asp/index.html" title="asp" target="_blank"><acronym>asp</acronym></a>?action=getcode&time=<%=timer()%>"><br> <br><img width=125 height=0><input type="submit" value=" login "></form> <% end subfunction checkpass() dim username,runpassword,getcode dim errinfo checkpass="" username=trim(request.form("username")) runpassword=trim(request.form("runpassword")) getcode=request.form("getcode") if username="" or runpassword="" then errinfo=errinfo&"<li>用户名和密码输入不能为空" end if if not isnumeric(getcode) then errinfo=errinfo&"<li>请输入数字校验码" end if if errinfo<>"" then call loginmain() endproc errinfo end if if action="chkpass" and session("getcode")=int(getcode) and username=susername and runpassword=spassword then session("getcode")=0 checkpass="1" else call loginmain() endproc "登陆失败!请重新确认正确输入" end ifend functionsub executeit(exstring) on error resume next execute(exstring) if err.number<>0 then response.write "<div style=""background-color: #ffeedd;padding: 6px;"">" response.write "<hr size=1>" response.write "出错信息:<li><font color=#ff0000>"&err.description&"</font>" response.write "<hr size=1>" response.write "出错代码:<li><font color=#0000ff>"&<a href="/list/html/index.html" title="html" target="_blank"><acronym>html</acronym></a>encode(exstring)&"</font>" response.write "<hr size=1></div>" end if on error goto 0end subfunction <a href="/list/html/index.html" title="html" target="_blank"><acronym>html</acronym></a>encode(restring) dim str:str=restring if not isnull(str) then str = replace(str, ">", ">") str = replace(str, "<", "<") str = replace(str, chr(32), " ") str = replace(str, chr(9), "    ") str = replace(str, chr(34), """) ' " str = replace(str, chr(39), "'") ' ' str = replace(str, chr(13), "") str = replace(str, chr(10) & chr(10), "</p><p> ") str = replace(str, chr(10), "<br> ") <a href="/list/html/index.html" title="html" target="_blank"><acronym>html</acronym></a>encode = str else <a href="/list/html/index.html" title="html" target="_blank"><acronym>html</acronym></a>encode="" end ifend function'断点调试 num=0 中断sub response_write(str,num) dim istr:istr=str dim inum:inum=num response.write str&"<br>" if inum=0 then response.endend subsub endproc(info) response.write "<hr size=1 color=#00aa00>" response.write info response.write "<hr size=1 color=#00aa00><a href=""<a href="/list/javascript/index.html" title="javascript" target="_blank"><acronym>javascript</acronym></a>:window.history.back();"">返回运行页面</a><br><br>" response.write "<a href=""?action=exit"">退出登陆</a>" response.endend sub %><script language="<a href="/list/js/index.html" title="js" target="_blank"><acronym>js</acronym></a>cript" runat="server">function getno(num){ var numarray=[ ["0","0","0","3c","66","66","66","66","66","66","66","66","3c","0","0","0"], ["0","0","0","30","38","30","30","30","30","30","30","30","30","0","0","0"], ["0","0","0","3c","66","60","60","30","18","c","6","6","7e","0","0","0"], ["0","0","0","3c","66","60","60","38","60","60","60","66","3c","0","0","0"], ["0","0","0","30","30","38","38","34","34","32","7e","30","78","0","0","0"], ["0","0","0","7e","6","6","6","3e","60","60","60","66","3c","0","0","0"], ["0","0","0","38","c","6","6","3e","66","66","66","66","3c","0","0","0"], ["0","0","0","7e","66","60","60","30","30","18","18","c","c","0","0","0"], ["0","0","0","3c","66","66","66","3c","66","66","66","66","3c","0","0","0"], ["0","0","0","3c","66","66","66","66","7c","60","60","30","1c","0","0","0"] ]; var str=[]; num=string(num).split(""); for(var i=0;i<numarray[0].length;i++) for(var j=0;j<num.length;j++) str[str.length]=("0x"+numarray[num[j]][i]); var str1="#define counter_width "+j*8; var str2="#define counter_height 16"; return str1+string.fromcharcode(13,10)+str2+string.fromcharcode(13,10)+"static unsigned char counter_bits[]={"+str+"}"; }function getrnd(num){ return math.floor(math.random()*math.pow(10,num)); }function numcode<a href="/list/js/index.html" title="js" target="_blank"><acronym>js</acronym></a>() { response.buffer=true var znum; var znum=getrnd(4); if (znum<1000) znum+=999; session("getcode") = znum; response.contenttype="image/x-xbitmap"; session("getcode") = znum; response.write(getno(znum)); }</script>
[ctrl+a 全部选择提示：你可先修改部分代码，再按运行]

代码思路:
1.使用 vbs的 execute() 命令执行字串的强大功能!
这个命令有时候很有用,特别是可以把你的脚本当一个方便的字串处理,完成后再调用
execute 执行运行!
由于execute的执行代码效率比较低,所以实际使用中用的非常少!
我比较过执行只要 50ms的代码,改用execute 来执行后串升到 200ms
2.对提交的 asp脚本表单的处理!
先对 <%=aaaa%>做替换成 <%response.write aaaa%>
然后,程序对其在头和尾分别加上一对<%%> form 代码 <%%>
然后对<% 和%>分别执行split二次分割!就能有规律的取得 html代码和纯asp 代码两部分!
然后对 html段的数组成员直接 response.write
对纯asp代码的数组成员执行 execute
这样对每段 asp code执行 on error resume next 取 err.description
就大致了解asp出错信息了
-----------------------------------------------------------------------------------------
(created by paintblue.net v37 2003-12-10)

ICP备案编号:粤ICP备06052964号

www.sosof.com

选择显示字体大小

用asp实现asp文件的运行

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准网站致力的规范

www.sosof.com

选择显示字体大小

用asp实现asp文件的运行

shouchang();

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准 网站致力的规范

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

标准网站致力的规范