قم بالتسجيل في runasp.asp运行. قم بزيارة admin، قم بالتحقق من الأمر مرة أخرى!!
<% @ LANGUAGE="VBSCRIPT" %>
<%الخيار صريح
Response.buffer=true
كلمة المرور المعتمة، اسم المستخدم
اسم المستخدم = "المشرف"
كلمة المرور = "المسؤول"
خافت SQLMutiStr
خافت أنا
عمل خافت
action=request.querystring("action")
إذا كان الإجراء = "GetCode" ثم '---------TOT
NumCodeJS
آخر '--------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=""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脚本!"">")
الاستجابة.كتابة("</HEAD>")
Response.Write("<BODY bgcolor=#D4D0C8>")
SQLMutiStr=trim(Request.Form("SQLMutiStr"))
إذا كانت الجلسة ("تسجيل الدخول") = "" و action = "chkpass" إذن
جلسة ("تسجيل الدخول") = checkPass ()
نهاية إذا
إذا كان الإجراء = "الخروج" ثم الجلسة ("تسجيل الدخول") = ""
إذا كانت الجلسة ("تسجيل الدخول") = "1" إذن
إذا كان الإجراء = "RunCode" إذن
إذا SQLMutiStr = "" ثم
Response.write "没有输入要运行的代码!"
Response.write "<br><br><a href=""javascript:window.history.back();"">الإجابة على الأسئلة</a><br><br>"
Response.write "<a href=""?action=exit"">المشكلة</a>"
Response.end
آخر
خافت ExeStrArr
إعادة قاتمة
خافت tempSQL، tempSQL2
خافت ScriptArr، ScriptSubArr
تيمبSQL2 = ""
tempSQL=split(SQLMutiStr,vbcrlf)
إذا كان inStr(lcase(tempSQL(0)),"language")>0 إذن
tempSQL2=tempSQL(1)
إذا ubound(tempSQL)>1 ثم
لأني = 1 إلى ubound (tempSQL)
tempSQL2=tempSQL2&tempSQL(i)
التالي
نهاية إذا
tempSQL2 = تقليم (tempSQL2)
آخر
tempSQL2=SQLMutiStr
نهاية إذا
tempSQL2=replace(tempSQL2,"<%"&"=""<"&"%response.write ")
يفعل
tempSQL2=replace(tempSQL2,vbcrlf&vbcrlf,vbcrlf)
حلقة أثناء instr(tempSQL2,vbcrlf&vbcrlf)>0
tempSQL2 = تقليم (tempSQL2)
tempSQL2="<"&"%%"&">"&tempSQL2&"<"&"%%"&">"
ScriptArr=split(tempSQL2,"%"&">")
خافت أوب، كوب
ub=ubound(ScriptArr)
لأني = 0 إلى ub-1
ScriptSubArr=split(ScriptArr(i),"<"&"%")
إذا كنت >0، فقم بالرد (ScriptSubArr(0))
إكسيكوتيت (سكريبتسوبارو (1))
التالي
استدعاء EndProc("<font color=#009900>代码运行完毕!</font>")
نهاية إذا
آخر
%>
اسم المنتج: 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;"><%=Server .Htmlencode(SQLMutiStr)%></TEXTAREA>
<ر>
<INPUT TYPE="button" onclick="window.location.href='?action=exit';" القيمة = "LouOut">
<نوع الإدخال = "إعادة تعيين" القيمة = "مسح">
<INPUT TYPE="submit" value="تشغيل AspCode">
</فورم>
<% نهاية إذا
آخر
استدعاء تسجيل الدخول الرئيسي ()
نهاية إذا
الاستجابة.كتابة ("</BODY></HTML>")
نهاية إذا '-------TOT
SUB تسجيل الدخول الرئيسي ()
%>
<FORM METHOD=POST ACTION="?action=chkpass">اسم المستخدم:<INPUT TYPE="text" NAME="UserName"><br>
PassWord:<INPUT TYPE="password" NAME="Runpassword"><br>
رمز التحقق:<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 ()
اسم المستخدم خافت، تشغيل كلمة المرور، GetCode
معلومات خافتة
تحقق من المرور = ""
اسم المستخدم=trim(request.form("اسم المستخدم"))
Runpassword=trim(request.form("تشغيل كلمة المرور"))
GetCode=request.form("GetCode")
إذا كان اسم المستخدم = "" أو Runpassword = "" ثم
errinfo=errinfo&"<li>الحصول على معلومات حول ما إذا كان الأمر كذلك"
نهاية إذا
إذا لم يكن رقميًا (GetCode) إذن
errinfo=errinfo&"<li>البحث عن معلومات جديدة"
نهاية إذا
إذا errinfo<>"" إذن
استدعاء تسجيل الدخول الرئيسي ()
خطأ EndProc
نهاية إذا
إذا كان الإجراء = "chkpass" وSession("GetCode")=int(GetCode) وUserName=SUserName وRunpassword=Spassword إذن
الجلسة("GetCode")=0
فحص المرور = "1"
آخر
استدعاء تسجيل الدخول الرئيسي ()
EndProc "登陆失败!请重新确认正确输入"
نهاية إذا
وظيفة النهاية
SUB ExeCuteIt(ExString)
على خطأ استئناف المقبل
تنفيذ (ExString)
إذا err.number<>0 ثم
Response.write "<div style=""background-color: #ffeedd;padding: 6px;"">"
الاستجابة.كتابة "<حجم الساعة=1>"
Response.write "الإجابة على السؤال:<li><font color=#ff0000>"&err.description&"</font>"
الاستجابة.كتابة "<حجم الساعة=1>"
Response.write "المصدر:<li><font color=#0000ff>"&Htmlencode(ExString)&"</font>"
Response.write "<hr size=1></div>"
نهاية إذا
على خطأ انتقل إلى 0
نهاية وظيفة SUB
HTMLEncode(reString)
خافت Str:Str=reString
إذا لم يكن فارغًا (Str) إذن
Str = استبدال (Str، ">"، ">؛")
Str = استبدال (Str، "<"، "<؛")
Str = Replace(Str, CHR(32), " ")
Str = Replace(Str, CHR(9), " ")
Str = Replace(Str, CHR(34), """) ' "
Str = Replace(Str, CHR(39), "'") ' '
Str = استبدال (Str، CHR(13)، "")
Str = Replace(Str, CHR(10) & CHR(10), "</P><P> ")
Str = Replace(Str, CHR(10), "<BR> ")
HTMLEncode = Str
آخر
HTMLEncode = ""
نهاية إذا
وظيفة النهاية
' 断点调试 num=0 中断
الاستجابة الفرعية_write(str,num)
خافت istr:istr=str
خافت inum:inum=num
استجابة.اكتب str&"<br>"
إذا inum=0 ثم Response.end
النهاية الفرعية
EndProc(معلومات)
Response.write "<hr size=1 color=#00aa00>"
الرد.اكتب المعلومات
Response.write "<hr size=1 color=#00aa00><a href=""javascript:window.history.back();"">الإجابة على الأسئلة</a><br><br>"
Response.write "<a href=""?action=exit"">المشكلة</a>"
Response.end
نهاية الفرعية
%>
<script language="JScript" runat="الخادم">
الدالة GetNO(num){
فار نوماراي=[
]["0"،0"،0"،0"،3c"،66"،66"،66"،66"،66"،66"،66"،66"، "3ج"، "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"، "ج"، "6"، "6"، " 7e"،"0"،"0"،0"]،
["0"،"0"، "0"، "3c"، "66"، "60"، "60"، "38"، "60"، "60"، "60"، "66"، " 3ج"،"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"، " 3ج"،"0"،"0"،0"]،
["0"،"0"، "0"، "38"، "ج"، "6"، "6"، "3e"، "66"، "66"، "66"، "66"، " 3ج"،"0"،"0"،0"]،
["0"،"0"، "0"، "7e"، "66"، "60"، "60"، "30"، "30"، "18"، "18"، "ج"، " ج"،"0"،"،0"،0"]،
["0"،"0"، "0"، "3c"، "66"، "66"، "66"، "3c"، "66"، "66"، "66"، "66"، " 3ج"،"0"،"0"،0"]،
["0"،"0"، "0"، "3c"، "66"، "66"، "66"، "66"، "7c"، "60"، "60"، "30"، " 1ج"،"0"،"،0"،0"]
];
فار str=[];
num=String(num).split("");
for(var i=0;i<NumArray[0].length;i++)
ل(فار ي=0;ي<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()
{
Response.buffer=صحيح
فار زنوم؛
var zNum=GetRnd(4);
إذا (zNum<1000) zNum+=999;
Session("GetCode") = zNum;
Response.ContentType="image/x-xbitmap";
Session("GetCode") = zNum;
Response.Write(GetNO(zNum));
}
</script>