update_save.asp

来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 10 行

<%
'Response.write "<script>alert('数据库过大，请使用FTP直接下载本地备份！');location.href='UpDate.Asp'</script>"
'Response.end
whichfile=server.mappath(Request("DBpath"))
dsfile=Server.MapPath(Request("bkfolder"))
Set fs = CreateObject("Scripting.FileSystemObject")
Set thisfile = fs.GetFile(whichfile)
thisfile.copy dsfile
Response.write "<script>alert('数据库备份成功！');location.href='UpDate.Asp'</script>"
%>