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("删除文件后再创建")
end if
else
fso.createfolder(left(strfilename,18)) '创建备份文件夹文件
'response.write("创建了文件夹")
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