主题：下载地址动态文件名怎么合成。。。

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()

Dim name As String = "盘点明细表" & Date.Today & Date.now.hour & Date.now.Minute & ".xls"

ex.FilePath = "C:\inetpub\wwwroot\pandian\" & name

ex.NewTableName = "盘点明细表"

e.Response.Headers("Content-Disposition") = "attachment;filename=" & name