关于网页下载文件的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师

我的网页内容如下：

e.WriteString("请<a href='http://127.0.0.1/a.htm'>下载</a>文件.")

Dim e As RequestEventArgs = args(0)
e.Resp
e.WriteFile("F:\test\123.pdf")

如果是在浏览器中打开是没有问题的。

但是如果我变成企业号中的信息。信息内容如下：

Dim msg As String = "请<a href='http://127.0.0.1/a.htm'>下载</a>文件."

下载也是蓝色。但是点击就会出错。

没有出错，但打开就是一堆乱码。请看图片。
图片点击可在新窗口打开查看

此主题相关图片如下：a32138be6c188c072847cf1552eac4a.jpg

就是发了一条短信给企业号的应用，短信上有一个链接。具体看图片。
图片点击可在新窗口打开查看

此主题相关图片如下：3ab5ee06d62f58098a0e3b42ac823ca.jpg

短信的内容就是：

Dim msg As String = "请<a href='http://127.0.0.1/a.htm'>fa piao号码18</a>文件."

多谢！

就是在短信的内容上加上一个连接，希望点击就能下载服务器上的文件，不知道要如何实现？

可以是可以了不过在企业号里显示双不一样了，边a标签都显示出来了。

大家有什么好方法吗？

有点蓝老师

我用WeUI 框架开发的企业号应用我服务器上有文件a.pdf. 我想点击一个按键就下载这个文件代码如下：

With wb.AddButtonGroup("form1", "btgg1", True) '垂直排列

.Add("btn", "文件名", "button").Attribute = "onclick= javascrtpt:window.location.href='路径/a.pdf'"

end with

这种没有问题，一点击按键就会自动下载想要的文件。

现在公司有要求要主动发送企业号信息给相关的人员，消息上面要带上连接信息，点击连接信息就可以下载文件。发送信息过程没有问题

我的信息体如下：

Dim msg As String = "文件已经完成,请<a href='http://www.xxx.com.cn/xzwj.htm'>下载</a>."

在企业号中显示是没有问题的。下载也是蓝色的。但就是一点击就会出错。要怎么写才能和上面按键的效果一样，点击就能下载文件？

另外，http://www.xxx.com.cn/xzwj.htm 这个网址在浏览器上是可以直接显示pdf 文件的，不是下载，是直接显示。

麻烦老师指导一下！

我后头端的代码如下：

Dim e As RequestEventArgs = args(0)
e.Resp
Dim ml As String = "F:\路径\a.pdf"
If FileSys.FileExists(ml) Then
e.WriteFile(ml)
Else
e.WriteString("请联系管理员2!")
End If

主题：关于网页下载文件的问题