以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  e.WriteFile在客户端下载文件后缀名.docx变成了.html  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186365)
--  作者：xluoping
--  发布时间：2023/4/24 18:22:00
--  e.WriteFile在客户端下载文件后缀名.docx变成了.html
\'\'\'
访问： baogao.html?id=jhjdhfjhgjdiiheu&yan=CInt(Format(Date.Now,"MMddHHmm")) \\ 58 

Dim e As RequestEventArgs = args(0)  \'非wefox 网页
Dim wb As New weui
Dim hst As String = e.Host
If e.GetValues.ContainsKey("yan") Then
    Dim baogaodr As DataRow = DataTables("报告").SQLFind("_id = \'" & e.GetValues("id") & "\' and 报告上传 is not null")
    If baogaodr Is Nothing Then
        e.WriteString("系统中没有这份报告！")
    End If
    If e.GetValues("yan") = CInt(Format(Date.Now,"MMddHHmm")) \\ 58 Then
        e.WriteFile("D:\\EHSFTP" & baogaodr("报告上传"))
    Else
        e.WriteString("非法访问链接！")
    End If
    Return ""
End If

baogaodr("报告上传") 是本地的一个 .docx文件，但是客户端点击下载，保存提成为baogao.html

怎样 才能 下载为baogao.docx
--  作者：有点蓝
--  发布时间：2023/4/24 20:14:00
--  
访问的地址改为

baogao.docx?id=jhjdhfjhgjdiiheu&yan=..........