繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 编写一个asp代码执行器
- ASP
- 在ASP程序中实现数据库事务控制
- 怎样开始一个ASP网站的设计
- ASP中使用ServerVariables集合详解
- 关于解决商务平台ASP程序的源代码泄漏设想与思考
- ASP通用模板类
- javascript利用xmlhttp获得服务器时钟的方法
- asp+oracle分页程序类（XDOWNPAGE2.0）
- ASP中实现小偷程序的原理和简单
- asp中vbscript访问xml文件
- ASP防SQL注入攻击程序
- 用ASP读INI配置文件的函数
- asp实现关键词获取(各搜索引擎,gb2312及utf-8)
- xmlhttp组件获取远程文件并筛选出目标数据
- XMLHTTP Get HTML页面时的中文乱码之完全客户端Script解决方案
- WEB打印设置解决方案一（通过修改注册表改变IE打印设置）
- WEB打印设置解决方案二（利用ScriptX.cab控件改变IE打印设置）
- WEB打印设置解决方案三（FileSystem组件实现WEB打印）
- WEB打印设置解决方案四（在ASP中实现网络打印功能）
- ASP实用技巧 强制刷新网页
- Access通用－自动替换数据库中的字符串
ASP 中的 编写一个asp代码执行器
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 99 ::
收藏到网摘: n/a
保存为runasp.asp运行。账号密码admin，登陆后输入代码就可执行了！！
<% @ LANGUAGE="VBSCRIPT" %>
<%Option Explicit
response.buffer=true
dim Spassword,SUserName
SUserName="admin"
Spassword="admin"
dim SQLMutiStr
dim i
dim action
action=request.querystring("action")
IF action="GetCode" then '---------TOT
NumCodeJS
ELSE '--------TOT
Response.Write("<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">")
Response.Write("<HTML>")
Response.Write("<HEAD>")
Response.Write("<TITLE>ASP RunCode SCR V1.0 / Create By PaintBlue.Net V37</TITLE>")
Response.Write("<META NAME=""Generator"" CONTENT=""EditPlus,V37,PaintBlue.Net"">")
Response.Write("<META NAME=""Author"" CONTENT=""V37,PaintBlue.Net"">")
Response.Write("<META NAME=""Keywords"" CONTENT=""PaintBlue.Net,,V37,RunCode,ASP,Script,BlueIdea.COM,Lfgbox.com"">")
Response.Write("<META NAME=""Description"" CONTENT=""运行ASP代码的ASP脚本!"">")
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=""javascript: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,vbcrlf)
if inStr(lcase(tempSQL(0)),"language")>0 then
tempSQL2=tempSQL(1)
&n
评论 (0) All
