wb.InsertHTML("<div ><button onclick=javascrtpt:window.location.href=\'download.txt\'>下载</button></div>")

在download.txt里面生成和下载文件 http://www.foxtable.com/mobilehelp/scr/0160.htm

httprequest事件直接写下面代码，如果你实现了，还有什么问题？

Select Case e.Path
    Case "download.txt"
       
        Dim ex As New Exporter
        ex.SourceTableName = "盘点明细表" \'指定导出表
        ex.FilePath = "C:\\inetpub\\wwwroot\\pandian\\" \'指定目标文件路径
        \'ex.Filter = filter1
        ex.Format = "Delimited"
        ex.NewTableName = "盘点明细表" & Date.Today
        ex.Export() \'开始导出
       
        e.WriteFile("C:\\inetpub\\wwwroot\\pandian\\" & ex.NewTableName & ".txt")
End Select

mark 下载文件

        
        Dim fs As System.IO.FileStream = Nothing
        fs = System.IO.File.Open("d:\\test.txt", System.IO.FileMode.Open)
        Dim btFile As Byte() = New Byte(fs.Length - 1) {}
        fs.Read(btFile, 0, Convert.ToInt32(fs.Length))
        fs.Close()
       
        e.Response.Headers("Content-Disposition") = "attachment;filename=test.txt"
        \'输出文件格式
        e.Response.ContentType = "application/octet-stream"
        
        Dim output = e.response.OutputStream
        output.Write(btFile,0,btFile.Length)
        output.Close()