<% @ LANGUAGE="VBSCRIPT" %
>
<%Opción explícita
respuesta.buffer=verdadero
contraseña tenue, nombre de usuario
SUuserName="admin"
Contraseña="admin"
oscuro SQLMutiStr
oscuro yo
acción tenue
acción=request.querystring("acción")
IF acción="GetCode" entonces '---------TOT
NumCodeJS
ELSE '--------TOT
Response.Write("<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transicional//ES"">")
Respuesta.Escribir("<HTML>")
Respuesta.Escribir("<CABEZAL>")
Response.Write("<TITLE>ASP RunCode SCR V1.0 / Crear por PaintBlue.Net V37</TITLE>")
Response.Write("<META NAME=""Generador"" CONTENT=""EditPlus,V37,PaintBlue.Net"">")
Response.Write("<META NAME=""Autor"" CONTENT=""V37,PaintBlue.Net"">")
Response.Write("<META NAME=""Palabras clave"" CONTENT=""PaintBlue.Net,,V37,RunCode,ASP,Script,BlueIdea.COM,Lfgbox.com"">")
Response.Write("<META NAME=""Descripción"" CONTENT=""运行ASP代码的ASP脚本!"">")
Respuesta.Escribir("</HEAD>")
Response.Write("<BODY bgcolor=#D4D0C8>")
SQLMutiStr=trim(Request.Form("SQLMutiStr"))
si sesión("login")="" y acción="chkpass" entonces
sesión("iniciar sesión")=checkPass()
terminar si
si acción="salir" entonces sesión("iniciar sesión")=""
si sesión("login")="1" entonces
si acción = "RunCode" entonces
si SQLMutiStr="" entonces
Response.write "没有输入要运行的代码!"
Response.write "<br><br><a href=""javascript:window.history.back();"">返回运行页面</a><br><br>"
Response.write "<a href=""?action=exit"">退出登陆</a>"
respuesta.fin
demás
tenue ExeStrArr
luz tenue
tempSQL tenue, tempSQL2
tenue ScriptArr, ScriptSubArr
tempSQL2=""
tempSQL=dividir(SQLMutiStr,vbcrlf)
si inStr(lcase(tempSQL(0)),"idioma")>0 entonces
tempSQL2=tempSQL(1)
si ubound(tempSQL)>1 entonces
para i=1 a ubound(tempSQL)
tempSQL2=tempSQL2&tempSQL(i)
próximo
terminar si
tempSQL2=recortar(tempSQL2)
demás
tempSQL2=SQLMutiStr
terminar si
tempSQL2=reemplazar(tempSQL2,"<%"&"=","<"&"%response.write ")
hacer
tempSQL2=reemplazar(tempSQL2,vbcrlf&vbcrlf,vbcrlf)
bucle mientras instr(tempSQL2,vbcrlf&vbcrlf)>0
tempSQL2=recortar(tempSQL2)
tempSQL2="<"&"%%"&">"&tempSQL2&"<"&"%%"&">"
ScriptArr=split(tempSQL2,"%"&">")
oscuro ub, kub
ub=ubound(ScriptArr)
para i=0 a ub-1
ScriptSubArr=dividir(ScriptArr(i),"<"&"%")
si i>0 entonces respuesta.escribir (ScriptSubArr(0))
EjecutarCuteIt(ScriptSubArr(1))
próximo
call EndProc("<font color=#009900>代码运行完毕!</font>")
terminar si
demás
%>
输入要运行的ASP代码:
<FORM METHOD=POST ACTION="?action=RunCode" estilo="margin:0px;">
<TEXTAREA NAME="SQLMutiStr" wrap='OFF' ROWS="20" style="ancho:100%;alto:100%;table-layout:fixed;word-break:break-all;"><%=Servidor .Htmlencode(SQLMutiStr)%></TEXTAREA>
<br>
<INPUT TYPE="botón" onclick="window.location.href='?action=exit';" Valor="LouOut">
<TIPO DE ENTRADA="restablecer" Valor="Borrar">
<INPUT TYPE="enviar" valor="Ejecutar AspCode">
</FORM>
<% final si
demás
llamar a loginmain()
terminar si
Respuesta.escribir ("</BODY></HTML>")
END IF '-------TOT
SUB loginMain()
%>
<FORM METHOD=POST ACTION="?action=chkpass"> Nombre de usuario:<INPUT TYPE="text" NAME="Nombre de usuario"><br>
Contraseña:<INPUT TYPE="contraseña" NAME="Ejecutar contraseña"><br>
Código de verificación:<INPUT TYPE="GetCode" NAME="GetCode"><img src="runasp.asp?action=GetCode&Time=<%=timer()%>"><br>
<br><img ancho=125 alto=0><INPUT TYPE="enviar" valor=" Iniciar sesión "></FORM>
<%
Finalizar
la función SUB checkPass()
dim Nombre de usuario, Ejecutar contraseña, Obtener código
información de error tenue
checkPass=""
Nombre de usuario = trim (request.form ("Nombre de usuario"))
Ejecutar contraseña=trim(request.form("Ejecutar contraseña"))
ObtenerCódigo=solicitud.formulario("ObtenerCódigo")
si UserName="" o Runpassword="" entonces
errinfo=errinfo&"<li>用户名和密码输入不能为空"
terminar si
si no es numérico (GetCode), entonces
errinfo=errinfo&"<li>请输入数字校验码"
terminar si
si info_error<>"" entonces
llamar a loginmain()
Información de error EndProc
terminar si
si action="chkpass" y Session("GetCode")=int(GetCode) y UserName=SUserName y Runpassword=Spassword entonces
Sesión("GetCode")=0
checkPass="1"
demás
llamar a loginmain()
EndProc "登陆失败!请重新确认正确输入"
terminar si
Función final
SUB ExeCuteIt(ExString)
en caso de error reanudar siguiente
Ejecutar (ExString)
si número de error <> 0 entonces
Response.write "<div style=""color de fondo: #ffeedd;padding: 6px;"">"
Respuesta.escribir "<tamaño hora=1>"
Response.write "出错信息:<li><font color=#ff0000>"&err.description&"</font>"
Respuesta.escribir "<tamaño hora=1>"
Response.write "出错代码:<li><font color=#0000ff>"&Htmlencode(ExString)&"</font>"
Respuesta.escribir "<tamaño hora=1></div>"
terminar si
por error ir a 0
finalizar
la función SUB HTMLEncode (reString)
tenue Str:Str=reString
si no es nulo (Str) entonces
Str = reemplazar(Str, ">", ">")
Str = reemplazar(Str, "<", "<")
Str = Reemplazar(Str, CHR(32), " ")
Str = Reemplazar(Str, CHR(9), " ")
Str = Reemplazar(Str, CHR(34), """) ' "
Str = Reemplazar(Str, CHR(39), "'") ' '
Str = Reemplazar(Str, CHR(13), "")
Str = Reemplazar(Str, CHR(10) y CHR(10), "</P><P> ")
Str = Reemplazar(Str, CHR(10), "<BR> ")
HTMLEncode = Cadena
demás
HTMLEncode=""
terminar si
función final
'断点调试 num=0 中断
Subrespuesta_escritura(cadena,núm)
istr tenue:istr=cadena
dim inum:inum=núm
respuesta.escribir cadena&"<br>"
si inum=0 entonces respuesta.end
end sub
SUB EndProc(información)
Response.write "<tamaño hora=1 color=#00aa00>"
Respuesta.escribir información
Response.write "<hr size=1 color=#00aa00><a href=""javascript:window.history.back();"">返回运行页面</a><br><br>"
Response.write "<a href=""?action=exit"">退出登陆</a>"
respuesta.fin
Fin SUB
%>
<script language="JScript" runat="Servidor">
función ObtenerNO(núm){
var MatrizNúm=[
]["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 cadena=[];
número=Cadena(núm).split("");
para(var i=0;i<NumArray[0].length;i++)
para(var j=0;j<num.length;j++)
str[str.length]=("0x"+NumArray[num[j]][i]);
var str1="#define contador_ancho "+j*8;
var str2="#definir contra_altura 16";
return str1+String.fromCharCode(13,10)+str2+String.fromCharCode(13,10)+"counter_bits de caracteres estáticos sin firmar[]={"+str+"}";
}
función ObtenerRnd(Núm){
return Math.floor(Math.random()*Math.pow(10,Num));
}
función NumCodeJS()
{
Respuesta.buffer=verdadero
var zNúm;
var zNum=GetRnd(4);
si (zNúm<1000) zNúm+=999;
Sesión("GetCode") = zNum;
Response.ContentType="imagen/x-xbitmap";
Sesión("GetCode") = zNum;
Respuesta.Escribir(GetNO(zNum));
}
</script>