保存为runasp.asp运行。账号密码admin,登陆后输入代码就可执行了ییی
<% @ LANGUAGE="VBSCRIPT" %>
<%Opsi Eksplisit
respon.buffer=benar
redupkan Kata Sandi,SUserName
Nama Pengguna SU="admin"
Kata Sandi = "admin"
redupkan SQLMutiStr
redupkan aku
tindakan redup
action=request.querystring("action")
JIKA action="GetCode" lalu '---------TOT
NomorCodeJS
LAIN '--------TOT
Response.Write("<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transisi//EN"">")
Respon.Tulis("<HTML>")
Respon.Tulis("<HEAD>")
Response.Write("<TITLE>ASP RunCode SCR V1.0 / Dibuat Oleh PaintBlue.Net V37</TITLE>")
Response.Write("<META NAME=""Generator"" CONTENT=""EditPlus,V37,PaintBlue.Net"">")
Response.Write("<META NAME=""Penulis"" CONTENT=""V37,PaintBlue.Net"">")
Response.Write("<META NAME=""Kata Kunci"" CONTENT=""PaintBlue.Net,,V37,RunCode,ASP,Script,BlueIdea.COM,Lfgbox.com"">")
Response.Write("<META NAME=""Deskripsi"" CONTENT=""运行ASP代码的ASP脚本!"">")
Respon.Tulis("</HEAD>")
Respon.Tulis("<BODY bgcolor=#D4D0C8>")
SQLMutiStr=trim(Permintaan.Form("SQLMutiStr"))
jika sesi("login")="" dan action="chkpass" lalu
sesi("login")=checkPass()
berakhir jika
jika tindakan = "keluar" maka sesi ("login") = ""
jika sesi("login")="1" maka
jika tindakan = "RunCode" lalu
jika SQLMutiStr="" maka
Respon.tulis "没有输入要运行的代码!"
Response.write "<br><br><a href=""javascript:window.history.back();"">返回运行页面</a><br><br>"
Response.tulis "<a href=""?action=exit"">退出登陆</a>"
respon.akhir
kalau tidak
redupkan ExeStrArr
redup kembali
redupkan suhuSQL,tempSQL2
redupkan ScriptArr,ScriptSubArr
suhuSQL2=""
tempSQL=berpisah(SQLMutiStr,vbcrlf)
jika inStr(lcase(tempSQL(0)),"bahasa")>0 maka
tempSQL2=tempSQL(1)
jika ubound(tempSQL)>1 maka
untuk i=1 hingga ubound(tempSQL)
tempSQL2=tempSQL2&tempSQL(i)
Berikutnya
berakhir jika
tempSQL2=memangkas(tempSQL2)
kalau tidak
tempSQL2=SQLMutiStr
berakhir jika
tempSQL2=ganti(tempSQL2,"<%"&"=","<"&"%response.write ")
Mengerjakan
tempSQL2=ganti(tempSQL2,vbcrlf&vbcrlf,vbcrlf)
loop sementara instr(tempSQL2,vbcrlf&vbcrlf)>0
tempSQL2=memangkas(tempSQL2)
tempSQL2="<"&"%%"&">"&tempSQL2&"<"&"%%"&">"
ScriptArr=split(tempSQL2,"%"&">")
redup ub, kub
ub=ubound(ScriptArr)
untuk i=0 hingga ub-1
ScriptSubArr=split(ScriptArr(i),"<"&"%")
jika i>0 maka respon.tulis (ScriptSubArr(0))
ExeCuteIt(ScriptSubArr(1))
Berikutnya
panggil EndProc("<font color=#009900>代码运行完毕!</font>")
berakhir jika
kalau tidak
%>
Fitur ASP:
<METODE BENTUK=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>
<br>
<INPUT TYPE="button" onclick="window.location.href='?action=exit';" Nilai="LouOut">
<INPUT TYPE="reset" Value="Hapus">
<INPUT TYPE="kirim" value="Jalankan AspCode">
</BENTUK>
<% berakhir jika
kalau tidak
panggil login utama()
berakhir jika
Respon.tulis ("</BODY></HTML>")
AKHIR JIKA '-------TOT
SUB loginUtama()
%>
<FORM METHOD=POST ACTION="?action=chkpass"> Nama Pengguna:<INPUT TYPE="text" NAME="UserName"><br>
Kata Sandi:<INPUT TYPE="password" NAME="Runpassword"><br>
Kode Periksa:<INPUT TYPE="GetCode" NAME="GetCode"><img src="runasp.asp?action=GetCode&Time=<%=timer()%>"><br>
<br><img lebar=125 tinggi=0><INPUT TYPE="kirim" value=" Masuk "></FORM>
<%
Akhiri fungsi SUB
checkPass()
redupkan Nama Pengguna, Kata Sandi Jalan, Dapatkan Kode
redup errinfo
periksaPass=""
Nama Pengguna=trim(permintaan.form("NamaPengguna"))
Runpassword=trim(request.form("Runpassword"))
GetCode=permintaan.form("GetCode")
jika UserName="" atau Runpassword="" maka
errinfo=errinfo&"<li>用户名和密码输入不能为空"
berakhir jika
jika Bukan isnumerik (GetCode) maka
errinfo=errinfo&"<li>请输入数字校验码"
berakhir jika
jika errinfo<>"" maka
panggil login utama()
Info kesalahan EndProc
berakhir jika
jika action="chkpass" dan Session("GetCode")=int(GetCode) dan UserName=SUserName dan Runpassword=Spassword maka
Sesi("GetCode")=0
periksaPass="1"
kalau tidak
panggil login utama()
EndProc "登陆失败!请重新确认正确输入"
berakhir jika
Fungsi akhir
SUB ExeCuteIt(ExString)
pada kesalahan lanjutkan berikutnya
Jalankan (ExString)
jika err.number<>0 maka
Respon.tulis "<div style=""warna latar: #ffeedd;padding: 6px;"">"
Respon.tulis "<ukuran jam=1>"
Response.tulis "出错信息:<li><font color=#ff0000>"&err.description&"</font>"
Respon.tulis "<ukuran jam=1>"
Response.tulis "出错代码:<li><font color=#0000ff>"&Htmlencode(ExString)&"</font>"
Respon.tulis "<hr size=1></div>"
berakhir jika
pada kesalahan goto 0
akhir fungsi SUB
HTMLEncode(reString)
redupkan Str:Str=reString
jika tidak isnull(Str) maka
Str = ganti(Str, ">", ">")
Str = ganti(Str, "<", "<")
Str = Ganti(Str, CHR(32), " ")
Str = Ganti(Str, CHR(9), " ")
Str = Ganti(Str, CHR(34), """) ' "
Str = Ganti(Str, CHR(39), "'") ' '
Str = Ganti(Str, CHR(13), "")
Str = Ganti(Str, CHR(10) & CHR(10), "</P><P> ")
Str = Ganti(Str, CHR(10), "<BR> ")
HTMLEncode = Str
kalau tidak
Kode HTML=""
berakhir jika
fungsi akhir
'断点调试 num=0 中断
Sub Response_write(str,num)
redup istr:istr=str
redup inum:inum=angka
respon.tulis str&"<br>"
jika inum=0 maka respon.end
sub akhir
SUB EndProc(info)
Respon.tulis "<ukuran jam=1 warna=#00aa00>"
Respon.tulis info
Response.tulis "<hr size=1 color=#00aa00><a href=""javascript:window.history.back();"">返回运行页面</a><br><br>"
Response.tulis "<a href=""?action=exit"">退出登陆</a>"
respon.akhir
Akhir SUB
%>
<skrip bahasa="JScript" runat="Server">
fungsi DapatkanNO(angka){
var AngkaArray=[
] ["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=[];
angka=String(angka).split("");
untuk(var i=0;i<NumArray[0].panjang;i++)
for(var j=0;j<angka.panjang;j++)
str[str.panjang]=("0x"+NumArray[angka[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+"}";
}
fungsi DapatkanRnd(Bilangan){
return Math.floor(Math.random()*Math.pow(10,Num));
}
fungsi NumCodeJS()
{
Respon.buffer=benar
var zNum;
var zNum=DapatkanRnd(4);
jika (zJumlah<1000) zJumlah+=999;
Sesi("GetCode") = zNum;
Respon.ContentType="image/x-xbitmap";
Sesi("GetCode") = zNum;
Respon.Tulis(GetNO(zNum));
}
</skrip>