保存为runasp.asp运行。账号密码admin ，登陆后输入代码就可执行了！！
<% @ LANGUAGE="VBSCRIPT" %>
<%옵션 명시적
response.buffer=true
희미한 Spaword,SUserName
SUserName="관리자"
비밀번호="관리자"
희미한 SQLMutiStr
나 어두워
희미한 행동
action=request.querystring("action")
IF action="GetCode" then '---------TOT
NumCodeJS
ELSE '---------TOT
Response.Write("<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">")
응답.쓰기("<HTML>")
응답.쓰기("<HEAD>")
Response.Write("<TITLE>ASP RunCode SCR V1.0 / PaintBlue.Net V37로 생성</TITLE>")
Response.Write("<META NAME=""생성기"" CONTENT=""EditPlus,V37,PaintBlue.Net"">")
Response.Write("<META NAME=""저자"" CONTENT=""V37,PaintBlue.Net"">")
Response.Write("<META NAME=""키워드"" CONTENT=""PaintBlue.Net,,V37,RunCode,ASP,Script,BlueIdea.COM,Lfgbox.com"">")
Response.Write("<META NAME=""Description"" CONTENT=""运行ASP代码的ASP脚本!"">")
응답.쓰기("</HEAD>")
Response.Write("<BODY bgcolor=#D4D0C8>")
SQLMutiStr=trim(Request.Form("SQLMutiStr"))
session("login")=""이고 action="chkpass"인 경우
session("로그인")=checkPass()
종료하면
action="exit"이면 session("login")=""
session("login")="1"이면
action="RunCode"인 경우
SQLMutiStr=""이면
응답."没有输入要运行的代码!"라고 쓰세요.
Response.write "<br><br><a href=""javascript:window.history.back();"">返回运行页면</a><br><br>"
Response.write "<a href=""?action=exit"">退出登陆</a>"
응답.끝
또 다른
희미한 ExeStrArr
어두워
희미한 tempSQL,tempSQL2
희미한 ScriptArr,ScriptSubArr
임시SQL2=""
tempSQL=분할(SQLMutiStr,vbcrlf)
if inStr(lcase(tempSQL(0)),"언어")>0이면
tempSQL2=tempSQL(1)
ubound(tempSQL)>1이면
i=1에서 ubound(tempSQL)까지
tempSQL2=tempSQL2&tempSQL(i)
다음
종료하면
tempSQL2=트림(tempSQL2)
또 다른
tempSQL2=SQLMutiStr
종료하면
tempSQL2=교체(tempSQL2,"<%"&"=","<"&"%response.write ")
하다
tempSQL2=교체(tempSQL2,vbcrlf&vbcrlf,vbcrlf)
instr(tempSQL2,vbcrlf&vbcrlf)>0 동안 루프를 반복합니다.
tempSQL2=트림(tempSQL2)
tempSQL2="<"&"%%"&">"&tempSQL2&"<"&"%%"&">"
ScriptArr=split(tempSQL2,"%"&">")
딤어브,쿠브
ub=ubound(ScriptArr)
i=0에서 ub-1까지
ScriptSubArr=split(ScriptArr(i),"<"&"%")
i>0이면 response.write(ScriptSubArr(0))
ExecuteIt(ScriptSubArr(1))
다음
EndProc("<font color=#009900>代码运行完毕!</font>")을 호출하세요.
종료하면
또 다른
%>
ASP 대행사에 대한 유용한 정보:
<FORM METHOD=POST ACTION="?action=RunCode" 스타일="margin:0px;">
<TEXTAREA NAME="SQLMutiStr" Wrap='OFF' ROWS="20" style="width:100%;height:100%;table-layout:fixed;word-break:break-all;"><%=서버 .Htmlencode(SQLMutiStr)%></TEXTAREA>
<br>
<INPUT TYPE="버튼" onclick="window.location.href='?action=exit';" 값="루아웃">
<입력 유형="재설정" 값="지우기">
<INPUT TYPE="제출" 값="AspCode 실행">
</FORM>
<% 종료되는 경우
또 다른
loginmain()을 호출합니다.
종료하면
응답.쓰기("</BODY></HTML>")
END IF '---------TOT
SUB loginMain()
%>
<FORM METHOD=POST ACTION="?action=chkpass"> 사용자 이름:<INPUT TYPE="text" NAME="사용자 이름"><br>
비밀번호:<INPUT TYPE="password" NAME="비밀번호 실행"><br>
CheckCode:<INPUT TYPE="GetCode" NAME="GetCode"><img src="runasp.asp?action=GetCode&Time=<%=timer()%>"><br>
<br><img width=125 height=0><INPUT TYPE="submit" value=" 로그인 "></FORM>
<%
SUB
함수 종료 checkPass()
희미한 사용자 이름, Runpassword, GetCode
희미한 오류 정보
체크패스=""
UserName=trim(request.form("사용자 이름"))
Runpassword=trim(request.form("Runpassword"))
GetCode=request.form("GetCode")
UserName="" 또는 Runpassword=""인 경우
errinfo=errinfo&"<li>사용 이름과 사용 이름이 다릅니다."
종료하면
숫자가 아닌 경우(GetCode)
errinfo=errinfo&"<li>문자 그대로"
종료하면
errinfo<>""인 경우
loginmain()을 호출합니다.
EndProc 오류 정보
종료하면
action="chkpass" 및 Session("GetCode")=int(GetCode) 및 UserName=SUserName 및 Runpassword=Spassword인 경우
세션("GetCode")=0
체크패스="1"
또 다른
loginmain()을 호출합니다.
EndProc "登陆失败!请重新确认正确输入"
종료하면
함수 종료
SUB ExecuteIt(ExString)
오류 발생 시 다음 재개
실행(ExString)
err.number<>0이면
Response.write "<div style=""배경색: #ffeedd;padding: 6px;"">"
Response.write "<시간 크기=1>"
Response.write "출력:<li><font color=#ff0000>"&err.description&"</font>"
Response.write "<시간 크기=1>"
Response.write "take 错代码:<li><font color=#0000ff>"&Htmlencode(ExString)&"</font>"
Response.write "<hr size=1></div>"
종료하면
오류 발생 시 0으로 이동
SUB
함수 종료 HTMLEncode(reString)
희미한 Str:Str=reString
isnull(Str)이 아니면
Str = 대체(Str, ">", ">")
Str = 대체(Str, "<", "<")
Str = 바꾸기(Str, CHR(32), " ")
Str = 바꾸기(Str, CHR(9), " ")
Str = 바꾸기(Str, CHR(34), """) ' "
Str = 바꾸기(Str, CHR(39), "'") ' '
Str = 바꾸기(Str, CHR(13), "")
Str = 바꾸기(Str, CHR(10) & CHR(10), "</P><P> ")
Str = 바꾸기(Str, CHR(10), "<BR> ")
HTMLEncode = Str
또 다른
HTML인코드=""
종료하면
종료 기능
'断点调试 num=0 中断
하위 응답_write(str,num)
희미한 Istr:istr=str
희미한 inum:inum=num
response.write str&"<br>"
inum=0이면 response.end
end sub
SUB EndProc(정보)
Response.write "<시간 크기=1 색상=#00aa00>"
응답.정보 작성
Response.write "<hr size=1 color=#00aa00><a href=""javascript:window.history.back();"">返回运行页면</a><br><br>"
Response.write "<a href=""?action=exit"">退出登陆</a>"
응답.끝
서브 종료
%>
<script 언어="JScript" runat="서버">
함수 GetNO(숫자){
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+"}";
}
함수 GetRnd(숫자){
return Math.floor(Math.random()*Math.pow(10,Num));
}
함수 NumCodeJS()
{
응답.버퍼=true
var zNum;
var zNum=GetRnd(4);
if (zNum<1000) zNum+=999;
세션("GetCode") = zNum;
Response.ContentType="이미지/x-xbitmap";
세션("GetCode") = zNum;
Response.Write(GetNO(zNum));
}
</script>