资源描述：
《用asp实现asp文件的运行--》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。
1、用ASP实现ASP文件的运行>>写这个小东西的出发点,由于经常的需要在线利用asp脚本的ado对数据库执行建表,修改字段每次都要ftp修改升级文件传上去或在线修改好了运行!很是麻烦于是写了这个小东西!很方便~~脚本特点:1.可以运行除了ssi(如#includefile)和预处理指令(如language=javascript)外的任何aspvbscript脚本比如数据库连接,记录集的建立,甚至Fso等2.并可运行<%%><%=%>HTML混编的ASP脚本3.有简单的容错处理机制,可以简单的知道是脚本那个部分错误4.具有验证码登陆,密码和
2、用户名在代码runasp.asp的头部修改,缺省提供的是帐号:admin密码:admin看起来这个脚本很简陋,其实功能极其强大的可怕!虽然有简单的登陆验证,但还是不建议你使用在你的站点上,做为一个辅助调试asp代码的小工具个人认为比较实用的!所以你可以自己测试,玩玩,或作为临时的论坛代码解决问题的测试工具!因为每次都要进入调试环境来运行asp的确麻烦!还需要注意一点的是象<tdin密码admin):.paintblue.myasp/runasp.asp(实际执行功能已经屏蔽,请下载或粘贴下面代码测试使用):下载:runasp.rar<%LANGUA
3、GE=VBSCRIPT%><%OptionExplicitresponse.buffer=truedimSpasseSUserName=adminSpassindimSQLMutiStrdimidimactionaction=request.querystring(action)IFaction=GetCodethen''---------TOTNumCodeJSELSE''--------TOTResponse.LPUBLIC-//L4.0Transitional//EN>)Response.L>)Response.ETANAME=G
4、eneratorCONTENT=EditPlus,V37,PaintBlue.Net>)Response.ETANAME=AuthorCONTENT=V37,PaintBlue.Net>)Response.ETANAME=Key(Request.Form(SQLMutiStr))ifsession(login)=andaction=chkpassthensession(login)=checkPass()endififaction=exitthensession(login)=ifsession(login)=1thenifaction=RunCo
5、dethen 1234567下一页>>>>这篇文章来自..，。;ifSQLMutiStr=thenResponse.ExeStrArrdimredimtempSQL,tempSQL2dimScriptArr,ScriptSubArrtempSQL2=tempSQL=split(SQLMutiStr,vbcrlf)ifinStr(lcase(tempSQL(0)),language)>0thentempSQL2=tempSQL(1)ifubound(tempSQL)>1thenfori=1toubound(tempSQL)tempSQL2=t
6、empSQL2tempSQL(i)nextendiftempSQL2=trim(tempSQL2)elsetempSQL2=SQLMutiStrendiftempSQL2=replace(tempSQL2,<%=,<%response.pSQL2=replace(tempSQL2,vbcrlfvbcrlf,vbcrlf)looppSQL2,vbcrlfvbcrlf)>0tempSQL2=trim(tempSQL2)tempSQL2=<%%>tempSQL2<%%>ScriptArr=split(tempSQL2,%&g
7、t;)dimub,kubub=ubound(ScriptArr)fori=0toub-1ScriptSubArr=split(ScriptArr(i),<%)ifi>0thenresponse.write(ScriptSubArr(0))ExeCuteIt(ScriptSubArr(1))nextcallEndProc(<fontcolor=#009900&上一页1234567下一页>>>>这篇文章来自..，。gt;代码运行完毕!</font>)endifelse%>输入要运行的ASP代码:<FORMMETHOD=PO
8、STACTION=?action=Ru
