1.asp

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

<%
response.expires=0
on error resume next
  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")
set conn=server.createobject("adodb.connection")
conn.open "Driver={Sql Server};Server=ASP03;UID=sa;database=DB_Lsmanage"

sql="restore database DB_Lsmanage from disk='" & str & "/" &hf&"'"
response.write sql
response.End()
conn.execute "restore database DB_Lsmanage from disk='" & str & "\ddd'"

	 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.write "<br>数据库恢复完成！</b></font></p>"
	 else
	 	response.write "<br>数据库恢复失败，请检查后重试！</b></font></p><br><center><a href='javascript:history.back(1)'>返回</a></center>"
	 end if
conn.close
set conn=nothing
%>