[color=blue]dim[/color] strfilename,objrs,strsql strfilename=[color=red]request[/color]("filename") [p][/p] '[color=red]response.write[/color]([color=red]left[/color](strfilename,18)) 'response.end() [color=blue]set[/color] fso = [color=red]server.createobject[/color]("scripting.filesystemobject") [color=blue]if[/color] fso.folderexists([color=red]left[/color](strfilename,18)) [color=blue]then[/color] '判断是否存在备份文件夹 [color=blue]if[/color] fso.fileexists(strfilename) [color=blue]then[/color] '判断是否存在备份文件夹 fso.deletefile(strfilename) fso.createfile(strfilename) 'response.write("删除文件后再创建") [color=blue]end if[/color] [color=blue]else[/color] fso.createfolder(left(strfilename,18)) '创建备份文件夹文件 'response.write("创建了文件夹") [color=blue]end if[/color] [color=blue]set[/color] fso =[color=blue] nothing[/color] [p][/p] [color=blue]set[/color] objrs=[color=red]server.createobject[/color]("adodb.recordset") strsql="backup database " & sqldbname & " to disk='" & strfilename & "' with format,name='full backup of tradedb/sql'" [color=red]'response.write[/color](strsql) [color=red]'response[/color].end() objrs.open strsql,conn,[color=red]1[/color],[color=red]3[/color] [color=blue]if[/color] [color=red]err.number[/color]=[color=red]0[/color] [color=blue]then [/color] 'objrs.close strsql="select * from backuprecord" objrs.[color=red]open[/color] strsql,conn,[color=red]1[/color],[color=red]3[/color] objrs[color=red].addnew[/color] objrs("backuptime")=[color=red]now[/color] objrs("name")=[color=red]session[/color]("user") objrs.[color=#ff0000]update[/color] objrs.[color=#ff0000]close[/color] [color=red]response.write[/color] "" [color=red]response[/color].[color=blue]end[/color] [p][color=blue]else[/color][/p] objrs.[color=red]close[/color] [color=red]response.write [/color]"" response.[color=blue]end [/color] [p][color=blue]end if [/color][/p] [color=blue]set[/color] objrs=[color=blue]nothing[/color] conn.[color=red]close[/color] [color=blue]set[/color] conn =[color=blue] nothing[/color]