|
看过数据库的备份与还原。大多数都是用组件来完成的。其实可通过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. [1] [2] [3] [4] [5] 下一页 |