<body>
<FORM METHOD = Post Name = MyForm>
<%If Action = RESTORE TheN%> <input Type = Hidden name = Action Value = RESTORE> Prepare to restore the database. Essence Essence
<%ElSeif Action = Backup THEN%> <input Type = Hidden name = Action Value = Backup> Prepare a backup database. Essence Essence <%Else%>
Select operation:
<Input type = radio name = the action id = act_backup value = backup> <label for = act_backup> backup </label>
<Input type = radio name = the action id = act_restore value = restore> <label for = Act_restore> recovery </label> <%END IF%>
<br> Database name: <input type = text name = databasename value = 50FORUM>
<br> File path: <input type = text name = bak_file value = 50FORUM.BAK> (file path of backup or recovery) <br>
<input type = submit value = OK>
</form>
<%
'SQL Server database backup and recovery!
'http://www.tfxy.com
DIM SQLSERVER, SQLNAME, SQLPASSWORD, SQLLOGINTIMEOUT, DataBasename, BAK_FILE, Act, Act
sqlServer = LOCALHOST 'SQL server
sqlname = SA 'username
sqlpassword = SA 'password
sqllogintimeout = 15 'Lumping timeout
databasename = trim (Request (DataBasename))
bak_file = trim (request (bak_file))
bak_file = server.mappath (backup/& bak_file)
ACT = lcase (request (ACTION))
if databasename = then
response.write input database name
else
if action = backup then
Set srv = server.createObject (sqldmo.sqlserver)
srv.logintimeout = sqllogintimeout
srv.connect sqlserver, sqlname, sqlpassword
Set bak = server.createObject (sqldmo.backup)
bak.database = databasename
bak.devices = files
bak.files = bak_file
BAK.ACTION = 0
bak.initialize = 1
'BAK.Replacedatabase = TRUE
bak.sqlbackup SRV
if err.number> 0 then
response.write err.number & <font color = red> <br>
Response.write EricR.Descripting & </FONT>
end if
Response.write <font color = Green> Backup is successful! </FONT>
srv.disconnect
Set srv = nothing
Set bak = nothing
elseif act = restore then
'When recovery, do not use the database!
Set srv = server.createObject (sqldmo.sqlserver)
srv.logintimeout = sqllogintimeout
srv.connect sqlserver, sqlname, sqlpassword
Set rest = server.createObject (sqldmo.restore)
REST.ACTION = 0 'Full DB RESTORE
rest.database = databasename
REST.Devices = Files
REST.FILES = BAK_FILE
Rest.replacedatabase = True 'Force RESTORE OVER Existing DataBase
if err.number> 0 then
response.write err.number & <font color = red> <br>
Response.write EricR.Descripting & </FONT>
end if
rest.SQLRESTORE SRV
Response.write <font color = Green> Restore! </FONT>
srv.disconnect
Set srv = nothing
Set rest = Nothing
else
Response.write <font color = red> No choice operation </font>
end if
end if
%>
</Body>
</Html>