以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  苹果 微信下载出现乱码，这是什么原因？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140364)
--  作者：xluoping
--  发布时间：2019/9/4 11:09:00
--  苹果 微信下载出现乱码，这是什么原因？
苹果 微信点击下载链接后，出现乱码，是什么原因，请老师帮助！

Dim e As RequestEventArgs = args(0)  \'网页函数开始
Dim wb As New weui \'微信框架

 Dim fl As String = "d:\\web\\images\\国际化学品安全卡\\MSDS压缩包1692项.rar"  \'合成含路径的文件名
    If filesys.FileExists(fl) \'如果是请求一个已经存在的文件
        Dim drxz As DataRow = DataTables("下载授权").SQLFind("openid = \'" & e.Cookies("openid") & "\' and 文件名 = \'MSDS压缩包1692项.rar\' and (有效期 is null or 有效期 >= \'" & Date.Today & "\')")
        If drxz IsNot Nothing Then
            Dim dat As Date = drxz("末次时间")
            If drxz.IsNull("末次时间") = False AndAlso dat.AddMinutes(5) > Date.Now Then
                wb.AddToast("","t2", "你已经申请下载了,如未收到请5分钟后再试或联系管理员!",1).msec = 2000
                wb.AppendHTML("<script src=\'./js/fanhui.js\'></script>") \'引入脚本文件,返回前页
            Else
                drxz("文件夹") = "国际化学品安全卡"
                drxz("末次时间") = Date.Now
                Dim ia As Integer = drxz("下载次数")
                drxz("下载次数") = ia + 1
                drxz("邮箱") = e.Cookies("smail")
                drxz("发送") = True
                drxz.Save()
                Dim iaa As Integer = Rand.Next(100, 999)
                Dim iia As Integer = drxz("_Identify")
                Dim stii As String = "http://" & e.host & "/MSDS压缩包1692项.rar?xzai=" & iaa & "-" & iia & "-" & iaa * 38 + iia * 3 + 88 & "&id=1"
                With wb.AddInputGroup("","igp99")
                    .Attribute = "style=\'position:absolute;top:-100px;\'"
                    \'  .AddHidenValue("urla",stii)
                    With .AddInput("urla","下载网址","text")
                        .Value = stii
                    End With
                End With
                wb.AppendHTML("<script src=\'./js/copyul.js\'></script>") \'引入脚本文件,返回前页
                \' wb.AddToast("","t2", "正在发送,5分钟后查收邮箱",1).msec = 2000
                With wb.AddDialog("","dlg144", "提示","5分钟后将到达你邮箱!")
                    \'.AddButton("btnOK","确定").Attribute = """
                    .AddButton("btnOK","确定",stii).Attribute = """
                    .Visible = True
                End With
            End If
        Else
            Dim drop As DataRow = DataTables("WXUsers").SQLFind("openid = \'" & e.Cookies("openid") & "\' and YM币库存 >= 10")  \'是否有超过10个YM币
            If drop IsNot Nothing Then
                drop("YM币库存") = drop("YM币库存") - 10
                drop.Save()
                drxz = DataTables("下载授权").AddNew()
                drxz("文件名") =  "MSDS压缩包1692项.rar"
                drxz("文件夹") = "国际化学品安全卡"
                drxz("openid") = e.Cookies("openid")
                drxz("授权时间") = Date.Now
                drxz("末次时间") = Date.Now
                Dim ia As Integer = drxz("下载次数")
                drxz("下载次数") = ia + 1
                drxz("邮箱") = e.Cookies("smail")
                drxz("发送") = True
                drxz.Save()
                Dim iaa As Integer = Rand.Next(100, 999)
                Dim iia As Integer = drxz("_Identify")
                \' Dim stii As String = "http://" & e.host & "/excel.htm?xzai=" & iaa & "-" & iia & "-" & iaa * 38 + iia * 3 + 88 & "&id=1"
                Dim stii As String = "http://" & e.host & "/MSDS压缩包1692项.rar?xzai=" & iaa & "-" & iia & "-" & iaa * 38 + iia * 3 + 88 & "&id=1"
                With wb.AddInputGroup("","igp99")
                    .Attribute = "style=\'position:absolute;top:-100px;\'"
                    \'  .AddHidenValue("urla",stii)
                    With .AddInput("urla","下载网址","text")
                        .Value = stii
                    End With
                End With
                wb.AppendHTML("<script src=\'./js/copyul.js\'></script>") \'引入脚本文件,返回前页
                \' wb.AddToast("","t2", "正在发送,5分钟后查收邮箱",1).msec = 2000
                With wb.AddDialog("","dlg144", "提示","5分钟后将到达你邮箱!")
                    \'.AddButton("btnOK","确定").Attribute = """
                    .AddButton("btnOK","确定",stii).Attribute = """
                    .Visible = True
                End With
                
                
            Else
                With wb.AddDialog("","dlg1","下载未授权/余额不足10币","请点击支付10元或右上角分享链接获取下载权限")
                    .AddButton("bnta", "支付","jsapipay/chongzhi.htm?wen=msds")
                    With .AddButton("btnCancel","取消")
                        .Kind = 1
                        .Attribute = ""
                    End With
                    .Visible = True
                End With
            End If
            
        End If
    Else
        wb.AddToast("","t2", "很抱歉,文件未存入服务器,请加客服微信索取!",1).msec = 2000
        wb.AppendHTML("<script src=\'./js/fanhui.js\'></script>") \'引入脚本文件,返回前页
    End If
--  作者：有点蓝
--  发布时间：2019/9/4 11:23:00
--  
试试：http://www.foxtable.com/mobilehelp/topics/0022.htm

.AddButton("btnOK","确定",stii).Attribute = "这里是什么内容？""
--  作者：xluoping
--  发布时间：2019/9/4 15:47:00
--  HttpRequest 中加以下不可以，还是乱码
HttpRequest 中加以下不可以，还是乱码

e.Resp \'设置网页编码为gb2312

那个按钮是拷贝的一个链接：http://weixin.anyinet.net/1379-(%E7%9F%B3%E6%B2%B9)%E8%92%B8%E9%A6%8F%E9%A6%8F%E5%87%BA%E6%B6%B2(%E5%8A%A0%E6%B0%A2%E5%A4%84%E7%90%86%E8%BD%BB%E7%BB%84%E5%88%86)-%E5%9B%BD%E9%99%85%E5%8C%96%E5%AD%A6%E5%93%81%E5%AE%89%E5%85%A8%E5%8D%A1MSDS.rar?xzai=756-169-29323&id=1

苹果 微信浏览器乱码对应的链接，这是foxtable后台形成的网页，

Dim e As RequestEventArgs = args(0)  \'网页函数开始
\'MessageBox.Show(e.Request.url.Tostring)
If e.GetValues.ContainsKey("xzai") AndAlso e.GetValues.ContainsKey("id") Then
    Dim wb As New weui \'微信框架
    wb.title = "文件下载"
   \' e.Resp \'设置网页编码为gb2312
    Dim Multi As String = e.GetValues("xzai")
    Dim Values() As String
    Values = Multi.split("-")
    If Values.Length = 3 Then
        Dim i,ii,iii As Integer
        i = Values(0)
        ii = Values(1)
        iii = Values(2)
        If iii = i * 38 + ii * 3 + 88 Then  \'验证密码的正确
            Dim drw As DataRow = DataTables("下载授权").SQLFind("_Identify = " & ii)
            If drw IsNot Nothing AndAlso (drw.IsNull("末次时间") OrElse drw("末次时间") > Date.Now.AddMonths(-1)) Then \'是否存在记录,过期
                Dim fl As String = "错误"
                Select Case e.GetValues("id")
                    Case 1   \'国际化学品安全卡
                        fl = "国际化学品安全卡"
                    Case 2
                        fl = "法律法规"
                End Select
                fl  = "d:\\web\\images\\" & fl & "\\" & drw("文件名")   \'合成含路径的文件名
                wb.title = drw("文件名") &  "下载"
                If filesys.FileExists(fl) Then \'如果是请求一个已经存在的文件
                     e.WriteFile(fl)
                    Return ""                   
                End If
            Else
                wb.AddToast("","t2", "链接已过期了",1).msec = 10000
                \'链接已过期了
            End If
        Else
            wb.AddToast("","t2", "下载链接错误",1).msec = 10000
            \'下载链接错误
        End If
    Else
        wb.AddToast("","t2", "下载链接错误",1).msec = 10000
        \'下载链接错误
    End If
    e.WriteString(wb.Build)
End If
--  作者：有点蓝
--  发布时间：2019/9/4 16:17:00
--  
没有苹果手机，无法测试您的问题。如果安卓和PC端都没有问题，建议联系微信的客服测试一下