\n| \u4ee5\u4e0b\u662f\u5f15\u7528\u7247\u6bb5\uff1a<\/font><\/p>\n <% @ LANGUAGE="VBSCRIPT" %>
\n <%Option Explicit
\n response.buffer=true
\n dim Spassword,SUserName
\n SUserName="admin"
\n Spassword="admin"
\n dim SQLMutiStr
\n dim i
\n dim action
\n action=request.querystring("action")<\/font><\/p>\nIF action="GetCode" then ‘———TOT
\n NumCodeJS
\n ELSE ‘——–TOT
\n Response.Write("<!DOCTYPE HTML PUBLIC ""-\/\/W3C\/\/DTD HTML 4.0 Transitional\/\/EN"">")
\n Response.Write("<HTML>")
\n Response.Write("<HEAD>")
\n Response.Write("<TITLE>ASP RunCode SCR V1.0 \/ Create By PaintBlue.Net V37<\/TITLE>")
\n Response.Write("<META NAME=""Generator"" CONTENT=""EditPlus,V37,PaintBlue.Net"">")
\n Response.Write("<META NAME=""Author"" CONTENT=""V37,PaintBlue.Net"">")
\n Response.Write("<META NAME=""Keywords"" CONTENT=""PaintBlue.Net,,V37,RunCode,ASP,Script,BlueIdea.COM,Lfgbox.com"">")
\n Response.Write("<META NAME=""Description"" CONTENT=""\u8fd0\u884cASP\u4ee3\u7801\u7684ASP\u811a\u672c!"">")
\n Response.Write("<\/HEAD>")
\n Response.Write("<BODY bgcolor=#D4D0C8>")<\/font><\/p>\n SQLMutiStr=trim(Request.Form("SQLMutiStr"))
\n if session("login")="" and action="chkpass" then
\n session("login")=checkPass()
\n end if
\n if action="exit" then session("login")=""
\n if session("login")="1" then
\n if action="RunCode" then
\n if SQLMutiStr="" then
\n Response.write "\u6ca1\u6709\u8f93\u5165\u8981\u8fd0\u884c\u7684\u4ee3\u7801!"
\n Response.write "<br><br><a href=""javascript<\/i>:window.history.back();"">\u8fd4\u56de\u8fd0\u884c\u9875\u9762<\/a><br><br>"
\n Response.write "<a href=""?action=exit"">\u9000\u51fa\u767b\u9646<\/a>"
\n response.end
\n else
\n dim ExeStrArr
\n dim re
\n dim tempSQL,tempSQL2
\n dim ScriptArr,ScriptSubArr
\n tempSQL2=""
\n tempSQL=split(SQLMutiStr,vbcrlf)
\n if inStr(lcase(tempSQL(0)),"language")>0 then
\n tempSQL2=tempSQL(1)
\n if ubound(tempSQL)>1 then
\n for i=1 to ubound(tempSQL)
\n tempSQL2=tempSQL2&tempSQL(i)
\n next
\n end if
\n tempSQL2=trim(tempSQL2)
\n else
\n tempSQL2=SQLMutiStr
\n end if
\n tempSQL2=replace(tempSQL2,"<%"&"=","<"&"%response.write ")
\n do
\n tempSQL2=replace(tempSQL2,vbcrlf&vbcrlf,vbcrlf)
\n loop while instr(tempSQL2,vbcrlf&vbcrlf)>0
\n tempSQL2=trim(tempSQL2)
\n tempSQL2="<"&"%%"&">"&tempSQL2&"<"&"%%"&">"
\n ScriptArr=split(tempSQL2,"%"&">")
\n dim ub,kub
\n ub=ubound(ScriptArr)
\n for i=0 to ub-1
\n ScriptSubArr=split(ScriptArr(i),"<"&"%")
\n if i>0 then response.write (ScriptSubArr(0))
\n ExeCuteIt(ScriptSubArr(1))
\n next
\n call EndProc("<font color=#009900>\u4ee3\u7801\u8fd0\u884c\u5b8c\u6bd5!<\/font>")
\n end if
\n else
\n %>
\n \u8f93\u5165\u8981\u8fd0\u884c\u7684ASP\u4ee3\u7801:
\n <FORM METHOD=POST ACTION="?action=RunCode" style="margin:0px;">
\n <TEXTAREA NAME="SQLMutiStr" wrap=’OFF’ ROWS="20" style="width:100%;height:100%;table-layout:fixed;word-break:break-all;"><%=Server.Htmlencode(SQLMutiStr)%><\/TEXTAREA>
\n <br>
\n <INPUT TYPE="button" onclick="window.location.href=’?action=exit’;" Value="LouOut">
\n <INPUT TYPE="reset" Value="Clear">
\n <INPUT TYPE="submit" value="Run AspCode">
\n <\/FORM>
\n <% end if
\n else
\n call loginmain()
\n end if
\n Response.write ("<\/BODY><\/HTML>")
\n END IF ‘——-TOT<\/font><\/p>\nSUB loginMain()
\n %><\/font><\/p>\n <FORM METHOD=POST ACTION="?action=chkpass"> UserName:<INPUT TYPE="text" NAME="UserName"><br>
\n PassWord:<INPUT TYPE="password" NAME="Runpassword"><br>
\n CheckCode:<INPUT TYPE="GetCode" NAME="GetCode"><img src="runasp.asp?action=GetCode&Time=<%=timer()%>"><br>
\n <br><img width=125 height=0><INPUT TYPE="submit" value=" Login "><\/FORM>
\n <%
\n End SUB<\/font><\/p>\nfunction checkPass()
\n dim UserName,Runpassword,GetCode
\n dim errinfo
\n checkPass=""
\n UserName=trim(request.form("UserName"))
\n Runpassword=trim(request.form("Runpassword"))
\n GetCode=request.form("GetCode")
\n if UserName="" or Runpassword="" then
\n errinfo=errinfo&"<li>\u7528\u6237\u540d\u548c\u5bc6\u7801\u8f93\u5165\u4e0d\u80fd\u4e3a\u7a7a"
\n end if
\n if Not isnumeric(GetCode) then
\n errinfo=errinfo&"<li>\u8bf7\u8f93\u5165\u6570\u5b57\u6821\u9a8c\u7801"
\n end if
\n if errinfo<>"" then
\n call loginmain()
\n EndProc errinfo
\n end if
\n if action="chkpass" and Session("GetCode")=int(GetCode) and UserName=SUserName and Runpassword=Spassword then
\n Session("GetCode")=0
\n checkPass="1"
\n else
\n call loginmain()
\n EndProc "\u767b\u9646\u5931\u8d25!\u8bf7\u91cd\u65b0\u786e\u8ba4\u6b63\u786e\u8f93\u5165"
\n end if
\n End function<\/font><\/p>\nSUB ExeCuteIt(ExString)
\n on error resume next
\n Execute(ExString)
\n if err.number<>0 then
\n Response.write "<div style=""background-color: #ffeedd;padding: 6px;"">"
\n Response.write "<hr size=1>"
\n Response.write "\u51fa\u9519\u4fe1\u606f:<li><font color=#ff0000>"&err.description&"<\/font>"
\n Response.write "<hr size=1>"
\n Response.write "\u51fa\u9519\u4ee3\u7801:<li><font color=#0000ff>"&Htmlencode(ExString)&"<\/font>"
\n Response.write "<hr size=1><\/div>"
\n end if
\n on error goto 0
\n end SUB<\/font><\/p>\nfunction HTMLEncode(reString)
\n dim Str:Str=reString
\n if not isnull(Str) then
\n Str = replace(Str, ">", ">")
\n Str = replace(Str, "<", "<")
\n Str = Replace(Str, CHR(32), " ")
\n Str = Replace(Str, CHR(9), " ")
\n Str = Replace(Str, CHR(34), """) ‘ "
\n Str = Replace(Str, CHR(39), "'") ‘ ‘
\n Str = Replace(Str, CHR(13), "")
\n Str = Replace(Str, CHR(10) & CHR(10), "<\/P><P> ")
\n Str = Replace(Str, CHR(10), "<BR> ")
\n HTMLEncode = Str
\n else
\n HTMLEncode=""
\n end if
\n end function<\/font><\/p>\n‘\u65ad\u70b9\u8c03\u8bd5 num=0 \u4e2d\u65ad
\n Sub Response_write(str,num)
\n dim istr:istr=str
\n dim inum:inum=num
\n response.write str&"<br>"
\n if inum=0 then response.end
\n end sub<\/font><\/p>\nSUB EndProc(info)
\n Response.write "<hr size=1 color=#00aa00>"
\n Response.write info
\n Response.write "<hr size=1 color=#00aa00><a href=""javascript<\/i>:window.history.back();"">\u8fd4\u56de\u8fd0\u884c\u9875\u9762<\/a><br><br>"
\n Response.write "<a href=""?action=exit"">\u9000\u51fa\u767b\u9646<\/a>"
\n response.end
\n End SUB
\n %>
\n <script language="JScript" runat="Server">
\n function GetNO(num){
\n var NumArray=[
\n ["0","0","0","3c","66","66","66","66","66","66","66","66","3c","0","0","0"],
\n ["0","0","0","30","38","30","30","30","30","30","30","30","30","0","0","0"],
\n ["0","0","0","3c","66","60","60","30","18","c","6","6","7e","0","0","0"],
\n ["0","0","0","3c","66","60","60","38","60","60","60","66","3c","0","0","0"],
\n ["0","0","0","30","30","38","38","34","34","32","7e","30","78","0","0","0"],
\n ["0","0","0","7e","6","6","6","3e","60","60","60","66","3c","0","0","0"],
\n ["0","0","0","38","c","6","6","3e","66","66","66","66","3c","0","0","0"],
\n ["0","0","0","7e","66","60","60","30","30","18","18","c","c","0","0","0"],
\n ["0","0","0","3c","66","66","66","3c","66","66","66","66","3c","0","0","0"],
\n ["0","0","0","3c","66","66","66","66","7c","60","60","30","1c","0","0","0"]
\n ];
\n var str=[];
\n num=String(num).split("");
\n for(var i=0;i<NumArray[0].length;i++)
\n for(var j=0;j<num.length;j++)
\n str[str.length]=("0x"+NumArray[num[j]][i]);
\n var str1="#define counter_width "+j*8;
\n var str2="#define counter_height 16";
\n return str1+String.fromCharCode(13,10)+str2+String.fromCharCode(13,10)+"static unsigned char counter_bits[]={"+str+"}";
\n }
\n function GetRnd(Num){
\n return Math.floor(Math.random()*Math.pow(10,Num));
\n }
\n function NumCodeJS()
\n {
\n Response.buffer=true
\n var zNum;
\n var zNum=GetRnd(4);
\n if (zNum<1000) zNum+=999;
\n Session("GetCode") = zNum;
\n Response.ContentType="image\/x-xbitmap";
\n Session("GetCode") = zNum;
\n Response.Write(GetNO(zNum));
\n }
\n <\/script><\/font><\/p>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n\u4ee3\u7801\u601d\u8def:<\/b>
\n1.\u4f7f\u7528 vbs\u7684 execute() \u547d\u4ee4\u6267\u884c \u5b57\u4e32\u7684\u5f3a\u5927\u529f\u80fd!
\n\u8fd9\u4e2a\u547d\u4ee4\u6709\u65f6\u5019\u5f88\u6709\u7528,\u7279\u522b\u662f\u53ef\u4ee5\u628a\u4f60\u7684\u811a\u672c\u5f53\u4e00\u4e2a\u65b9\u4fbf\u7684\u5b57\u4e32\u5904\u7406,\u5b8c\u6210\u540e\u518d\u8c03\u7528
\nexecute \u6267\u884c\u8fd0\u884c!
\n\u7531\u4e8eexecute\u7684\u6267\u884c\u4ee3\u7801\u6548\u7387\u6bd4\u8f83\u4f4e,\u6240\u4ee5\u5b9e\u9645\u4f7f\u7528\u4e2d\u7528\u7684\u975e\u5e38\u5c11!
\n\u6211\u6bd4\u8f83\u8fc7\u6267\u884c\u53ea\u8981 50ms\u7684\u4ee3\u7801,\u6539\u7528execute \u6765\u6267\u884c\u540e\u4e32\u5347\u5230 200ms
\n2.\u5bf9 \u63d0\u4ea4\u7684 asp\u811a\u672c\u8868\u5355\u7684\u5904\u7406!
\n\u5148\u5bf9 <%=aaaa%>\u505a\u66ff\u6362\u6210 <%response.write aaaa%>
\n\u7136\u540e,\u7a0b\u5e8f\u5bf9\u5176\u5728\u5934\u548c\u5c3e\u5206\u522b\u52a0\u4e0a\u4e00\u5bf9<%%> form \u4ee3\u7801 <%%>
\n\u7136\u540e\u5bf9<% \u548c%>\u5206\u522b\u6267\u884csplit\u4e8c\u6b21\u5206\u5272!\u5c31\u80fd\u6709\u89c4\u5f8b\u7684\u53d6\u5f97 Html\u4ee3\u7801\u548c \u7eafasp \u4ee3\u7801\u4e24\u90e8\u5206!
\n\u7136\u540e\u5bf9 html\u6bb5\u7684\u6570\u7ec4\u6210\u5458\u76f4\u63a5 response.write
\n\u5bf9 \u7eafasp\u4ee3\u7801\u7684\u6570\u7ec4\u6210\u5458\u6267\u884c execute
\n\u8fd9\u6837\u5bf9\u6bcf\u6bb5 asp code\u6267\u884c on error resume next \u53d6 err.description
\n\u5c31\u5927\u81f4\u4e86\u89e3asp\u51fa\u9519\u4fe1\u606f\u4e86
\n—————————————————————————————–
\n <\/p>\n","protected":false},"excerpt":{"rendered":" \u5199\u8fd9\u4e2a\u5c0f\u4e1c\u897f\u7684\u51fa\u53d1\u70b9,\u7531\u4e8e\u7ecf\u5e38\u7684\u9700\u8981\u5728\u7ebf\u5229\u7528asp\u811a\u672c\u7684ado\u5bf9\u6570\u636e\u5e93\u6267\u884c\u5efa\u8868,\u4fee\u6539\u5b57\u6bb5 \u6bcf\u6b21\u90fd\u8981ftp\u4fee\u6539\u5347\u7ea7\u6587\u4ef6\u4f20\u4e0a\u53bb\u6216\u5728\u7ebf\u4fee\u6539\u597d\u4e86\u8fd0\u884c!\u5f88\u662f\u9ebb\u70e6 \u4e8e\u662f\u5199\u4e86\u8fd9\u4e2a\u5c0f\u4e1c\u897f!\u5f88\u65b9\u4fbf~~ \u811a\u672c\u7279\u70b9: 1.\u53ef\u4ee5\u8fd0\u884c\u9664\u4e86 ssi(\u5982#include…<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"topic":[],"class_list":["post-204","post","type-post","status-publish","format-standard","hentry","category-technology"],"_links":{"self":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/204","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/comments?post=204"}],"version-history":[{"count":1,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/204\/revisions"}],"predecessor-version":[{"id":66059,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/204\/revisions\/66059"}],"wp:attachment":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/media?parent=204"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/categories?post=204"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/tags?post=204"},{"taxonomy":"topic","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/topic?post=204"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}} |
![\"\"](\"http:\/\/ajax.cnrui.cn\/article\/UploadPic\/2006-11\/200611161587892.gif\")
<\/p>\n