data_fso.asp

我见过的用ASP写的最好的留言簿程序

<!--#include file="conn.asp"-->
<%
if not session(Variable&Names)=Variable then
response.redirect "index.asp"
end if

select case Request.QueryString("action")
case "bakdb"
call bakdb()
case "restoredb"
call restoredb()
end select

sub bakdb
If Not ChkPost Then 
errinfo="对不起，请不要从外部提交数据"
error(errinfo)
exit sub
End If
set fso=Server.CreateOBject("Scripting.FileSystemObject")
if fso.fileexists(Server.MapPath(Request("using"))) and trim(replace(request("using"),"'",""))=db then
fso.CopyFile Server.MapPath(Request("using")),Server.MapPath(Request("bak"))
Response.Write("<script>alert('备份成功！');history.back();</script>")
else
Response.Write("<script>alert('备份失败！\n请确定您输入的数据都正确！');history.back();</script>")
end if
set fso=nothing
end sub

sub restoredb()
If Not ChkPost Then 
errinfo="对不起，请不要从外部提交数据"
error(errinfo)
exit sub
End If
set fso=Server.CreateOBject("Scripting.FileSystemObject")
if fso.fileexists(Server.MapPath(Request("bak"))) and trim(replace(request("using"),"'",""))=db and instr(trim(replace(request("bak"),"'","")),"upload")<=0 then
fso.CopyFile Server.MapPath(Request("bak")),Server.MapPath(Request("using"))
Response.Write("<script>alert('恢复成功！');history.back();</script>")
else
Response.Write("<script>alert('恢复失败！\n请确定您输入的数据都正确！');history.back();</script>")
end if
set fso=nothing
end sub
end if
%>