system_manage_ok.asp

K风搜索 2.1商业版 完整功能版 后台http://XXXXXX/admin/ 管理帐号：admin 管理密码：admin 安全密码： ks21 网站设置http://XXXXXX/

<!--#include file="../setup.asp"-->
<!--#include file="login_admin.asp"-->
<%
'================================================================================
'Product:K-Search Version 2.1
'本“软件产品”受《中华人民共和国著作权法》和《中华人民共和国计算机软件保护条例》 
'和国际条约的保护。如未经授权而擅自复制或传播本程序（或其中任何部分），将受到严厉
'的刑事及民事制裁，并将在法律许可的范围内受到最大可能的起诉！
'Homepage：http://www.lucoo.com/
'--------------------------------------------------------------------------------
'Copyright(c) 2005 lucoo.com All Rights Reserved 绿色互联 版权所有
'================================================================================
if session("rank")<>1 then
response.write "<Script>window.alert('您的管理员级别不能操作！');history.go(-1);</Script>"
response.end
end if
select case Request.QueryString("action")
case "condense"
dim path
path=replace(db,"/","\")
path="..\path"
Const JET_3X = 4
Function CompactDB(path, boolIs97)
Dim fso, Engine, strDBPath
strDBPath=left(path,instrrev(path,"\"))
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(path) Then
Set Engine = CreateObject("JRO.JetEngine")
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &path, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb"
fso.CopyFile strDBPath & "temp.mdb",path
fso.DeleteFile(strDBPath & "temp.mdb")
Set fso = nothing
Set Engine = nothing
response.write "<Script>window.alert('数据库压缩成功！');history.go(-1);</Script>"
else
response.write "<Script>window.alert('找不到数据库！请检查数据库路径是否正确！');history.go(-1);</Script>"
end If
End Function
Dim dbpath,boolIs97
path=request.form("path")
boolIs97 = request("boolIs97")
If path <> "" Then
path = server.mappath(path)
response.write(CompactDB(path,boolIs97))
end If


case "save"
path=replace(db,"/","\")
path="..\path"
set MyFileObject=Server.CreateOBject("Scripting.FileSystemObject")
MyFileObject.CopyFile ""&Server.MapPath(path)&"",""&Server.MapPath("..\database\#db.asp")&""
response.write "<Script>window.alert('数据库备份成功！');history.go(-1);</Script>"


case "restore"
path=replace(db,"/","\")
path="..\path"
set MyFileObject=Server.CreateOBject("Scripting.FileSystemObject")
MyFileObject.CopyFile ""&Server.MapPath("..\database\#db.asp")&"",""&Server.MapPath(path)&""
response.write "<Script>window.alert('数据库还原成功！');history.go(-1);</Script>"
end select
%>