<!--#include file="conn.asp"-->
<!--#include file="inc/cookies_check.asp"-->
<!--#include file="inc/asptar.asp"-->
<%
'*****************************************
'* 软件名称 乐彼网上开店软件(56770 EShop)
'* 软件开发 http://www.56770.com
'* 版权所有 http://www.56770.com
'* 文件名称 Admin_data.asp
'* 最后更新 2012-03-19 by 56770.kingdge
'*****************************************
include "lang/"& LangFilePath &"/lang_sys.inc"
include "lang/"& LangFilePath &"/lang_menu.inc"
include "lang/"& LangFilePath &"/lang_data.inc"
include "lang/"& LangFilePath &"/lang_upfile.inc"
include "lang/"& LangFilePath &"/lang_page.inc"
CurrentId = 7
CurrentUrl = "admin_data.asp"
LB_Head()
LB_Menu()
action = request("action")
%>
<div class="tabmenu mainwidth">
      <ul>
        <li <%If action = "" Then Response.Write("class=""current""") End If%>><a href="admin_data.asp"><span><%=Lang_Menu(166)%></span></a></li>
		<li <%If action = "backup" Then Response.Write("class=""current""") End If%>><a href="?action=backup"><span><%=Lang_Menu(165)%></span></a></li>
		<li <%If action = "yasuo" Then Response.Write("class=""current""") End If%>><a href="?action=yasuo"><span><%=Lang_Menu(159)%></span></a></li>
      </ul>
</div>
<%
Response.Write("<div class=""tab-mainbody"">")
Response.Write("<div class=""tab-mainbody2"">")
If OutSubmit = 1 Then CheckOutSubmit()
Select case action
       Case "backup" : If IsSqlDataBase = 1 Then sqldata() Else backup() End If
	   Case "backupdata" : backupdata()
	   Case "del" : del()
	   Case "yasuo" : If IsSqlDataBase = 1 Then sqldata() Else yasuo() End If
	   Case "cacheupdate" : cacheupdate()
	   Case "sqldata" : sqldata()
	   Case Else
	             delrefuse()
End Select
Response.Write("</div>")
Response.Write("</div>")
LB_Footer()

Sub del()
        If OnlyRead = 1 Then OnlyReadMessage()
        id = Split(Replace(Replace(request("id"),"#","")," ",""),",")
		set objfso = server.createobject("scripting.FileSystemObject")
		For i = 0 To UBound(id)
				If objfso.FileExists(server.MapPath("Databackup/"& id(i))) Then
						objfso.DeleteFile(server.MapPath("Databackup/"& id(i)))
				End If
		Next 
		set objfso = Nothing
		m_u="?action=backup&page="& request("page")
		Call Up_mes(Lang_sys(43),"·"& Lang_sys(42),0,m_u,0,0,2,1)
End Sub

Sub backup
		Dim admin_flag
		admin_flag=",12.3,"
		If Eshop_Lebi_name="" Or instr(","&Eshop_Lebi_flag&",",admin_flag)=0 Then
				adminflag()
		End If
		On Error Resume Next
        If not IsObjInstalled("Scripting.FileSystemObject")Then
                Response.Write Lang_Data(5)
                response.End
        End If
		Set fso=server.createobject("scripting.filesystemobject")
		page = CheckNum(request("page"),1)
        SaveUpFilesPath="Databackup/"
        UploadDir="Databackup/"
%>
		<table width="100%" border="0" cellspacing="0" cellpadding="0" id="backup" class="classtable">
		<form name="form" method="post" action="?">
		<tr>
		  <td height="30" align="left" class="classhead"><%
		If IsObjInstalled("Scripting.FileSystemObject") Then
				Response.Write "<input name=""submit"" type=""image"" src=""lang/"& LangFilePath &"/images/bt_app.gif"" title="" "& Lang_Data(4) &" "" align=""absmiddle"">"
		Else
				Response.Write "<font color=red><b>"& Lang_Data(5) &"</b></font>"
		End If
		%>
		  <input type="hidden" name="IS_backup" value="1"><input type="hidden" name="action" value="backup">
		  </td>
		  <td class="classhead" align="right">
		  <%=QuickMenu("admin_data.asp|"& Lang_Menu(166) &"","admin_data.asp?action=yasuo|"& Lang_Menu(159) &"")%>
		</td>
		 </tr>
		<tr>
		<td class="classtop" colspan="2" height="30"><%=Lang_Data(4)%></td>
		</tr>
		<tr class="classrow">
		<td height="30" colspan="2" class="classrow">
		<%
		If request("IS_backup") = 1 Then
		Call backupdata()
		End If%>
		</td>
		</tr>
		<tr>
		<td colspan="2" class="classfaq">
		  <div class="faq_main">
		  <p class="faq_title"><%=Lang_sys(49)%></p>
		   <%=Lang_Data(6)%>
		   <br /><%=Lang_Data(7)%>
		  </div>
		</td>
		</tr>
		</form>
		</table>
		<script>tdshow("backup");</script>
		</div>
		</div>
		<div class="mainbody-block">
		<div class="mainbody-block2">
		<table width="100%" border="0" cellspacing="0" cellpadding="0" id="list" class="classtable">
		<form action="?" method="post">
		<tr>
		<td height="30" align="left" colspan="5" class="classhead">
		<input name="submit" type="image" src="lang/<%=LangFilePath%>/images/bt_delete.gif" value=" <%=Lang_sys(15)%> " align="absmiddle">
		</td>
		<input type="hidden" name="page" value="<%= page %>">
		<input type="hidden" name="action" value="del">
		</tr>
		<%
		Const MaxPerPage=20
		TruePath=Server.MapPath(UploadDir)
		if fso.FolderExists(TruePath)then
				FileCount=0
				TotleSize=0
				Set theFolder=fso.GetFolder(TruePath)
				For Each theFile In theFolder.Files
						FileCount=FileCount+1
						TotleSize=TotleSize+theFile.Size
				next
				totalPut=FileCount
				if page<1 then
						page=1
				end if
				if(page-1)*MaxPerPage>totalput then
						if(totalPut mod MaxPerPage)=0 then
								page= totalPut \ MaxPerPage
						else
								page= totalPut \ MaxPerPage + 1
						end If
				 End If
		end if
		dim c
		FileCount=0
		TotleSize=0
		%>
		<tr>
		<td class="classtop" width="5%" height="30" title="<%=Lang_sys(4)%>" style="cursor:pointer;" onclick="location.href='javascript:selectall();';return false;"><%=Lang_sys(50)%></td>
		<td class="classtop" width="25%"><%=Lang_Upfile(3)%></td>
		<td class="classtop" width="15%"><%=Lang_Upfile(4)%></td>
		<td class="classtop" width="15%"><%=Lang_Upfile(5)%></td>
		<td class="classtop" width="40%"><%=Lang_Upfile(6)%></td>
		</tr>
		<%
		For Each theFile In theFolder.Files
		c=c+1
		if FileCount >= MaxPerPage then
		exit for
		elseif c>MaxPerPage*(page-1) Then
		%>
		<tr class="classrow">
		<td height="30" class="classrow"><input name="id" type="checkbox" value="<%=theFile.Name%>"></td>
		<td class="classrow"><a href="<%=UploadDir & theFile.Name%>" target="_blank"><%=theFile.Name%></a></td>
		<td class="classrow"><%=theFile.size%><%=Lang_Upfile(8)%></td>
		<td class="classrow"><%=theFile.type%></td>
		<td class="classrow"><%=theFile.DateLastModified%></td>
		</tr>
		<%
		FileCount=FileCount+1
		TotleSize=TotleSize+theFile.Size
		if totalput mod maxperpage=0 then
				n= totalput \ maxperpage
		else
				n= totalput \ maxperpage+1
		end If
		End If
		Next
		%>
		</form>
		<form name="form" method="Post" action="?action=backup">
		<tr>
		<td colspan="5" height="30" class="classfooter" align="right">
		<%
		pagenmin=page-3'计算页码开始值
		If page = 1 Then
		   pagenmax=page+5
		Else
		   pagenmax=page+3
		End If
		If (pagenmin<1) then
			pagenmin=1
		end If
		pagec = FormatNumber2(totalput/maxperpage)
		If pagec = ".00" Then pagec = 1
		If InStr(pagec,".") > 0 Then
				If CLng(Split(pagec,".")(1))>0 Then
				pagec = Split(pagec,".")(0) + 1
				Else
				pagec = CLng(Split(pagec,".")(0))
				End If
		End If
		If CLng(page) > CLng(pagec) Then page = pagec
		%>
		<form action='?action=backup' name='pagefoot' method='post'>
		<div class="pagination">
		<%
		If (page>1) Then
				Response.Write"<a href='?action=backup&page=1' class=""page-prev"">"& Lang_Page(1) &"</a>"
		End If
		if n>1 and n=page then
				Response.Write"<a href='?action=backup&page="& page-1 &"' class=""page-prev"">"& Lang_Page(2) &"</a>"
		End If
		if(pagenmax>pagec) then
				pagenmax=pagec
		end if
		for page_i = pagenmin to pagenmax
				if(CLng(page_i)=CLng(page)) then
						Response.Write"<span class=""page-cur"">"& page_i &"</span>"
				else
						Response.Write"<a href=?action=backup&page="& page_i &">"& page_i &"</a>"
				end if
		next
		if page=1 and n<>page and n <> 0 then
				Response.Write"<a href='?action=backup&page="& page+1 &"' class=""page-next"">"& Lang_Page(3) &"</a>"
				Response.Write"<a href='?action=backup&page="& pagec &"' class=""page-next"">"& Lang_Page(4) &"</a>"
		end if
		Response.Write"<span class=""page-skip"">"& Lang_Page(6) &" "& page &"/"& pagec &" <input type='text' name='Page' value='"& page+1 &"' class='text'><input type='submit' name='go' value='"& Lang_Page(5) &"' class='button'></span>"
		%>
		</div>
		</form>
		</td>
		</tr>
		</table>
		<script>tdshow("list");</script>
<%
End Sub

sub backupdata()
		admin_flag=",12.3,"
		If Eshop_Lebi_name="" Or instr(","&Eshop_Lebi_flag&",",admin_flag)=0 Then
				adminflag()
		End If
        If OnlyRead = 1 Then OnlyReadMessage()
		Dbpath = Eshop_url&db
		If dbpath="" Then dbpath="default.asp"
		Dbpath = server.mappath(Dbpath)
		bkfolder = "Databackup"
		datename=now()
		datename=replace(datename, "-", "")
		datename=replace(datename, " ", "")
		datename=replace(datename, ":", "")
		bkdbname = datename
		Set Fso=server.createobject("scripting.filesystemobject")
		if fso.fileexists(dbpath)then
				If CheckDir(bkfolder)= True Then
						If CheckDir(bkfolder &"\temp\")= False Then
								MakeNewsDir bkfolder &"\temp"
						End If 
						fso.copyfile dbpath, bkfolder &"\temp\"& bkdbname&".bak"
				else
						MakeNewsDir bkfolder
						If CheckDir(bkfolder &"\temp\")= False Then
								MakeNewsDir bkfolder &"\temp"
						End If 
						fso.copyfile dbpath, bkfolder &"\temp\"& bkdbname&".bak"
				end If
				Set objTar = New Tarball
				objTar.TarFilename= "../"& bkdbname &".rar"
				objTar.Path="Databackup/temp"
				objtar.pack(1)
				set objtar=Nothing
				Fso.DeleteFile(bkfolder &"\temp\"& bkdbname&".bak")
				response.write Lang_Data(8) &" "& Now()
				ManageLog Lang_Data(4)
		Else
				response.write Lang_Data(9)
		End If
end Sub

'检查某一目录是否存在
Function CheckDir(FolderPath)
		folderpath=Server.MapPath(".")&"\"&folderpath
		Set fso1 = CreateObject("Scripting.FileSystemObject")
		If fso1.FolderExists(FolderPath)then
				'存在
				CheckDir = True
		Else
				'不存在
				CheckDir = False
		End if
		Set fso1 = nothing
End Function
'根据指定名称生成目录
Function MakeNewsDir(foldername)
		Set fso1 = CreateObject("Scripting.FileSystemObject")
        If fso1.FolderExists(foldername) then
                Exit Function 
        End if
		Set f = fso1.CreateFolder(foldername)
		MakeNewsDir = True
		Set fso1 = nothing
End Function

Sub yasuo
		Dim admin_flag
		admin_flag=",12.4,"
		If Eshop_Lebi_name="" Or instr(","&Eshop_Lebi_flag&",",admin_flag)=0 Then
				adminflag()
		End If
%>
		<table width="100%" border="0" cellspacing="0" cellpadding="0" id="yasuo" class="classtable">
		<form name="form" method="post" action="?">
		<tr>
		  <td height="30" align="left" class="classhead"><%
		If IsObjInstalled("Scripting.FileSystemObject") Then
				Response.Write "<input name=""submit"" type=""image"" src=""lang/"& LangFilePath &"/images/bt_app.gif"" title="" "& Lang_Data(10) &" "" align=""absmiddle"">"
		Else
				Response.Write "<font color=red><b>"& Lang_Data(5) &"</b></font>"
		End If
		%>
		  <input type="hidden" name="Isc" value="1"><input type="hidden" name="action" value="yasuo">
		  </td>
		  <td class="classhead" align="right">
		  <%=QuickMenu("?action=backup|"& Lang_Menu(159) &"","admin_cnzz.asp?do=config|"& Lang_Menu(178) &"")%>
		</td>
		 </tr>
		<tr>
		<td class="classtop" colspan="2" height="30"><%=Lang_Data(10)%></td>
		</tr>
		<tr>
		<td height="30" colspan="2" class="classrow">
		<%
		dim dbpath
		dbpath = Eshop_url&db
		If request("Isc") = "1" Then
				If OnlyRead = 1 Then OnlyReadMessage()
				dbpath = server.mappath(dbpath)
				response.write(CompactDB(dbpath))
		End If
		%>
		</td>
		</tr>
		<tr>
		<td colspan="2" class="classfaq">
		  <div class="faq_main">
		  <p class="faq_title"><%=Lang_sys(49)%></p>
		   <%=Lang_Data(11)%>
		  </div>
		</td>
		</tr>
		</form>
		</table>
		<script>tdshow("yasuo");</script>
<%
End Sub

Sub delrefuse()
		admin_flag=",12.5,"
		If Eshop_Lebi_name="" Or instr(","&Eshop_Lebi_flag&",",admin_flag)=0 Then
				adminflag()
		End If
		On Error Resume Next
%>
		<table width="100%" border="0" cellspacing="0" cellpadding="0" id="classtable" class="classtable">
		<form name="form2" method="post" action="?">
		<tr>
		  <td height="30" align="left" class="classhead"><input name="submit" type="image" src="lang/<%=LangFilePath%>/images/bt_app.gif" title=" <%=Lang_Data(12)%> " align="absmiddle"></td>
		  <td class="classhead" align="right">
		  <%=QuickMenu("Admin_sitemap.asp|"& Lang_Menu(164) &"","?action=backup|"& Lang_Menu(165) &"")%>
		</td>
		 </tr>
		<tr>
		<td class="classtop" colspan="2" height="30"><%=Lang_Data(12)%></td>
		</tr>
		<tr class="classrow">
		<td height="30" colspan="2" class="classrow">
		<%
		If request("delitem1") = "1" Then
		        If OnlyRead = 1 Then OnlyReadMessage()
				response.write("·"& Lang_Data(13))
				If IsSqlDataBase =1 Then
						conn.execute("Delete FROM [Lebi_lsview] where DateDiff(d,lsv_sj,"& sqlnowstring &")>1")
				Else
						conn.execute("Delete FROM [Lebi_lsview] where DateDiff('d',lsv_sj,"& sqlnowstring &")>1")
				End If
				ManageLog Lang_Data(14)
		Else
				response.write("<input type=""checkbox"" name=""delitem1"" value=""1"">"& Lang_Data(14))
		End If
		%>
		</td>
		</tr>
		<tr class="classrow">
		<td height="30" colspan="2" class="classrow">
		<%
		If request("delitem2") = "1" Then
		        If OnlyRead = 1 Then OnlyReadMessage()
				response.write("·"& Lang_Data(15))
				If IsSqlDataBase =1 Then
						conn.execute("Delete FROM [Lebi_lshy] where DateDiff(d,basket_date,"& sqlnowstring &")>1")
				Else
						conn.execute("Delete FROM [Lebi_lshy] where DateDiff('d',basket_date,"& sqlnowstring &")>1")
				End If
				ManageLog Lang_Data(16)
		Else
				response.write("<input type=""checkbox"" name=""delitem2"" value=""1"">"& Lang_Data(16))
		End If
		%>
		</td>
		</tr>
		<tr class="classrow">
		<td height="30" colspan="2" class="classrow">
		<%
		If request("delitem3") = "1" Then
				If OnlyRead = 1 Then OnlyReadMessage()
				response.write("·"& Lang_Data(17))
				If IsSqlDataBase =1 Then
						conn.execute("Delete FROM [Lebi_lsbuy] where DateDiff(d,basket_date,"& sqlnowstring &")>1")
				Else
						conn.execute("Delete FROM [Lebi_lsbuy] where DateDiff('d',basket_date,"& sqlnowstring &")>1")
				End If
				ManageLog Lang_Data(18)
		Else
				response.write("<input type=""checkbox"" name=""delitem3"" value=""1"">"& Lang_Data(18))
		End If
		%>
		</td>
		</tr>
		<tr class="classrow">
		<td height="30" colspan="2" class="classrow">
		<%
		If request("delitem4") = "1" Then
				If OnlyRead = 1 Then OnlyReadMessage()
				response.write("·"& Lang_Data(19))
				If IsSqlDataBase =1 Then
						Set rs = conn.execute("select user_id from [Lebi_user] where 1=1 and (logins>1 and  DateDiff(d,lastlogintime,"& sqlnowstring &")>=60) or (logins=1 and DateDiff(d,regdate,"& sqlnowstring &")>=60)")
				Else
						Set rs = conn.execute("select user_id from [Lebi_user] where 1=1 and (logins>1 and  DateDiff('d',lastlogintime,"& sqlnowstring &")>=60) or (logins=1 and DateDiff('d',regdate,"& sqlnowstring &")>=60)")
				End If
				If Not rs.eof Then
				Do While Not rs.eof
						conn.execute("delete from [Lebi_user] where user_id = '" & Trim(rs("user_id")) &"'")
						conn.execute("delete from [Lebi_message] where to_user = '" & Trim(rs("user_id")) &"'")
						conn.execute("delete from [Lebi_action] where user_id = '" & Trim(rs("user_id")) &"'")
						conn.execute("delete from [Lebi_basket] where user_id = '" & Trim(rs("user_id")) &"'")
						conn.execute("delete from [Lebi_orders] where user_id = '" & Trim(rs("user_id")) &"'")
						conn.execute("delete from [Lebi_dvote] where user_id = '" & Trim(rs("user_id")) &"'")
						conn.execute("delete from [Lebi_money_log] where m_user_id = '" & Trim(rs("user_id")) &"'")
				rs.movenext
				Loop
				End If
				rs.close : Set rs = Nothing
				ManageLog Lang_Data(20)
		Else
				response.write("<input type=""checkbox"" name=""delitem4"" value=""1"">"& Lang_Data(20))
		End If
		%>
		</td>
		</tr>
		<%If IsSqlDataBase =1 Then%>
		<tr class="classrow">
		<td height="30" colspan="2" class="classrow">
		<%
		If request("delitem5") = "1" Then
		        If OnlyRead = 1 Then OnlyReadMessage()
				response.write("·"& Lang_Data(21))
				conn.execute("dump transaction ["& SqlDatabaseName &"] with no_log")
				ManageLog Lang_Data(22)
		Else
				response.write("<input type=""checkbox"" name=""delitem5"" value=""1"">"& Lang_Data(22))
		End If
		%>
		</td>
		</tr>
		<%End If%>
		</form>
		</table>
		<script>tdshow("classtable");</script>
<%
End Sub

Sub sqldata()
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="classtable">
<tr>
	<td class="classhead" align="right">
	<%=QuickMenu("Admin_sitemap.asp|"& Lang_Menu(164) &"","admin_data.asp?action=delrefuse|"& Lang_Menu(166) &"")%>
	</td>
 </tr>
<tr>
<td class="classtop" height="30">数据库操作</td>
</tr>
<tr class="classrow">
<td class="classrow">
 			<blockquote>
<B>一、备份数据库</B>
<BR><BR>
1、打开SQL企业管理器，在控制台根目录中依次点开Microsoft SQL Server<BR>
2、SQL Server组-->双击打开你的服务器-->双击打开数据库目录<BR>
3、选择你的数据库名称（如<a href="http://www.56770.com" target="_blank">乐彼网上商店软件</a>数据库Lebi_Eshop）-->然后点上面菜单中的工具-->选择备份数据库<BR>
4、备份选项选择完全备份，目的中的备份到如果原来有路径和名称则选中名称点删除，然后点添加，如果原来没有路径和名称则直接选择添加，接着指定路径和文件名，指定后点确定返回备份窗口，接着点确定进行备份
<BR><BR>
<B>二、还原数据库</B><BR><BR>
1、打开SQL企业管理器，在控制台根目录中依次点开Microsoft SQL Server<BR>
2、SQL Server组-->双击打开你的服务器-->点图标栏的新建数据库图标，新建数据库的名字自行取<BR>
3、点击新建好的数据库名称（如乐彼网上商店软件数据库Lebi_Eshop）-->然后点上面菜单中的工具-->选择恢复数据库<BR>
4、在弹出来的窗口中的还原选项中选择从设备-->点选择设备-->点添加-->然后选择你的备份文件名-->添加后点确定返回，这时候设备栏应该出现您刚才选择的数据库备份文件名，备份号默认为1（如果您对同一个文件做过多次备份，可以点击备份号旁边的查看内容，在复选框中选择最新的一次备份后点确定）-->然后点击上方常规旁边的选项按钮<BR>
5、在出现的窗口中选择在现有数据库上强制还原，以及在恢复完成状态中选择使数据库可以继续运行但无法还原其它事务日志的选项。在窗口的中间部位的将数据库文件还原为这里要按照你SQL的安装进行设置（也可以指定自己的目录），逻辑文件名不需要改动，移至物理文件名要根据你所恢复的机器情况做改动，如您的SQL数据库装在D:\Program Files\Microsoft SQL Server\MSSQL\Data，那么就按照您恢复机器的目录进行相关改动改动，并且最后的文件名最好改成您当前的数据库名（如原来是Lebi_Eshop_data.mdf，现在的数据库是Lebi_Eshop_New，就改成Lebi_Eshop_New_data.mdf），日志和数据文件都要按照这样的方式做相关的改动（日志的文件名是*_log.ldf结尾的），这里的恢复目录您可以自由设置，前提是该目录必须存在（如您可以指定d:\sqldata\Lebi_Eshop_data.mdf或者d:\sqldata\Lebi_Eshop_log.ldf），否则恢复将报错<BR>
6、修改完成后，点击下面的确定进行恢复，这时会出现一个进度条，提示恢复的进度，恢复完成后系统会自动提示成功，如中间提示报错，请记录下相关的错误内容并询问对SQL操作比较熟悉的人员，一般的错误无非是目录错误或者文件名重复或者文件名错误或者空间不够或者数据库正在使用中的错误，数据库正在使用的错误您可以尝试关闭所有关于SQL窗口然后重新打开进行恢复操作，如果还提示正在使用的错误可以将SQL服务停止然后重起看看，至于上述其它的错误一般都能按照错误内容做相应改动后即可恢复<BR><BR>

<B>三、收缩数据库</B><BR><BR>
一般情况下，SQL数据库的收缩并不能很大程度上减小数据库大小，其主要作用是收缩日志大小，应当定期进行此操作以免数据库日志过大<BR>
1、设置数据库模式为简单模式：打开SQL企业管理器，在控制台根目录中依次点开Microsoft SQL Server-->SQL Server组-->双击打开你的服务器-->双击打开数据库目录-->选择你的数据库名称（如乐彼网上商店软件数据库Lebi_Eshop）-->然后点击右键选择属性-->选择选项-->在故障还原的模式中选择“简单”，然后按确定保存<BR>
2、在当前数据库上点右键，看所有任务中的收缩数据库，一般里面的默认设置不用调整，直接点确定<BR>
3、<font color=blue>收缩数据库完成后，建议将您的数据库属性重新设置为标准模式，操作方法同第一点，因为日志在一些异常情况下往往是恢复数据库的重要依据</font>
<BR><BR>

<B>四、设定每日自动备份数据库</B><BR><BR>
<font color=red>强烈建议有条件的用户进行此操作！</font><BR>
1、打开企业管理器，在控制台根目录中依次点开Microsoft SQL Server-->SQL Server组-->双击打开你的服务器<BR>
2、然后点上面菜单中的工具-->选择数据库维护计划器<BR>
3、下一步选择要进行自动备份的数据-->下一步更新数据优化信息，这里一般不用做选择-->下一步检查数据完整性，也一般不选择<BR>
4、下一步指定数据库维护计划，默认的是1周备份一次，点击更改选择每天备份后点确定<BR>
5、下一步指定备份的磁盘目录，选择指定目录，如您可以在D盘新建一个目录如：d:\databak，然后在这里选择使用此目录，如果您的数据库比较多最好选择为每个数据库建立子目录，然后选择删除早于多少天前的备份，一般设定4－7天，这看您的具体备份要求，备份文件扩展名一般都是bak就用默认的<BR>
6、下一步指定事务日志备份计划，看您的需要做选择-->下一步要生成的报表，一般不做选择-->下一步维护计划历史记录，最好用默认的选项-->下一步完成<BR>
7、完成后系统很可能会提示Sql Server Agent服务未启动，先点确定完成计划设定，然后找到桌面最右边状态栏中的SQL绿色图标，双击点开，在服务中选择Sql Server Agent，然后点击运行箭头，选上下方的当启动OS时自动启动服务<BR>
8、这个时候数据库计划已经成功的运行了，他将按照您上面的设置进行自动备份
<BR><BR>
修改计划：<BR>
1、打开企业管理器，在控制台根目录中依次点开Microsoft SQL Server-->SQL Server组-->双击打开你的服务器-->管理-->数据库维护计划-->打开后可看到你设定的计划，可以进行修改或者删除操作
<BR><BR>
<B>五、数据的转移（新建数据库或转移服务器）</B><BR><BR>
一般情况下，最好使用备份和还原操作来进行转移数据，在特殊情况下，可以用导入导出的方式进行转移，这里介绍的就是导入导出方式，导入导出方式转移数据一个作用就是可以在收缩数据库无效的情况下用来减小（收缩）数据库的大小，本操作默认为您对SQL的操作有一定的了解，如果对其中的部分操作不理解，可以咨询动网相关人员或者查询网上资料<BR>
1、将原数据库的所有表、存储过程导出成一个SQL文件，导出的时候注意在选项中选择编写索引脚本和编写主键、外键、默认值和检查约束脚本选项<BR>
2、新建数据库，对新建数据库执行第一步中所建立的SQL文件<BR>
3、用SQL的导入导出方式，对新数据库导入原数据库中的所有表内容<BR>
 			</blockquote>
</td>
</tr>
</table>
<%
End Sub
'=====================压缩参数=========================
Function CompactDB(dbPath)
		ManageLog Lang_Data(10)
        Dim fso, Engine, strDBPath,JET_3X
        strDBPath = left(dbPath,instrrev(DBPath,"\"))
        Set fso = CreateObject("Scripting.FileSystemObject")
        If fso.FileExists(dbPath) Then
                fso.CopyFile dbpath,strDBPath & "temp.mdb"
                Set Engine = CreateObject("JRO.JetEngine")
                Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password="&Pass&";Data Source=" & strDBPath & "temp.mdb","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp1.mdb"
                fso.CopyFile strDBPath & "temp1.mdb",dbpath
                fso.DeleteFile(strDBPath & "temp.mdb")
                fso.DeleteFile(strDBPath & "temp1.mdb")
                Set fso = nothing
                Set Engine = nothing
                CompactDB = Lang_Data(23) & vbCrLf
        Else
                CompactDB = Lang_Data(9) & vbCrLf
        End If
End Function
%>