28,409
社区成员
发帖
与我相关
我的任务
分享ASL+SQL2000 的程序在虚拟主机上，我想用ASP程序备份SQL2000数据库，给个思路？
ASL+SQL2000 的程序在虚拟主机上，我想用ASP程序备份SQL2000数据库，给个思路？
程序备份后是不是还在虚拟主机上？
程序备份后是不是还在虚拟主机上？
...全文
请发表友善的回复…
发表回复
擒兽 2004-05-05
- 打赏
- 举报
mark
blueice2002 2004-05-05
- 打赏
- 举报
无组件的数据库的备份与还原
JARON_DOT_CN 2004年4月27日 阅读:16次
看过数据库的备份与还原。大多数都是用组件来完成的。其实可通过sql语句来完成。
由于时间关系，未对参数进行验证和界面美化。代码仅供参考。
共计4个文件：下载地址：http://ad.ceh.com.cn/sql.rar
conn.asp
<%
conn="Provider=SQLOLEDB.1;Persist Security Info=false;Server=127.0.0.1;UID=sa;pwd=www.zhi.net;database=master"
function rec(rs,sql)
set rs = server.CreateObject("ADODB.Recordset")
rs.Activeconnection = conn
rs.Source = sql
rs.CursorType = 0
rs.Cursorlocation = 3
rs.LockType = 1
rs.Open
if rs.eof and rs.bof then
rec= false
else
rec= true
end if
end function
function cmd(sql)
dim cmd1
set cmd1 = server.CreateObject("ADODB.Command")
cmd1.ActiveConnection = conn
cmd1.CommandText = sql
cmd1.CommandType = 1
cmd1.CommandTimeout = 0
cmd1.Prepared = true
cmd1.Execute()
end function
function cdb(rs)
rs.close()
set rs=nothing
end function
%>
dev.asp
<!--#include file="conn.asp"-->
<%
if request("AddDev") <> "" then
sql="select name,phyname from master..sysdevices where status=16 and name='"&request("devname")&"'"
rec chk,sql
if chk.eof and chk.bof then
sql = "sp_addumpdevice 'disk','"&request("devname")&"','"&request("phyname")&"'"
cmd sql
response.Write "<script language=javascript>window.location=reload;</script>"
else
response.Write "<script language=javascript>alert('数据库中已存在"&request("devname")&"设备！');window.location='cmd.asp';</script>"
end if
end if
if request("deldev") <> "" then
sql = "sp_dropdevice '"&request("devname")&"'"
cmd sql
response.Write "<script language=javascript>window.location=reload;</script>"
end if
rec li,"select name,phyname from master..sysdevices where status=16"
if li.eof and li.bof then
response.Write "<font color=#ff0000>请新建备份设备用来备份还原数据库</font>"
else
%><style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
}
-->
</style>
<table width="60%" border="0" cellspacing="0">
<tr>
<td width="29%">名称：</td>
<td width="71%">位置：</td>
</tr>
<%
i=0
while not li.eof
i=i+1
%>
<tr>
<td><%=li(0)%></td>
<td><%=li(1)%> <a href='dev.asp?DelDev=1&devname=<%=li(0)%>'>删除此设备</a></td>
</tr>
<%
li.movenext
wend
response.Write "<script language=javascript>top.document.all.dev.height='"&(i+1)*25&"';</script>"
cdb li
%>
</table>
<%
end if
%>
default.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
'*************************************************
'数据库备份与还原
'编 程：魔术师·杨(MagicYang.CN)
'完成日期：2004-4-11
'说明：由于时间关系，未对数据做安全性验证。
'应用时请对数据进行验证，确保安全。
'QQ：1168064 欢迎大家互相交流
'*************************************************
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>数据库的备份与还原</title>
</head>
<body>
<%
%>
<table width="80%" border="0" align="center">
<tr>
<td width="21%" valign="top">数据库设备：</td>
<td width="79%">
<iframe name="dev" src="dev.asp" width="100%" height="200" frameborder="0" scrolling="no"></iframe>
</td>
</tr>
<tr>
<td>添加设备：</td>
<td>设备名称：
<input name="devname" type="text" id="devname" size="10" maxlength="10"></td>
</tr>
<tr>
<td> </td>
<td>文件路径：
<input name="phyname" type="text" id="phyname" size="20" maxlength="50">
<input type="button" value="添加设备" onClick="document.all.dev.src='dev.asp?AddDev=1&devname='+document.all.devname.value+'&phyname='+document.all.phyname.value;"></td>
</tr>
<tr>
<td valign="top">备份/还原：</td>
<td>
数据库名称：
<%
rec li,"select name from master..sysdatabases where status=16"
%>
<select name="b_data">
<%
while not li.eof
response.Write "<option value="&li(0)&">"&li(0)&"</option>"
li.movenext
wend
cdb li
%>
</select><br>
备份到设备：<%
rec li,"select name,phyname from master..sysdevices where status=16"
%>
<select name="b_dev">
<%
while not li.eof
response.Write "<option value="&li(0)&">"&li(0)&"(文件："&li(1)&")</option>"
li.movenext
wend
cdb li
%>
</select><br>
<input name="按钮" type="button" value="备份数据库" onClick="window.location='cmd.asp?action=backup&database='+document.all.b_data.value+'&dev='+document.all.b_dev.value;">
<input name="按钮" type="button" value="还原数据库" onClick="window.location='cmd.asp?action=RESTORE&database='+document.all.b_data.value+'&dev='+document.all.b_dev.value;"> </td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table>
</body>
</html>
cmd.asp
<!--#include file="conn.asp"-->
<%
on error resume next
if request("action") <> "" then
if request("action")="backup" then
sql ="BACKUP DATABASE "&request("database")&" To "& request("dev")
cmd sql
if err.number > 0 then
response.Write "<script language=javascript>alert('数据库"&request("database")&"备份失败！');window.location='default.asp';</script>"
else
response.Write "<script language=javascript>alert('数据库"&request("database")&"备份成功！');window.location='default.asp';</script>"
end if
else
sql ="RESTORE DATABASE "&request("database")&" From "& request("dev")
cmd sql
if err.number > 0 then
response.Write "<script language=javascript>alert('数据库"&request("database")&"还原失败！');window.location='default.asp';</script>"
else
response.Write "<script language=javascript>alert('数据库"&request("database")&"还原成功！');window.location='default.asp';</script>"
end if
end if
end if
%>
JARON_DOT_CN 2004年4月27日 阅读:16次
看过数据库的备份与还原。大多数都是用组件来完成的。其实可通过sql语句来完成。
由于时间关系，未对参数进行验证和界面美化。代码仅供参考。
共计4个文件：下载地址：http://ad.ceh.com.cn/sql.rar
conn.asp
<%
conn="Provider=SQLOLEDB.1;Persist Security Info=false;Server=127.0.0.1;UID=sa;pwd=www.zhi.net;database=master"
function rec(rs,sql)
set rs = server.CreateObject("ADODB.Recordset")
rs.Activeconnection = conn
rs.Source = sql
rs.CursorType = 0
rs.Cursorlocation = 3
rs.LockType = 1
rs.Open
if rs.eof and rs.bof then
rec= false
else
rec= true
end if
end function
function cmd(sql)
dim cmd1
set cmd1 = server.CreateObject("ADODB.Command")
cmd1.ActiveConnection = conn
cmd1.CommandText = sql
cmd1.CommandType = 1
cmd1.CommandTimeout = 0
cmd1.Prepared = true
cmd1.Execute()
end function
function cdb(rs)
rs.close()
set rs=nothing
end function
%>
dev.asp
<!--#include file="conn.asp"-->
<%
if request("AddDev") <> "" then
sql="select name,phyname from master..sysdevices where status=16 and name='"&request("devname")&"'"
rec chk,sql
if chk.eof and chk.bof then
sql = "sp_addumpdevice 'disk','"&request("devname")&"','"&request("phyname")&"'"
cmd sql
response.Write "<script language=javascript>window.location=reload;</script>"
else
response.Write "<script language=javascript>alert('数据库中已存在"&request("devname")&"设备！');window.location='cmd.asp';</script>"
end if
end if
if request("deldev") <> "" then
sql = "sp_dropdevice '"&request("devname")&"'"
cmd sql
response.Write "<script language=javascript>window.location=reload;</script>"
end if
rec li,"select name,phyname from master..sysdevices where status=16"
if li.eof and li.bof then
response.Write "<font color=#ff0000>请新建备份设备用来备份还原数据库</font>"
else
%><style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
}
-->
</style>
<table width="60%" border="0" cellspacing="0">
<tr>
<td width="29%">名称：</td>
<td width="71%">位置：</td>
</tr>
<%
i=0
while not li.eof
i=i+1
%>
<tr>
<td><%=li(0)%></td>
<td><%=li(1)%> <a href='dev.asp?DelDev=1&devname=<%=li(0)%>'>删除此设备</a></td>
</tr>
<%
li.movenext
wend
response.Write "<script language=javascript>top.document.all.dev.height='"&(i+1)*25&"';</script>"
cdb li
%>
</table>
<%
end if
%>
default.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
'*************************************************
'数据库备份与还原
'编 程：魔术师·杨(MagicYang.CN)
'完成日期：2004-4-11
'说明：由于时间关系，未对数据做安全性验证。
'应用时请对数据进行验证，确保安全。
'QQ：1168064 欢迎大家互相交流
'*************************************************
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>数据库的备份与还原</title>
</head>
<body>
<%
%>
<table width="80%" border="0" align="center">
<tr>
<td width="21%" valign="top">数据库设备：</td>
<td width="79%">
<iframe name="dev" src="dev.asp" width="100%" height="200" frameborder="0" scrolling="no"></iframe>
</td>
</tr>
<tr>
<td>添加设备：</td>
<td>设备名称：
<input name="devname" type="text" id="devname" size="10" maxlength="10"></td>
</tr>
<tr>
<td> </td>
<td>文件路径：
<input name="phyname" type="text" id="phyname" size="20" maxlength="50">
<input type="button" value="添加设备" onClick="document.all.dev.src='dev.asp?AddDev=1&devname='+document.all.devname.value+'&phyname='+document.all.phyname.value;"></td>
</tr>
<tr>
<td valign="top">备份/还原：</td>
<td>
数据库名称：
<%
rec li,"select name from master..sysdatabases where status=16"
%>
<select name="b_data">
<%
while not li.eof
response.Write "<option value="&li(0)&">"&li(0)&"</option>"
li.movenext
wend
cdb li
%>
</select><br>
备份到设备：<%
rec li,"select name,phyname from master..sysdevices where status=16"
%>
<select name="b_dev">
<%
while not li.eof
response.Write "<option value="&li(0)&">"&li(0)&"(文件："&li(1)&")</option>"
li.movenext
wend
cdb li
%>
</select><br>
<input name="按钮" type="button" value="备份数据库" onClick="window.location='cmd.asp?action=backup&database='+document.all.b_data.value+'&dev='+document.all.b_dev.value;">
<input name="按钮" type="button" value="还原数据库" onClick="window.location='cmd.asp?action=RESTORE&database='+document.all.b_data.value+'&dev='+document.all.b_dev.value;"> </td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table>
</body>
</html>
cmd.asp
<!--#include file="conn.asp"-->
<%
on error resume next
if request("action") <> "" then
if request("action")="backup" then
sql ="BACKUP DATABASE "&request("database")&" To "& request("dev")
cmd sql
if err.number > 0 then
response.Write "<script language=javascript>alert('数据库"&request("database")&"备份失败！');window.location='default.asp';</script>"
else
response.Write "<script language=javascript>alert('数据库"&request("database")&"备份成功！');window.location='default.asp';</script>"
end if
else
sql ="RESTORE DATABASE "&request("database")&" From "& request("dev")
cmd sql
if err.number > 0 then
response.Write "<script language=javascript>alert('数据库"&request("database")&"还原失败！');window.location='default.asp';</script>"
else
response.Write "<script language=javascript>alert('数据库"&request("database")&"还原成功！');window.location='default.asp';</script>"
end if
end if
end if
%>
Jaron 2004-05-05
- 打赏
- 举报
check out this url : http://www.jaron.cn/chs_scripts/8/2004-04/20040427103636-101493.html
<% BookIDList = Session("BookIDList")'session(BookIDList)第一次运行为空
ABookID = Split(Request("bookID"), ", ")'ABookID数组存入的是图书的id'
For I=0 To UBound(ABookID)'显示数组的最大维数
If Len(BookIDList) = 0 Then
BookIDList = "'" & request("bookID") & "'"
ElseIf InStr( BookIDList, request("bookID"))
您的购物车为空！
您还没有选购任何书籍，您的购物车为空！
<% if request.Form("jiezhang")="保存订单" then
response.Redirect("checkout.asp")
end if
If Len(Session("BookIDList")) 0 Then
sql = "Select * From tb_book Where isbn In (" &_
session("bookIDList") & ") Order By isbn"
Set rs = cnn.Execute( sql )
else
Response.Redirect "buycarempty.asp"
end if
%>
查看购物车
function stand(){
window.close();}
书号
书 名
单价
数量
金额
移去
<% sl = Request( "sl"&i)
If sl
(元)
(元)
合计金额：
（元）
清空购物车
<% session("mName")=""
if request.Form("UserID")"" and request.Form("userPWD")"" then
session("ID1")=request.Form("UserID")
session("PWD")=request.Form("userPWD")
set rs=Server.CreateObject("ADODB.RecordSet")
sql="SELECT userid, password FROM tb_member WHERE userid='" & session("ID1")&"'"
set rs=cnn.execute(sql)
if rs.eof then %>
alert("登录失败！");
window.history.back();
window.location.href="checkoutok.asp"
alert("您输入的会员密码错误，请重新输入！");
history.back();
保存订单信息
//检验会员ID号和密码
function check(){
if (form1.userID.value==""){
alert("请输入会员ID号！");form1.userID.focus();return;}
if (form1.userPWD.value==""){
alert("请输入会员密码！");form1.userPWD.focus();return;}
form1.submit();}
如果您还不是我们的会员，请单击“注册”按钮注册会员！
会员ID号：
注册
您的密码：
以下是您选购的图书：
书号
书名
单价
数量
金额
（元）
（元）
订单保存成功！
<% '返回订单号等信息
orderid=objCmd.Parameters(3)
sql1 = "Select * From tb_book Where isbn In (" & session("checkBook") & ")"
Set rs = cnn.Execute( sql1 )
ASL1=""
ASL1=split(session("sl"),",")
i=0
sum=0
shuliang=0
while not rs.eof
bookID=rs("isbn")
price=rs("price")
paSL=cInt(ASL(i))
booksum=cdbl(rs("price"))*ASL(i)
sql2="insert into tb_orderdetail(orderid,isbn,num,money) values ('"&_
orderid&"','"&bookID&"',"&paSL&","&booksum&")"
set rs1=cnn.execute(sql2)
i=i+1
rs.movenext
wend
for each parm in objCmd.Parameters
if parm.name="parID" then
name1="会员ID"
end if
if parm.name="sum" then
name1="订货金额"
end if
if parm.name="oDate" then
name1="订购日期"
end if
if parm.name="aa" then
name1="订单号"
end if
Response.Write name1 &":"& trim(parm)
if name1="订货金额" then
response.write "元"
else
response.write ""
end if
next
%>
订单已经成功保存，欢迎下次惠顾！
网上图书订购
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0','width','639','height','119','src','../images/banner','quality','high','pluginspage','http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash','movie','../images/banner' ); //end AC code
网站首页
查看购物车
会员登录
管理员登录
书号
书名
出版社
图书类型
作者
等于
Like
查询图书库存量
书号
书名
图书类型
等于
Like
<%
If (Request("cValue") "" and Request("sField") "") Then
If (Request("cValue") "") Then
session("INvalue") = Request("cValue")
End If
session("pBookName") = "BookName"
If (Request("sField") "") Then
session("pBookName") = Request("sField")
End If
session("pBookName")=Replace(session("pBookName"), "'", "''")
session("INvalue")=Replace(session("INvalue"), "'", "''")
If (Request("mode") "") Then
session("rs_mode") = Request("mode")
End If
end if
if session("rs_mode")"" then
if session("rs_mode")="==" then
sql= "SELECT isbn, bookname, kind, price,total FROM tb_total WHERE "_
+ session("pBookName") + " = '" + session("INvalue") + "'"
else
sql = "SELECT isbn, bookname, kind, price,total FROM tb_total WHERE "&_
session("pBookName") & " Like '%" & session("INvalue") & "%'"
end if
else
sql="SELECT isbn, bookname, kind, price,total FROM tb_total "
end if
set rs_search=Server.CreateObject("ADODB.RecordSet")
rs_search.open sql,cnn,1,3
%>
function newwin1(url){
var newwin=window.open(url,"","resizable=yes,scrollbars=yes,width=700,height=400");
newwin.focus();
return false;
}
书号
书 名
图书类型
价格
库存
alert("无符合条件的图书！")
history.back(1)
<%response.end()
end if
'分页'
rs_search.pagesize=7
page=CLng(Request("page"))
if page
<% if page1 then %> 第一页
上一页
<%end if
if pagers_search.pagecount then %>
下一页
最后一页
无符合条件的记录！
<%
response.Expires=-1
username1=trim(request("username"))
userpass1=trim(request("userpass"))
if username1="" or userpass1="" then
session("passed1")=""
session("msg1")="用户ID和密码不能为空"
else
set rs=server.CreateObject("adodb.recordset")
strsql="select * from tb_member where userid='"&username1&"'"
rs.open strsql,cnn,3,3
if rs.eof then
session("passed1")=""
session("msg1")="用户ID不存在"
else
if rs("PassWord")userpass1 then
session("passed1")=""
session("msg1")="密码错误"
else
session("passed1")=true
session("msg1")=""
session("ID1")=username1
session("username1")=rs("UserName")
end if
end if
end if
response.Redirect("memberlogin.asp")
%>
会员登录
function chkfields(){
if(document.myform.username.value==''){
alert("用户ID不能为空");
document.myform.username.focus();
return false;
}
if(document.myform.userpass.value==''){
alert("用户密码不能为空");
document.myform.userpass.focus();
return false;
}
return true;
}
function look(id){
window.open("orderhistory.asp?ID="+id,"","scrollbars=yes,resizable=yes,width=700,height=600");
}
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0','width','639','height','119','src','../images/banner','quality','high','pluginspage','http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash','movie','../images/banner' ); //end AC code
网站首页
查看购物车
会员登录
管理员登录
<%
if session("msg1")"" then
response.write session("msg1")
else
response.write "用户登录"
end if
%>
I D:
密 码:
用户 , 您已成功登录
会员注册成功
祝贺您，已经注册成功！
您的会员ID号为：[
]
密码为： [
] 请记好！
单击“返回”按钮保存订单信息。
asp")
Else
session("BookIDList")= BookIDList
Response.Redirect "buycarsee.asp"
end if
%>
<%
response.Expires=-1
username1=trim(request("username"))
userpass1=trim(request("userpass"))
'response.write 41
'response.End()
if username1="" or userpass1="" then
session("passed")=""
session("msg")="请您先登录再进来！"
'response.Redirect("userlogin.asp")
else
set rs=server.CreateObject("adodb.recordset")
strsql="select * from tb_operator where operatorname='"&username1&"'"
rs.open strsql,cnn,3,3
if rs.eof then
session("passed")=""
session("msg")="管理员名称不存在"
else
if rs("password")userpass1 then
session("passed")=""
session("msg")="密码错误"
else
session("passed")=true
session("msg")=""
session("username")=rs("operatorname")
'response.Redirect("userlogin.asp")
end if
end if
end if
response.Redirect("operatorlogin.asp")
%>
管理员登录
function chkfields(){
if(document.myform.username.value==''){
alert("管理员名称不能为空");
document.myform.username.focus();
return false;
}
if(document.myform.userpass.value==''){
alert("管理员密码不能为空");
document.myform.userpass.focus();
return false;
}
return true;
}
function take(){
window.open("lookup.asp","图书库存查询");
}
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0','width','639','height','119','src','../images/banner','quality','high','pluginspage','http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash','movie','../images/banner' ); //end AC code
网站首页
查看购物车
会员登录
管理员登录
<%
if session("msg")"" then
response.write session("msg")
else
response.write "管理员登录"
end if
%>
管理员:
密码:
管理员 , 登录成功
的订单一览表
的订单一览表
订单号书号书名价格数量金额购书日期
<%
rs.pagesize=7
page=CLng(Request("page"))
if page
第一页
<%
end if
if page1 then %> 第一页
asp?page=>上一页
<%end if
if pagers.pagecount then %>
asp?page=>下一页
asp?page=>最后一页
<%
else
response.write "您没有购书记录！"
end if
%>
<%
If (Request("cValue") "" and Request("sField") "") Then
If (Request("cValue") "") Then
session("INvalue") = Request("cValue")
End If
session("pBookName") = "BookName"
If (Request("sField") "") Then
session("pBookName") = Request("sField")
End If
session("pBookName")=Replace(session("pBookName"), "'", "''")
session("INvalue")=Replace(session("INvalue"), "'", "''")
If (Request("mode") "") Then
session("rs_mode") = Request("mode")
End If
end if
if session("rs_mode")"" then
if session("rs_mode")="==" then
sql= "SELECT isbn, bookname, author, price FROM tb_book WHERE "_
+ session("pBookName") + " = '" + session("INvalue") + "'"
else
sql = "SELECT isbn, bookname, author, price FROM tb_book WHERE "&_
session("pBookName") & " Like '%" & session("INvalue") & "%'"
end if
else
sql="SELECT isbn, bookname, author, price FROM tb_book "
end if
set rs_search=Server.CreateObject("ADODB.RecordSet")
rs_search.open sql,cnn,1,3
%>
function newwin1(url){
var newwin=window.open(url,"","resizable=yes,scrollbars=yes,width=700,height=400");
newwin.focus();
return false;
}
书号
书 名
作 者
原价
现 价
购物
alert("无符合条件的图书！")
history.back(1)
<%response.end()
end if
'分页'
rs_search.pagesize=7
page=CLng(Request("page"))
if page
<% if page1 then %> 第一页
上一页
<%end if
if pagers_search.pagecount then %>
下一页
最后一页
无符合条件的记录！
