编写一个asp代码执行器 -pc6资讯

您的位置：首页 → 网页设计 → ASP实例 → 编写一个asp代码执行器

编写一个asp代码执行器 时间：2004/11/7 3:03:00来源：本站整理作者：蓝点我要评论(0)

保存为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("")
    Response.Write("")
    Response.Write("")
    Response.Write("ASP RunCode SCR V1.0 / Create By PaintBlue.Net V37")
    Response.Write("")
    Response.Write("")
    Response.Write("")
    Response.Write("")
    Response.Write("")
    Response.Write("")

    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 "

返回运行页面

"
                    Response.write "退出登陆"
                    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)
                        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,vbcrlf&vbcrlf,vbcrlf)
                        loop while instr(tempSQL2,vbcrlf&vbcrlf)>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("代码运行完毕!")
                end if
            else
                %>
                输入要运行的ASP代码:

               <%=server.htmlencode(sqlmutistr)%></%=server.htmlencode(sqlmutistr)%>

        <%    end if
    else
        call loginmain()
    end if
        Response.write ("")
END IF '-------TOT

SUB loginMain()
%>

 UserName:

         PassWord:

        CheckCode:">

<%
End SUB

function 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&"

用户名和密码输入不能为空"
    end if
    if Not isnumeric(GetCode) then
        errinfo=errinfo&"

请输入数字校验码"
    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 if
End function

SUB    ExeCuteIt(ExString)
    on error resume next
    Execute(ExString)
    if err.number<>0 then
        Response.write "

"
Response.write "

"
Response.write "出错信息:

"&err.description&""
Response.write "

"
Response.write "出错代码:

"&Htmlencode(ExString)&""
Response.write "

"
end if
on error goto 0
end SUB

function HTMLEncode(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), "

")
        Str = Replace(Str, CHR(10), "
")
        HTMLEncode = Str
    else
        HTMLEncode=""
    end if
end function

'断点调试 num=0 中断
Sub Response_write(str,num)
    dim istr:istr=str
    dim inum:inum=num
    response.write str&"
"
    if inum=0 then response.end
end sub

SUB EndProc(info)
Response.write "

"
Response.write info
Response.write "

返回运行页面

"
    Response.write "退出登陆"
    response.end
End SUB
%>