<%@language=vbscript codepage=936 %> <% option explicit response.buffer=true Const PurviewLevel=1 Const CheckChannelID=0 Const PurviewLevel_Others="Database" 'response.write "此功能被WEBBOY暂时禁止了！" 'response.end %> <% dim Action,FoundErr,ErrMsg Action=trim(request("Action")) dim dbpath dim ObjInstalled dbpath=server.mappath(db) ObjInstalled=IsObjInstalled("Scripting.FileSystemObject") %> 数据库备份
数 据 库 管 理
管理导航： 备份数据库 | 恢复数据库 | 压缩数据库 | 系统初始化 | 系统空间占用情况
<% if Action="Backup" or Action="BackupData" then call CloseConn() call ShowBackup() elseif Action="Compact" or Action="CompactData" then call CloseConn() call ShowCompact() elseif Action="Restore" or Action="RestoreData" then call CloseConn() call ShowRestore() elseif Action="Init" or Action="Clear" then call ShowInit() call CloseConn() elseif Action="SpaceSize" then call SpaceSize() call CloseConn() else FoundErr=True ErrMsg=ErrMsg & "
  • 错误参数！
    • " call CloseConn() end if if FoundErr=True then call WriteErrMsg() end if call CloseConn_User() sub ShowBackup() %>
    备 份 数 据 库
    <% if request("action")="BackupData" then call backupdata() else %>
    备份目录： 相对路径目录，如目录不存在，将自动创建
    备份名称： 不用输入文件名后缀（默认为“.asa”）。如有同名文件，将覆盖
    >
    <% If ObjInstalled=false Then Response.Write "你的服务器不支持 FSO(Scripting.FileSystemObject)! 不能使用本功能" end if end if %>
    <% end sub sub ShowCompact() %>
    数据库在线压缩
    <% if request("action")="CompactData" then call CompactData() else %>


    压缩前，建议先备份数据库，以免发生意外错误。


    >

    <% If ObjInstalled=false Then Response.Write "你的服务器不支持 FSO(Scripting.FileSystemObject)! 不能使用本功能" end if end if %>
    <% end sub sub ShowRestore() %>
    数据库恢复
    <% if request("action")="RestoreData" then call RestoreData() else %>
    备份数据库路径（相对）：
    >
    <% If ObjInstalled=false Then Response.Write "你的服务器不支持 FSO(Scripting.FileSystemObject)! 不能使用本功能" end if end if %>
    <% end sub sub ShowInit() %>
    系 统 初 始 化
    <% if Action="Clear" then call ClearData() else %>
    请慎用此功能，因为一旦清除将无法恢复！
    请选择你要清空的数据库：
    文章频道
    文章栏目 所有文章 文章专题 文章评论
    下载频道
    软件栏目 所有软件 软件评论  
    图片频道
    图片栏目 所有图片 图片评论  
    留言板
    所有留言      
    其他
    公　　告 广　　告 网站调查 友情链接
    注册用户      
    <% end if %>
    <% end sub sub SpaceSize() on error resume next %>
    系统空间占用情况

    系统数据占用空间：  height=10>  <%showSpaceinfo("database")%>

    备份数据占用空间：  height=10>  <%showSpaceinfo("databackup")%>

    程序文件占用空间：  height=10>  <%showSpecialSpaceinfo("Program")%>

    配色模板占用空间：  height=10>  <%showSpaceinfo("skin")%>

    系统图片占用空间：  height=10>  <%showSpaceinfo("images")%>

    上传文件占用空间：  height=10>  <%showSpaceinfo("UploadFiles")%>

    系统占用空间总计： <%showspecialspaceinfo("All")%>
    <% end sub %> <% sub BackupData() dim bkfolder,bkdbname,fso bkfolder=trim(request("bkfolder")) bkdbname=trim(request("bkdbname")) if bkfolder="" then FoundErr=True ErrMsg=ErrMsg & "
  • 请指定备份目录！
    • " end if if bkdbname="" then FoundErr=True ErrMsg=ErrMsg & "
  • 请指定备份文件名
    • " end if if FoundErr=True then exit sub bkfolder=server.MapPath(bkfolder) Set Fso=server.createobject("scripting.filesystemobject") if fso.FileExists(dbpath) then If fso.FolderExists(bkfolder)=false Then fso.CreateFolder(bkfolder) end if fso.copyfile dbpath,bkfolder & "\" & bkdbname & ".asa" response.write "
    备份数据库成功，备份的数据库为 " & bkfolder & "\" & bkdbname & ".asa
    " Else response.write "
    找不到源数据库文件，请检查inc/conn.asp中的配置。
    " End if end sub sub CompactData() Dim fso, Engine, strDBPath strDBPath = left(dbPath,instrrev(DBPath,"\")) Set fso = Server.CreateObject("Scripting.FileSystemObject") If fso.FileExists(dbPath) Then Set Engine = CreateObject("JRO.JetEngine") Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath," Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb" fso.CopyFile strDBPath & "temp.mdb",dbpath fso.DeleteFile(strDBPath & "temp.mdb") Set fso = nothing Set Engine = nothing response.write "数据库压缩成功!" Else response.write "数据库没有找到!" End If end sub sub RestoreData() dim backpath,fso backpath=request.form("backpath") if backpath="" then FoundErr=True ErrMsg=ErrMsg & "
  • 请指定原备份的数据库文件名！
  • " exit sub end if backpath=server.mappath(backpath) Set Fso=server.createobject("scripting.filesystemobject") if fso.fileexists(backpath) then fso.copyfile Backpath,Dbpath response.write "成功恢复数据！" else response.write "找不到指定的备份文件！" end if end sub sub ClearData() dim z z=0 if request("ArticleClass")="yes" then conn.execute("delete From ArticleClass") response.write "成功清除了所有文章栏目！
    " z=z+1 end if if request("Article")="yes" then conn.execute("delete from Article") response.write "成功清除了所有文章！
    " z=z+1 end if if request("Special")="yes" then conn.execute("delete from Special") response.write "成功清除了所有文章专题！
    " z=z+1 end if if request("ArticleComment")="yes" then conn.execute("delete from ArticleComment") response.write "成功清除了所有文章评论！
    " z=z+1 end if if request("SoftClass")="yes" then conn.execute("delete From SoftClass") response.write "成功清除了所有软件栏目！
    " z=z+1 end if if request("Soft")="yes" then conn.execute("delete from Soft") response.write "成功清除了所有软件！
    " z=z+1 end if if request("SoftComment")="yes" then conn.execute("delete from SoftComment") response.write "成功清除了所有软件评论！
    " z=z+1 end if if request("PhotoClass")="yes" then conn.execute("delete From PhotoClass") response.write "成功清除了所有图片栏目！
    " z=z+1 end if if request("Photo")="yes" then conn.execute("delete from Photo") response.write "成功清除了所有图片！
    " z=z+1 end if if request("PhotoComment")="yes" then conn.execute("delete from PhotoComment") response.write "成功清除了所有图片评论！
    " z=z+1 end if if request("Guest")="yes" then conn.execute("delete from Guest") response.write "成功清除了所有留言！
    " z=z+1 end if if request("Announce")="yes" then conn.execute("delete from Announce") z=z+1 end if if request("Advertisement")="yes" then conn.execute("delete from Advertisement") z=z+1 end if if request("FriendSite")="yes" then conn.execute("delete from FriendSite") z=z+1 end if if request("Vote")="yes" then conn.execute("delete from Vote") z=z+1 end if if request("User")="yes" then Conn_User.execute("delete from " & db_User_Table & "") z=z+1 end if if z>0 then response.write cstr(z) & "个数据库被清空，你可以开始添加新内容。" else response.write "你没有选择任何数据库，0个数据库被清空。" end if end sub Sub ShowSpaceInfo(drvpath) dim fso,d,size,showsize set fso=server.createobject("scripting.filesystemobject") drvpath=server.mappath(drvpath) set d=fso.getfolder(drvpath) size=d.size showsize=size & " Byte" if size>1024 then size=(size\1024) showsize=size & " KB" end if if size>1024 then size=(size/1024) showsize=formatnumber(size,2) & " MB" end if if size>1024 then size=(size/1024) showsize=formatnumber(size,2) & " GB" end if response.write "" & showsize & "" End Sub Sub Showspecialspaceinfo(method) dim fso,d,fc,f1,size,showsize,drvpath set fso=server.createobject("scripting.filesystemobject") drvpath=server.mappath("pic") drvpath=left(drvpath,(instrrev(drvpath,"\")-1)) set d=fso.getfolder(drvpath) if method="All" then size=d.size elseif method="Program" then set fc=d.Files for each f1 in fc size=size+f1.size next end if showsize=size & " Byte" if size>1024 then size=(size\1024) showsize=size & " KB" end if if size>1024 then size=(size/1024) showsize=formatnumber(size,2) & " MB" end if if size>1024 then size=(size/1024) showsize=formatnumber(size,2) & " GB" end if response.write "" & showsize & "" end sub Function Drawbar(drvpath) dim fso,drvpathroot,d,size,totalsize,barsize set fso=server.createobject("scripting.filesystemobject") drvpathroot=server.mappath("pic") drvpathroot=left(drvpathroot,(instrrev(drvpathroot,"\")-1)) set d=fso.getfolder(drvpathroot) totalsize=d.size drvpath=server.mappath(drvpath) set d=fso.getfolder(drvpath) size=d.size barsize=cint((size/totalsize)*400) Drawbar=barsize End Function Function Drawspecialbar() dim fso,drvpathroot,d,fc,f1,size,totalsize,barsize set fso=server.createobject("scripting.filesystemobject") drvpathroot=server.mappath("pic") drvpathroot=left(drvpathroot,(instrrev(drvpathroot,"\")-1)) set d=fso.getfolder(drvpathroot) totalsize=d.size set fc=d.files for each f1 in fc size=size+f1.size next barsize=cint((size/totalsize)*400) Drawspecialbar=barsize End Function %>