admin_database.asp

个人网站比较简短

        Conn.Execute ("delete from PE_Author")
        strClear = strClear & "作者数据  "
        z = z + 1
    End If
    If Request("PE_CopyFrom") = "yes" Then
        Conn.Execute ("delete from PE_CopyFrom")
        strClear = strClear & "来源数据  "
        z = z + 1
    End If
    If Request("PE_NewKeys") = "yes" Then
        Conn.Execute ("delete from PE_NewKeys")
        strClear = strClear & "关键字  "
        z = z + 1
    End If
    If Request("PE_KeyLink") = "yes" Then
        Conn.Execute ("delete from PE_KeyLink")
        strClear = strClear & "站内链接  "
        z = z + 1
    End If
    If Request("PE_User") = "yes" Then
        Conn.Execute ("delete from PE_User")
        strClear = strClear & "注册会员  "
        z = z + 1
    End If
    If Request("PE_UserGroup") = "yes" Then
        Conn.Execute ("delete from PE_UserGroup where GroupType>2")
        strClear = strClear & "自定义会员组  "
        z = z + 1
    End If
    If Request("PE_ConsumeLog") = "yes" Then
        Conn.Execute ("delete from PE_ConsumeLog")
        Conn.Execute ("delete from PE_RechargeLog")
        strClear = strClear & "消费明细  "
        z = z + 1
    End If
    If Request("PE_Favorite") = "yes" Then
        Conn.Execute ("delete from PE_Favorite")
        strClear = strClear & "收藏记录  "
        z = z + 1
    End If
    If Request("PE_Card") = "yes" Then
        Conn.Execute ("delete from PE_Card")
        strClear = strClear & "充值卡  "
        z = z + 1
    End If
    If Request("PE_Field") = "yes" Then
        Conn.Execute ("delete from PE_Field")
        strClear = strClear & "自定义字段  "
        z = z + 1
    End If
    If Request("PE_Label") = "yes" Then
        Conn.Execute ("delete from PE_Label")
        strClear = strClear & "自定义标签  "
        z = z + 1
    End If
    If Request("PE_Item") = "yes" Then
        Conn.Execute ("delete from PE_Item")
        Conn.Execute ("delete from PE_Filters")
        Conn.Execute ("delete from PE_HistrolyNews")
        Conn.Execute ("delete from PE_AreaCollection")
        strClear = strClear & "采集数据  "
        z = z + 1
    End If
    If Request("PE_Equipment") = "yes" Then
        Conn.Execute ("delete from PE_Classroom")
        Conn.Execute ("delete from PE_Equipment")
        Conn.Execute ("delete from PE_UsedDetail")
        strClear = strClear & "室场设备  "
        z = z + 1
    End If
    If Request("PE_Message") = "yes" Then
        Conn.Execute ("delete from PE_Message")
        Conn.Execute ("update PE_User set UnreadMsg=0")
        strClear = strClear & "所有短消息  "
        z = z + 1
    End If

    If Request("PE_Supply") = "yes" Then
        Conn.Execute ("delete from PE_Supply")
        strClear = strClear & "供求信息  "
        z = z + 1
    End If
    strClear = strClear & "<br><br><b>房产数据：</b>"
    '----------------------------------
    If Request("H_PE_HouseConfig") = "yes" Then
        Conn.Execute ("delete from PE_HouseConfig")
        strClear = strClear & "房产配置&nbsp;&nbsp;"
        z = z + 1
    End If

    If Request("H_PE_HouseCZ") = "yes" Then
        Conn.Execute ("delete from PE_HouseCZ")
        strClear = strClear & "所有出租信息&nbsp;&nbsp;"
        z = z + 1
    End If

    If Request("H_PE_HouseCS") = "yes" Then
        Conn.Execute ("delete from PE_HouseCS")
        strClear = strClear & "所有出售信息&nbsp;&nbsp;"
        z = z + 1
    End If

    If Request("H_PE_HouseQG") = "yes" Then
        Conn.Execute ("delete from PE_HouseQG")
        strClear = strClear & "所有求购信息&nbsp;&nbsp;"
        z = z + 1
    End If

    If Request("H_PE_HouseQZ") = "yes" Then
        Conn.Execute ("delete from PE_HouseQZ")
        strClear = strClear & "所有求租信息&nbsp;&nbsp;"
        z = z + 1
    End If

    If Request("H_PE_HouseHZ") = "yes" Then
        Conn.Execute ("delete from PE_HouseHZ")
        strClear = strClear & "所有合租信息&nbsp;&nbsp;"
        z = z + 1
    End If
    strClear = strClear & "<br><br><b>招聘数据：</b>"
    '----------------------------------
    If Request("J_PE_JobCategory") = "yes" Then
        Conn.Execute ("delete from PE_JobCategory")
        strClear = strClear & "工作类别&nbsp;&nbsp;"
        z = z + 1
    End If

    If Request("J_PE_Position") = "yes" Then
        Conn.Execute ("delete from PE_Position")
        strClear = strClear & "所有职位信息&nbsp;&nbsp;"
        z = z + 1
    End If

    If Request("J_PE_PositionSupplyInfo") = "yes" Then
        Conn.Execute ("delete from PE_PositionSupplyInfo")
        strClear = strClear & "所有申请职位数据&nbsp;&nbsp;"
        z = z + 1
    End If

    If Request("J_PE_Resume") = "yes" Then
        Conn.Execute ("delete from PE_Resume")
        strClear = strClear & "所有个人简历&nbsp;&nbsp;"
        z = z + 1
    End If

    If Request("J_PE_SubCompany") = "yes" Then
        Conn.Execute ("delete from PE_SubCompany")
        strClear = strClear & "所有分公司信息&nbsp;&nbsp;"
        z = z + 1
    End If

    If Request("J_PE_WorkPlace") = "yes" Then
        Conn.Execute ("delete from PE_WorkPlace")
        strClear = strClear & "所有工作地点&nbsp;&nbsp;"
        z = z + 1
    End If


    If z > 0 Then
        Response.Write "系统初始化成功！共计 <font color='red'>" & CStr(z) & "</font> 项内容被清空。<br><br>"
        Response.Write strClear
        Call WriteEntry(1, AdminName, "系统初始化")
        Call ClearSiteCache(0)
    Else
        Response.Write "您没有选择任何数据库内容，请重新选择后再进行操作。"
    End If
End Sub

Function ShowSpace(FolderPath)
    Dim ft, fd, fs, TotalSize, SpaceSize, FolderBarWidth, arrPath, strSize, i
    Set ft = fso.GetFolder(Server.MapPath(InstallDir))
    TotalSize = ft.size
    If TotalSize = 0 Then TotalSize = 1

    SpaceSize = 0
    arrPath = Split(FolderPath, "|")
    For i = 0 To UBound(arrPath)
        If arrPath(i) = "SiteRoot" Then
            Set fd = fso.GetFolder(Server.MapPath(InstallDir))
            For Each fs In fd.Files
                SpaceSize = SpaceSize + fs.size
            Next
        Else
            If fso.FolderExists(Server.MapPath(InstallDir & arrPath(i))) Then
                Set fd = fso.GetFolder(Server.MapPath(InstallDir & arrPath(i)))
                SpaceSize = SpaceSize + fd.size
            End If
        End If
    Next
    FolderBarWidth = PE_CLng((SpaceSize / TotalSize) * Barwidth)

    strSize = SpaceSize & "&nbsp;Byte"
    If SpaceSize > 1024 Then
       SpaceSize = (SpaceSize / 1024)
       strSize = FormatNumber(SpaceSize, 2, vbTrue, vbFalse, vbTrue) & "&nbsp;KB"
    End If
    If SpaceSize > 1024 Then
       SpaceSize = (SpaceSize / 1024)
       strSize = FormatNumber(SpaceSize, 2, vbTrue, vbFalse, vbTrue) & "&nbsp;MB"
    End If
    If SpaceSize > 1024 Then
       SpaceSize = (SpaceSize / 1024)
       strSize = FormatNumber(SpaceSize, 2, vbTrue, vbFalse, vbTrue) & "&nbsp;GB"
    End If
    strSize = "<font face=verdana>" & strSize & "</font>"
    ShowSpace = "&nbsp;<img src='../images/bar.gif' width='" & FolderBarWidth & "' height='10' title='" & FolderPath & "'>&nbsp;" & strSize
End Function

Function GetOtherFolder()
    Dim ft, fd, strOther, strSystem, arrPath
    strSystem = "AD|Admin|AuthorPic|BlogPic|CopyFromPic|Count|Database|Editor|FriendSite|Images|Inc|JS|Language|Reg|Sdms|SiteMap|Skin|Temp|User|xml"
    Dim rsChannel, sqlChannel
    sqlChannel = "select * from PE_Channel where ChannelType<=1 order by OrderID"
    Set rsChannel = Conn.Execute(sqlChannel)
    Do While Not rsChannel.EOF
        strSystem = strSystem & "|" & rsChannel("ChannelDir")
        rsChannel.MoveNext
    Loop
    rsChannel.Close
    Set rsChannel = Nothing

    Set ft = fso.GetFolder(Server.MapPath(InstallDir))
    For Each fd In ft.SubFolders
        If InStr("|" & strSystem & "|", "|" & fd.name & "|") = 0 Then
            If strOther = "" Then
                strOther = fd.name
            Else
                strOther = strOther & "|" & fd.name
            End If
        End If
    Next
    GetOtherFolder = strOther
End Function
%>