Web访问Domino，如何下载服务器的磁盘上的Excel文件

我们现在正在开发一套基于Domino的bs应用，应用中有如下的一个功能，但是不知道怎么实现好：
 用户在ie端发起操作，Domino服务器根据用户的请求，在服务器上生成相应的Excel文件，然后在下载至ie端。
 各位帮忙看看有什么好的解决方法？ --------------------编程问答-------------------- 参考这个看看。
Sub Initialize
On Error Goto errmsg

Print |Content-Type:application/vnd.ms-excel;charset=GBK|
Print | <meta http-equiv="Content-Type" content="text/html; charset=GBK">|
Dim s As New notessession
Dim doc As NotesDocument
Dim db As NotesDatabase

Dim view As NotesView
Dim htmlstr As String

Set db = s.CurrentDatabase
Set view = db.GetView("Notes_GroupPersonList")

htmlstr = htmlstr & " <table border=1>"
htmlstr = htmlstr &" <tr>"
htmlstr = htmlstr &" <td colspan='8' align='center'> "+DateStr$+"Rocket Service项目组通讯录"+" </td>"
htmlstr = htmlstr &" </tr>"
htmlstr = htmlstr & " <tr>"
htmlstr = htmlstr & " <td width='8%' height='19' align='center' bgcolor='#666666'> 姓名 </td>"
htmlstr = htmlstr & " <td width='8%' height='19' align='center' bgcolor='#666666'> 所属公司 </td>"
htmlstr = htmlstr & " <td width='15%' height='19' align='center' bgcolor='#666666'> 工作内容 </td>"
htmlstr = htmlstr & " <td width='10%' height='19' align='center' bgcolor='#666666'> 电话 </td>"
htmlstr = htmlstr & " <td width='15%' height='19' align='center' bgcolor='#666666'> 手机 </td>"
htmlstr = htmlstr & " <td width='15%' height='19' align='center' bgcolor='#666666'> 邮箱 </td>"
htmlstr = htmlstr & " <td width='30%' height='19' align='center' bgcolor='#666666'> Skype </td>"
htmlstr = htmlstr & " <td width='30%' height='19' align='center' bgcolor='#666666'> 到岗日期 </td>"
htmlstr = htmlstr & " <td width='30%' height='19' align='center' bgcolor='#666666'> 服务方式 </td>"
htmlstr = htmlstr & " </tr>"
Set doc = view.GetFirstDocument
While Not(doc Is Nothing)
htmlstr = htmlstr+ " <tr>"
htmlstr = htmlstr+ " <td height='19' align='center' bgcolor='#ffffff'> "+doc.CName(0)+" </td>"
htmlstr = htmlstr+ " <td height='19' align='center' bgcolor='#ffffff'> "+doc.CompanyName(0)+" </td>"
htmlstr = htmlstr+ " <td height='19' align='center' bgcolor='#ffffff'> "+doc.WorkSummary(0)+" </td>"
htmlstr = htmlstr+ " <td height='19' align='center' bgcolor='#ffffff'> "+doc.Phone(0)+" </td>"
htmlstr = htmlstr+ " <td height='19' align='center' bgcolor='#ffffff'> "+doc.Mobile(0)+" </td>"
htmlstr = htmlstr+ " <td height='19' align='center' bgcolor='#ffffff'> "+doc.EmaiAddress(0)+" </td>"
htmlstr = htmlstr+ " <td height='19' align='center' bgcolor='#ffffff'> "+doc.SkypeAddress(0)+" </td>"
htmlstr = htmlstr+ " <td height='19' align='center' bgcolor='#ffffff'> "+doc.OnBoardDate(0)+" </td>"
htmlstr = htmlstr+ " <td height='19' align='center' bgcolor='#ffffff'> "+doc.ServiceType(0)+" </td>"
htmlstr = htmlstr+ " </tr>"
Set doc = view.GetNextDocument(doc)
Wend
htmlstr = htmlstr+ " </table>"

Print htmlstr
errmsg:
If Cstr(Erl) = "0" Then
Msgbox "代理程序成功执行完毕！"
Else
Msgbox "代理程序出错..出错行数为:" & Cstr(Erl) & "行！错误原因为:" & Error
End If
End Sub

补充：企业软件 ,  Lotus