VBSCRIPT
" %>
<%Option explicite
réponse.buffer=true
dim Mot de passe, SUserName
SUserName="admin"
Mot de passe="admin"
faible SQLMutiStr
je suis faible
action sombre
action=request.querystring("action")
SI action="GetCode" alors '--------TOT
NuméroCodeJS
AUTRE '--------TOT
Response.Write("<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">")
Réponse.Write("<HTML>")
Réponse.Write("<HEAD>")
Response.Write("<TITLE>ASP RunCode SCR V1.0 / Créer par PaintBlue.Net V37</TITLE>")
Response.Write("<META NAME=""Générateur"" CONTENT=""EditPlus,V37,PaintBlue.Net"">")
Response.Write("<META NAME=""Auteur"" 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脚本!"">")
Réponse.Write("</HEAD>")
Response.Write("<BODY bgcolor=#D4D0C8>")
SQLMutiStr=trim(Request.Form("SQLMutiStr"))
si session("login")="" et action="chkpass" alors
session("connexion")=checkPass()
finir si
si action="exit" alors session("login")=""
si session("login")="1" alors
si action="RunCode" alors
si SQLMutiStr="" alors
Response.write "没有输入要运行的代码!"
Response.write "<br><br><a href=""javascript:window.history.back();"">返回运行页面</a><br><br>"
Response.write "<a href=""?action=exit"">退出登陆</a>"
réponse.end
autre
faible ExeStrArr
faible ré
faible tempSQL, tempSQL2
faible ScriptArr,ScriptSubArr
tempSQL2=""
tempSQL=split(SQLMutiStr,vbcrlf)
si inStr(lcase(tempSQL(0)),"langue")>0 alors
tempSQL2=tempSQL(1)
si ubound(tempSQL)>1 alors
pour i=1 vers ubound(tempSQL)
tempSQL2=tempSQL2&tempSQL(i)
suivant
finir si
tempSQL2=trim(tempSQL2)
autre
tempSQL2=SQLMutiStr
finir si
tempSQL2=replace(tempSQL2,"<%"&"=","<"&"%response.write ")
faire
tempSQL2=remplacer(tempSQL2,vbcrlf&vbcrlf,vbcrlf)
boucle while instr(tempSQL2,vbcrlf&vbcrlf)>0
tempSQL2=trim(tempSQL2)
tempSQL2="<"&"%%"&">"&tempSQL2&"<"&"%%"&">"
ScriptArr=split(tempSQL2,"%"&">")
dim ub,kub
ub=ubound(ScriptArr)
pour i=0 à ub-1
ScriptSubArr=split(ScriptArr(i),"<"&"%")
si i>0 alors réponse.write (ScriptSubArr(0))
ExeCuteIt(ScriptSubArr(1))
suivant
appelez EndProc("<font color=#009900>代码运行完毕!</font>")
finir si
autre
%>
L'application ASP :
<FORM METHOD=POST ACTION="?action=RunCode" style="margin:0px;">
<TEXTAREA NAME="SQLMutiStr" wrap='OFF' ROWS="20" style="width:100%;height:100%;table-layout:fixed;word-break:break-all;"><%=Serveur .Htmlencode(SQLMutiStr)%></TEXTAREA>
<br>
<INPUT TYPE="bouton" onclick="window.location.href='?action=exit';" Valeur="LouOut">
<INPUT TYPE="reset" Value="Effacer">
<INPUT TYPE="submit" value="Exécuter AspCode">
</FORM>
<% fin si
autre
appelez loginmain()
finir si
Réponse.write ("</BODY></HTML>")
END IF '-------TOT
SUB loginMain()
%>
<FORM METHOD=POST ACTION="?action=chkpass"> Nom d'utilisateur :<INPUT TYPE="text" NAME="Nom d'utilisateur"><br>
Mot de passe :<INPUT TYPE="mot de passe" NAME="Runpassword"><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=" Connexion "></FORM>
<%
Fin de la fonction SUB
checkPass()
dim Nom d'utilisateur, Runpassword, GetCode
faible information d'erreur
checkPass=""
Nom d'utilisateur=trim(request.form("Nom d'utilisateur"))
Runpassword=trim(request.form("Runpassword"))
GetCode=request.form("GetCode")
si UserName="" ou Runpassword="" alors
errinfo=errinfo&"<li>用户名和密码输入不能为空"
finir si
si Non est numérique (GetCode) alors
errinfo=errinfo&"<li>请输入数字校验码"
finir si
si infoerreur<>"" alors
appelez loginmain()
Informations d'erreur EndProc
finir si
si action="chkpass" et Session("GetCode")=int(GetCode) et UserName=SUserName et Runpassword=Spassword alors
Session("GetCode")=0
checkPass="1"
autre
appelez loginmain()
EndProc "登陆失败!请重新确认正确输入"
finir si
Fin de la fonction
SUB ExeCuteIt(ExString)
en cas d'erreur, reprendre ensuite
Exécuter (ExString)
si numéro d'erreur <>0 alors
Response.write "<div style=""background-color: #ffeedd;padding: 6px;"">"
Réponse.write "<hr size=1>"
Response.write "出错信息 :<li><font color=#ff0000>"&err.description&"</font>"
Réponse.write "<hr size=1>"
Response.write "出错代码 :<li><font color=#0000ff>"&Htmlencode(ExString)&"</font>"
Réponse.write "<hr size=1></div>"
finir si
en cas d'erreur, allez à 0
fin de la fonction SUB
HTMLEncode (reString)
dimStr:Str=reString
sinon isnull(Str) alors
Str = remplacer (Str, ">", ">")
Str = remplacer (Str, "<", "<")
Str = Remplacer(Str, CHR(32), " ")
Str = Remplacer(Str, CHR(9), " ")
Str = Remplacer(Str, CHR(34), """) ' "
Str = Remplacer(Str, CHR(39), "'") ' '
Str = Remplacer(Str, CHR(13), "")
Str = Remplacer(Str, CHR(10) & CHR(10), "</P><P> ")
Str = Remplacer(Str, CHR(10), "<BR> ")
HTMLEncode = Chaîne
autre
HTMLEncode=""
finir si
fonction de fin
'断点调试 num=0 中断
Sous-réponse_write(str,num)
dim istr:istr=str
faible inum:inum=num
réponse.write str&"<br>"
si inum = 0 alors réponse.end
end sub
SUB EndProc(info)
Réponse.write "<hr size=1 color=#00aa00>"
Réponse.écrire des informations
Response.write "<hr size=1 color=#00aa00><a href=""javascript:window.history.back();"">返回运行页面</a><br><br>"
Response.write "<a href=""?action=exit"">退出登陆</a>"
réponse.end
Fin du SUB
%>
<langage de script="JScript" runat="Serveur">
fonction GetNO(num){
varNumArray=[
]["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("");
pour(var i=0;i<NumArray[0].length;i++)
pour(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)+"caractère statique non signé counter_bits[]={"+str+"}";
}
fonction GetRnd(Num){
return Math.floor(Math.random()*Math.pow(10,Num));
}
fonction NumCodeJS()
{
Réponse.buffer=true
var zNum;
var zNum=GetRnd(4);
si (zNum<1000) zNum+=999 ;
Session("GetCode") = zNum;
Response.ContentType="image/x-xbitmap";
Session("GetCode") = zNum;
Réponse.Write(GetNO(zNum));
}
</script>