怎样实现页面资料的打印，比如按“打印本页面资料”按钮，就把页面资料打印出来？
另一个就是数据库的备份问题，
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
这个备份程序已经设定了备份路径，但如果我想要让用户自己选择备份路径，比如按“浏览”然后就弹出一个窗口，让用户选择数据库的备份路径（就象用迅雷下载资料时选择资料保存路径一样），这样应该怎么实现？我的毕业设计就差这两个模块了，知道的请告诉一下，谢谢！！！

<a href=# onclick="window.print()">打印</a>
自己选择服务器上的目录不好实现，没有现成的控件，不过能用FSO组件列出服务器的目录情况

可以用file:
前台:
<input name="savepath" type="file" id="savepath" size="40" />
<%

FilePath=Server.MapPath("abc.mdb") '获取数据库的相对路径
Copypath=Server.MapPath(trim(request.form("savepath"))) '设置数据库备份的路径
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject") '建立实例对象
IF fso.FileExists(FilePath) Then '判断数据库是否存在
fso.CopyFile FilePath,Copypath
ELse
Response.Write"文件不存在!"
End IF