<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'****************************************************************
'** 版权所有：烈火工作室 演示网站http://www.strongfire.cn **
'** QQ:839225572 邮箱：strongfire2008@163.com **
'** 非正版用户不得擅自非法修改用于商业用途！查出必究。 **
'****************************************************************
%>
<%
'=====================压缩参数=========================
Function CompactDB(dbPath, boolIs97)
Dim fso, Engine, strDBPath,JET_3X
strDBPath = left(dbPath,instrrev(DBPath,"\"))
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(dbPath) Then
Set Engine = CreateObject("JRO.JetEngine")
If boolIs97 = "True" Then
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb;" _
& "Jet OLEDB:Engine Type=" & JET_3X
Else
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb"
End If
fso.CopyFile strDBPath & "temp.mdb",dbpath
fso.DeleteFile(strDBPath & "temp.mdb")
Set Engine = nothing
CompactDB = "数据库, " & dbpath & ", 已经压缩成功!" & vbCrLf
Else
CompactDB = "数据库名称或路径不正确. 请重试!" & vbCrLf
End If
Set fso = nothing
End Function
'=====================备份数据库=========================
Function CopyDB(dbPath, bkpath)
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(dbPath) Then
fso.CopyFile dbpath,bkpath
CopyDB = "数据库, " & dbpath & ", 已经备份成功!" & vbCrLf
Else
CopyDB = "数据库名称或路径不正确. 请重试!" & vbCrLf
End If
Set fso = nothing
End Function
'=====================恢复数据库=========================
Function RestoreDB(dbPath, bkpath)
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(bkpath) Then
fso.CopyFile bkpath,dbpath
RestoreDB = "数据库, " & dbpath & ", 已经恢复成功!" & vbCrLf
Else
RestoreDB = "数据库名称或路径不正确. 请重试!" & vbCrLf
End If
Set fso = nothing
End Function
%>
修改信息列表
<%
dbpath = server.mappath("..\data\!%article%!.asp")
bkpath = server.mappath("..\data\bk!%article%!.asp")
act=request("act")
if act="compress" then
datamsg=(CompactDB(dbpath,0))
end if
if act="copy" then
datamsg=CopyDB(dbPath, bkpath)
end if
if act="restore" then
datamsg=RestoreDB(dbPath, bkpath)
end if
%>