savebak.asp

基础进销存BS系统 ASP+Sql 功能不断完善中

<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<!--#include file="../Inc/Config.asp" -->
<!--#include file="../Inc/dbconn.asp" -->
<!--#include file="Style.asp" -->

<%
dim dbname,path,date1
dbname=Trim(Request("dbname"))
path=Trim(Request("path")) 
date1=date
response.write dbname&path
set rck=server.CreateObject("adodb.recordset")  
sql="EXEC jxc_backall '"&dbname &"','"&path&"'"
rck.Open sql,Conn
set rck=nothing
'写入备份记录
set rck=server.CreateObject("adodb.recordset")  
sql="EXEC jxc_savebak '"&dbname &"','"&date1&"','"&path&"'"
rck.Open sql,Conn
set rck=nothing



call endconn()
 response.write "<script language=javascript>"	'Javascript 开始
				response.write"alert('完        毕！');"	'警告
				response.write"location.href='bak.asp';"	'跳转到页面
				response.write "</script>"	
%>