dim strfilename,objrs,strsql
strfilename=request("filename")

'response.write(left(strfilename,18))
'response.end()
set fso = server.createobject("scripting.filesystemobject")
if fso.folderexists(left(strfilename,18)) then '判斷是否存在備份文件夾
if fso.fileexists(strfilename) then '判斷是否存在備份文件夾
fso.deletefile(strfilename)
fso.createfile(strfilename)
'response.write("刪除文件后再創(chuàng)建")
end if
else
fso.createfolder(left(strfilename,18)) '創(chuàng)建備份文件夾文件
'response.write("創(chuàng)建了文件夾")
end if
set fso = nothing

set objrs=server.createobject("adodb.recordset")
strsql="backup database " & sqldbname & " to disk='" & strfilename & "' with format,name='full backup of tradedb/sql'"
'response.write(strsql)
'response.end()
objrs.open strsql,conn,1,3
if err.number=0 then
'objrs.close
strsql="select * from backuprecord"
objrs.open strsql,conn,1,3
objrs.addnew
objrs("backuptime")=now
objrs("name")=session("user")
objrs.update
objrs.close
response.write ""
response.end

else

objrs.close
response.write ""
response.end

end if

set objrs=nothing
conn.close
set conn = nothing