📄 bak.asp
字号:
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<!--#include file="../Inc/Config.asp" -->
<!--#include file="../Inc/dbconn.asp" -->
<link href="../other/admin.css" rel="stylesheet" type="text/css">
<title><%=appname%></title>
<%
st=replace(replace(replace(date,":",""),"-","")," ","")
%>
<form action="savebak.asp" method="get" enctype="multipart/form-data" name="form1">
<p align="center" class="blue"> *** 建议每个星期甚至每三天做一次备份!也请严格操作!以免备份错误等现象发生!<br>
</p>
<p align="left">1,<span class="black">需要备份的数据库名:</span><span class="InputText"> <input name="dbname" type="text" class="InputText" id="dbname" value="<%=dbname%>" maxlength="15" readonly="">
</span><span class="red">*默认为 "jxcv001" 根据Inc 目录下的 Config.asp 为准!</span></p>
<p align="left" class="InputText">2,<span class="black">备份文件存放具体位置,即物理路径</span>
<input name="path" type="text" class="InputText" id="path" value="<%="d:\jxc"&st&".bak"%>" maxlength="200">
<span class="red">*默认为 "d:\jxcv001bak\" + 日期<br>
<br>
<input type="submit" name="Submit" value="提 交" class="InputText">
<input type="reset" name="Submit2" value="重 置" class="InputText">
</span></p>
</form>
<head>
<% dim i,intPage,page,pre,last,filepath
set rs = server.CreateObject("adodb.recordset")
sql="select * from pro_back "
rs.PageSize = 15
rs.CursorLocation = 3
rs.Open sql,conn,0,2,1
pre = true
last = true
page = trim(Request.QueryString("page"))
if len(page) = 0 then
intpage = 1
pre = false
else
if cint(page) =< 1 then
intpage = 1
pre = false
else
if cint(page) >= rs.PageCount then
intpage = rs.PageCount
last = false
else
intpage = cint(page)
end if
end if
end if
if not rs.eof then
rs.AbsolutePage = intpage
end if
%>
<p class="InputAdmin">历史备份记录:
</p>
<table width="793" height="40" border="0" cellpadding="1" cellspacing="1">
<tr class="green">
<td width="50"><div align="center"><strong>ID</strong></div></td>
<td width="115"><div align="center"><strong>数据库名</strong></div></td>
<td width="84"><div align="center"><strong>日期</strong></div></td>
<td width="403"><div align="center"><strong>本机路径</strong></div></td>
<td width="125"><div align="center"><strong>操作</strong></div></td>
</tr>
<%
for i=1 to rs.PageSize
if rs.EOF or rs.BOF then exit for
%>
<tr onmouseover="this.style.background='#61F4EE';" onmouseout="this.style.background='#FFFFFF'">
<td><div align="center" class="black"> <%=rs("id")%> </div></td>
<td><div align="center" class="blue"> <%=rs("dbname")%> </div></td>
<td><div align="center" class="black"> <%=rs("date1")%> </div></td>
<td><div align="center" class="red"> <%=rs("path")%> </div></td>
<td><div align="center" class="red"><a href="deletebak.asp?id=<%=rs("id")%>&dbname1=pro_back">删除记录</a>/<a href="huanyuan.asp?dbname=<%=rs("dbname")%>&path=<%=rs("path")%>">还原数据</a></div></td>
</tr>
<%
rs.movenext
next
%>
</table>
<p class="InputAdmin"> </p>
<%if rs.pagecount > 0 then%>
</span>
</div>
<td width="15%" align="left" class="blue"><div align="center" class="blue">当前页<%=intpage%>/<%=rs.PageCount%></div></td>
<div ><span class="blue">
<%else%>
</span>
</div>
<td width="12%" align="left" class="blue"><div align="center"><BR>尚无任何记录</div></td>
<div align="center"><span class="blue">
<%end if%>
</span>
</div>
<td width="73%" align="right"> <div align="center">
<p class="blue"><a href="bak.asp?page=1">首页</a>|
<%if pre then%>
<a href="bak.asp?page=<%=intpage -1%>">上页</a>|
<%end if%>
<%if last then%>
<a href="bak.asp?page=<%=intpage +1%>">下页</a> |
<%end if%>
<a href="bak.asp?page=<%=rs.PageCount%>">尾页</a> </p>
</div>
<p class="blue">
当前共有 ：<%=rs.recordcount%> （条）备份记录
<%
set rs=nothing
call endconn()
%>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -