📄 db_backup.asp

📁 SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../../Conn.asp"-->
<!--#include file="../../SysCls/KS_CommonCls.asp"-->
<!--#include file="../Inc/Session.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 SP2 Free
'Copyright (C) 2006-2008 Kesion.Com  All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394,54004407 
'程序版权：科汛网络
'程序开发：科汛网络开发组（总策划：林文仲）
'E-Mail  :kesioncms@hotmail.com webmaster@kesion.com
'官方网站：http://www.kesion.com  
'演示站点：http://test.kesion.com 
'郑重声明:
'    ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
'    ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
'    ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
Dim KSCls
Set KSCls = New DB_BackUp
KSCls.Execute()
Set KSCls = Nothing

Class DB_BackUp
        Private KSCMS
		Private Sub Class_Initialize()
		  Set KSCMS=New CommonCls
		End Sub
        Private Sub Class_Terminate()
		 Call KSCMS.CloseConn()
		 Set KSCMS=Nothing
		End Sub
		Sub Execute()
		   If Not KSCMS.ReturnPowerResult(0, "KMCT20001") Then                '检查管理员组操作(增和改)的权限检查
			  Response.Write("<Script>parent.frames['BottomFrame'].location.href='javascript:history.back();';</script>")
			  Response.End
		  End If
		Response.Write "<html>"
		Response.Write "<head>"
		Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
		Response.Write "<title>备份数据库</title>"
		Response.Write "<link href=""../Inc/Admin_Style.CSS"" rel=""stylesheet"" type=""text/css"">"
		Response.Write ("<body oncontextmenu=""return false;"" scroll=no>")
		Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" class=""sortbutton"">"
		Response.Write "  <tr>"
		Response.Write "    <td height=""23"" align=""center""><strong>备份数据库</strong>"
		Response.Write "</td>"
		Response.Write "</tr>"
		Response.Write "</table>"
		Response.Write "<table width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
		Response.Write "  <tr> "
		Response.Write "    <td align=""center"" valign=""top"">"
		Response.Write "       <table width=""560"" border=""0"" cellpadding=""2"" cellspacing=""1"">"
		Response.Write "        <tr> "
		Response.Write "          <td height=""22""> "
		
		 Dim CurrPath,BackPath,tempArr,bkdbname    
		if request("action")="Backup" then
		  CurrPath=request.form("Dbpath")
		  TempArr=replace(CurrPath,"/","\")
		  TempArr=split(TempArr,"\")
		  BackPath=Replace(CurrPath,TempArr(Ubound(TempArr)),"")
		  bkdbname=request.form("bkdbname")
		  if KSCMS.backupdata(CurrPath,BackPath & bkdbname)=true then
		   Response.Write "<div align=center><font color=green>系统主数据库备份成功!</font></div><div align=center>备份的主数据库为:" & backpath & Bkdbname & "</div>"
		  Else
		  Response.Write ("<font color=red>操作失败!</font>")
		 End IF
		elseif request("action")="Backup1" then
		  CurrPath=request.form("Dbpath")
		  TempArr=replace(CurrPath,"/","\")
		  TempArr=split(TempArr,"\")
		  BackPath=Replace(CurrPath,TempArr(Ubound(TempArr)),"")
		  bkdbname=request.form("bkdbname")
		  if KSCMS.backupdata(CurrPath,BackPath & bkdbname)=true then
		   Response.Write "<div align=center><font color=green>系统采集数据库备份成功!</font></div><div align=center>备份的采集数据库为:" & backpath & Bkdbname & "</div>"
		  Else
		  Response.Write ("<font color=red>操作失败!</font>")
		 End IF
		end if
		
		Response.Write "</td>"
		Response.Write "        </tr>"
		Response.Write "        <tr> "
		Response.Write "		     <td> "
		
		if Application("DataBaseType")=0 then
				Response.Write "              <fieldset>"
				Response.Write "          <form method=""post"" action=""?action=Backup"">"
				Response.Write "	<legend>系统主数据库</legend>"
				Response.Write "	<table width=""91%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""2"">"
				Response.Write "                <tr> "
				Response.Write "                  <td height=""22"" align=""center""> 当前数据库路径</td>"
				Response.Write "                </tr>"
				Response.Write "                <tr> "
				Response.Write "                  <td height=""22"" align=""center""><input type=text size=50 name=DBpath value=""" &server.mappath(DBPath) & """ readonly></td>"
				Response.Write "                </tr>"
				Response.Write "                <tr> "
				Response.Write "                  <td height=""22""></td>"
				Response.Write "                </tr>"
				Response.Write "                <tr> "
				Response.Write "                  <td height=""22"" align=""center"">备份数据库名称[如果备份目录存在该文件将覆盖，否则将自动创建]</td>"
				Response.Write "                </tr>"
				Response.Write "                <tr> "
				Response.Write "                  <td height=""22"" align=""center""><input type=text size=50 name=bkDBname value=""Data(" & date() & ").bak""></td>"
				Response.Write "                </tr>"
				Response.Write "              </table>"
				Response.Write "			  </fieldset>"
				Response.Write "			  <table width=""100%"" border=""0"">"
				Response.Write "			   <tr>"
				Response.Write "			   <td height=""50"" align=center>"
				Response.Write "			     <input type=submit value=""确定备份"">"
				Response.Write "			   </td>"
				Response.Write "			   </tr>"
				Response.Write "			   </form></table>"
		end if
		
		Response.Write "              <fieldset>"
		
		Response.Write "          <form method=""post"" action=""?action=Backup1"">"
		Response.Write "	<legend>系统采集数据库</legend>"
		Response.Write "	<table width=""91%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""2"">"
		Response.Write "                <tr> "
		Response.Write "                  <td height=""22"" align=""center""> 当前数据库路径</td>"
		Response.Write "                </tr>"
		Response.Write "                <tr> "
		Response.Write "                  <td height=""22"" align=""center""><input type=text size=50 name=DBpath value=""" &server.mappath(CollectDBPath) & """ readonly></td>"
		Response.Write "                </tr>"
		Response.Write "                <tr> "
		Response.Write "                  <td height=""22""></td>"
		Response.Write "                </tr>"
		Response.Write "                <tr> "
		Response.Write "                  <td height=""22"" align=""center"">备份数据库名称[如果备份目录存在该文件将覆盖，否则将自动创建]</td>"
		Response.Write "                </tr>"
		Response.Write "                <tr> "
		Response.Write "                  <td height=""22"" align=""center""><input type=text size=50 name=bkDBname value=""Collect(" & date() & ").bak""></td>"
		Response.Write "                </tr>"
		Response.Write "              </table>"
		Response.Write "			  </fieldset>"
		Response.Write "			  <table width=""100%"" border=""0"">"
		Response.Write "			   <tr>"
		Response.Write "			   <td height=""50"" align=center>"
		Response.Write "			     <input type=submit value=""确定备份"">"
		Response.Write "			   </td>"
		Response.Write "			   </tr>"
		Response.Write "          </form>"
		Response.Write "			   </table>"
		
		if Application("DataBaseType")=0 then			  
		Response.Write "			  主数据库完整路径为：&nbsp;&nbsp;&nbsp;<font color=red>" & server.mappath(dbpath) & "</font><br>"
		end if
		Response.Write "              采集数据库完整路径为：<font color=red>" & server.mappath(CollectDBPath) & "</font><br></td>"
		Response.Write "        </tr>"
		Response.Write "      </table>"
		Response.Write "     </td>"
		Response.Write "  </tr>"
		Response.Write "</table>"
		Response.Write "</body>"
		Response.Write "</html>"
		End Sub
End Class
%>
💿 文件大小 9756 K
👤 上传用户 BO__1
📂 所属分类 Java编程
🏷️ 相关标签

#shtml #ASPX #html #采集
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -