'''
访问： 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
加好友 
发短信
Post By：2023/4/24 18:22:00 [只看该作者]
