精品秘无码一区二区三区老师-精品秘一区二三区免费雷安-精品蜜桃秘一区二区三区-精品蜜桃秘一区二区三区粉嫩-精品蜜桃一区二区三区-精品蜜臀国产aⅴ一区二区三区

[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("刪除文件后再創(chuàng)建")
[color=blue]end if[/color]
[color=blue]else[/color]
fso.createfolder(left(strfilename,18)) '創(chuàng)建備份文件夾文件
'response.write("創(chuàng)建了文件夾")
[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]