db_hfcz.asp

医药进销存管理系统 全代码 很详细 可惜没有数据库 可供参考

<%response.expires=0      '设置浏览器缓存页面的时间
  hf=request("hf")      
  if hf="" then      '用条件语句判断选择的恢复信息不能为空
  	 response.write "<title>提示页面</title><br><br><br><br><br><br><p align='center'><font face='楷体_GB2312' size='5' color=#ff0000><b>"&  "<br>必须选定一项要恢复的数据，请查清后重试！</b></font></p>"
     response.write "<p align='center'><a href='javascript:history.back(1)'>返回</a></p>"
     response.end
  end if
'连接数据库
str=server.mappath("../backup") & "\" & hf
set conn=server.createobject("adodb.connection")
conn.connectionstring="Driver={Sql Server};Server=(local);UID=sa"
conn.open
on error resume next       '设置错误陷阱
conn.execute " alter database db_lsmanage set single_user with rollback immediate restore database DB_Lsmanage from disk = '" & str & "'"
	 response.write "<title>提示页面</title><br><br><br><br><br><br><p align='center'><font face='楷体_GB2312' size='5' color=#ff0000><b>" 
	 if err.number=0 then
	 	 response.Redirect("restoreOK.asp")     '无错误信息跳转到数据恢复成功页面
	 else
	 	response.write "<br>数据库恢复失败，请检查后重试！</b></font></p><br><center><a href='javascript:history.back(1)'>返回</a></center>"
	 	response.write err.Description           '输出系统的错误提示信息
	 end if
	conn.execute " alter database db_lsmanage set MULTI_USER"         '将数据库设置为多用户
	set conn=nothing
	conn.close	
%>