dopact.asp

程序功能: /// 多人即时聊天 新信息声音提示 用户自主选择表情和颜色 管理员删除信息/踢出用户 高强度管理密码

<%@ Language=VBScript %>
<%
if session("admin")="" then
	Response.Write ""
else
    path="../data/data.asp"
	Response.Write PA_CompactDB(path, False)
end if

Function PA_CompactDB(m_strDBFile, m_bIsAccess97)
    Dim objFSO, ofileb,ofilea,objEngine, strDBFileB,JET_3X,sizestring
    Dim bHasError
    On Error Resume Next
    bHasError = False
    strDBFileA = Server.MapPath(m_strDBFile)
    strDBFileB = left(strDBFileA,InStrRev(strDBFileA,"\"))
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    If objFSO.FileExists(strDBFileA) Then
        Set objEngine = CreateObject("JRO.JetEngine")

        If Err.Number<>0 Then
            PA_CompactDB = "Error:" & Err.Description
            Err.Clear
        Else 
            set ofileb=objFSO.getfile(strDBFileA)
            sizestring="压缩前文件大小为:" & (ofileb.size/1024) & "KB;\n"
            If m_bIsAccess97 = True Then
                objEngine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBFileA, _
                "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBFileB & "_temp.mdb;" _
                & "Jet OLEDB:objEngine Type=" & JET_3X
            Else
                objEngine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBFileA, _
                "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBFileB & "_temp.mdb"
            End If

            objFSO.CopyFile strDBFileB & "_temp.mdb",strDBFileA
            objFSO.DeleteFile(strDBFileB & "_temp.mdb")
            Set objEngine = nothing
            set ofilea=objFSO.getfile(strDBFileA)
            sizestring=sizestring&"压缩后文件大小为:"&(ofilea.size/1024)&"KB!"
            PA_CompactDB ="数据库已经成功压缩!\n"&sizestring
        End If
    Else
        PA_CompactDB = "数据库路径错误!"
    End If
    Set objFSO = nothing
    Set ofileb = nothing
    Set ofilea = nothing
    on Error Goto 0
End Function
%>