Foxtable(狐表) → 用户栏目 → 专家坐堂 → 苹果 微信下载出现乱码，这是什么原因？


  共有4378人关注过本帖树形打印复制链接

主题：苹果 微信下载出现乱码，这是什么原因？
帅哥哟，离线，有人找我吗？
xluoping
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：374 积分：3834 威望：0 精华：0 注册：2016/4/2 12:11:00 		苹果 微信下载出现乱码，这是什么原因？  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
xluoping
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：374 积分：3834 威望：0 精华：0 注册：2016/4/2 12:11:00 		HttpRequest 中加以下不可以，还是乱码  发帖心情 Post By：2019/9/4 15:47:00 [显示全部帖子]

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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询