打印和数据库备份！！！

怎样实现页面资料的打印，比如按“打印本页面资料”按钮，就把页面资料打印出来？
另一个就是数据库的备份问题，
FilePath=Server.MapPath("abc.mdb") '获取数据库的相对路径
Copypath="e:\mywww" '设置数据库备份的路径
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject") '建立实例对象
IF fso.FileExists(FilePath) Then '判断数据库是否存在
fso.CopyFile FilePath,Copypath
ELse
Response.Write"文件不存在!"
End IF
这个备份程序已经设定了备份路径，但如果我想要让用户自己选择备份路径，比如按“浏览”然后就弹出一个窗口，让用户选择数据库的备份路径（就象用迅雷下载资料时选择资料保存路径一样），这样应该怎么实现？我的毕业设计就差这两个模块了，知道的请告诉一下，谢谢！！！