www.gusucode.com > 漂亮的地方旅游景点景观介绍网站源代码 > admin/data/beifen.asp

    <!--#include file="../config.asp" -->
<!--#include file="../../inc/page.asp" -->
<%
call zwtj()
call chkqx(3,14)
sub CopyFiles(TempSource,TempEnd) 
Dim FSO 
TempSource=pdlj(TempSource)
TempEnd=pdlj(TempEnd)
Set FSO = Server.CreateObject("Scripting.FileSystemObject") 
IF FSO.FileExists(TempEnd) then 
call cc("目标备份文件 <b>" & TempEnd & "</b> 已存在，请先删除!")
Set FSO=Nothing 
Exit sub 
End IF 
IF FSO.FileExists(TempSource) Then 
Else 
call cc("要复制的源数据库文件 <b>"&TempSource&"</b> 不存在!") 
Set FSO=Nothing 
Exit sub
End If 
FSO.CopyFile TempSource,TempEnd 
Set FSO = Nothing 
End sub

mytit=mytit&"<a href=""?"">备分数据库</a> "
dim bflj
bflj="/"&hturl&"/data_bak/"
call cacfol("/"&hturl&"/data_bak/")

select case action
case "del"
call del()
case "show",""
call show()
case "bf"
call bf()
case "hy"
call hy()
case "delall"
call delall()
end select

'显示
sub show()
sql="select * from jw_beifen order by id desc"
call record(rs,sql,1)
if rs.eof then
conn.execute("delete * from jw_beifen")
delfol(bflj)
end if

call head()
%>
<link href="../inc/mm.css" rel="stylesheet" type="text/css" />
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#116BAE">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td id="tit"><%= mytit %> || <a href="?action=bf">备分当前数据库</a> || <a href="?action=delall">删除备分文件夹中所有文件</a></td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<form name="form1" id="form1" method="post" action="../sys/?action=del">
<tr>
<td width="3%" align="center" bgcolor="#C5E0F3"><strong>ID</strong></td>
<td width="14%" align="center" bgcolor="#C5E0F3"><strong>用户名</strong></td>
<td width="23%" bgcolor="#C5E0F3"><strong>备分路径</strong></td>
<td width="17%" align="center" bgcolor="#C5E0F3"><strong>大小</strong></td>
<td width="20%" align="center" bgcolor="#C5E0F3"><strong>备分时间</strong></td>
<td width="20%" align="center" bgcolor="#C5E0F3"><strong>还原备分</strong></td>
<td width="3%" align="center" bgcolor="#C5E0F3"><input type="checkbox" name="selectall" onClick="selectit()"/></td>
</tr>
<% 
dim i,sz
sz=20
i=sz
dim bgc
%>
<div style="display:none"><% call fenpage(sz,rs,10) %></div>
<%
do while not rs.eof and i>0 
if i mod 2=0 then 
bgc="#D2E9FF"
else
bgc="#D2E1EE"
end if
%>
<tr id="r<%=rs("id")%>" bgcolor=<%= bgc %> onMouseOver="museing(r<%=rs("id")%>,0,'<%= bgc %>')" onMouseOut="museing(r<%=rs("id")%>,1,'<%= bgc %>')">
<td align="center"><%= rs("id") %></td>
<td align="center"><%= rs("admin_name") %></td>
<td><%= rs("path") %></td>
<td align="center"><%= formatnumber(rs("bfsize")/1024/1024,2,-1) %> MB</td>
<td align="center"><%= rs("ctim") %></td>
<td align="center"><input name="del2" type="button" class="btn2" id="del2" value="还原" onClick="if(confirm('您确定要还原？还原后系统将用备分文件覆盖当前数据库')==true){window.location.href='?action=hy&id=<%= rs("id") %>'}"/></td>
<td align="center"><input name="idstr" type="checkbox" value="<%= rs("id") %>" onClick="td_bgcolor(r<%=rs("id")%>,1);"></td>
</tr>
<% 
i=i-1
rs.movenext 
loop
%>
<tr>
<td colspan="7" bgcolor="#C5E0F3">
<table width="100%" border="0" cellpadding="2" cellspacing="0">
<tr>
<td width="9%"><input name="del" type="button" class="button_1" id="del" value="删除备分" onmouseup="tjqr('您确定要删除？此操作无法逆转！','?action=del')" onmouseover="this.className='button_2'" onmouseout="this.className='button_1'"/></td>
<td width="91%" align="right"><% call fenpage(sz,rs,10) %></td>
</tr>
</table></td>
</tr>
</form>
</table></td>
</tr>
</table></td>
</tr>
</table>
<%
call recordend(rs)
call connend()
call foot()
end sub

sub bf()
dim path,path1
path=bflj&getfilename&"."&fileexec(mydb)
path1=path
call CopyFiles(mydb,path)
call record(rs,"select top 1 * from jw_beifen where 1=1",3)
rs.addnew()
rs("admin_name")=request.cookies(fmid)("admin_name")
rs("ctim")=now()
rs("bfsize")=getfilesize(path)
rs("path")=path1
rs.update()
call recordend(rs)
Response.Write("<script>alert('备分成功')</script>")
response.Redirect("?")
end sub

sub hy()
'移动备分文件
dim bfwj
bfwj=getmc("jw_beifen","id",id,"path")
dim fso
set fso = server.CreateObject("Scripting.FileSystemObject")
call fso.copyFile(pdlj(bfwj),pdlj(mydb),true) '两个参数的文件名部分可以不同
set fso = nothing
call delfile(bfwj)
call cc("还原成功")
end sub

'删除
sub del()
dim idstr,iid,i,bfwj
idstr=replace(Trim(Request.Form("idstr"))," ","")
iid=split(idstr,",")
for i=0 to ubound(iid)
bfwj=getmc("jw_beifen","id",iid(i),"path")
call delfile(bfwj)
conn.execute("delete * from jw_beifen where id="&iid(i))
next
call connend()
response.Redirect(request.ServerVariables("HTTP_REFERER"))
end sub

'清除所有文件
sub delall()
conn.execute("delete * from jw_beifen")
delfol(bflj)
call cc("删除成功")
end sub
%>