以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  调不出来微信扫描二微码功能  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=111439)

--  作者:lihe60
--  发布时间:2017/12/21 21:38:00
--  调不出来微信扫描二微码功能
在微信中中输入http://121.199.60.155/barcode,出现截图,输入http://lihe1008.vicp.io/barcode。出现错误。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:公众号.foxdb

图片点击可在新窗口打开查看此主题相关图片如下:无标题.png
图片点击可在新窗口打开查看


--  作者:lihe60
--  发布时间:2017/12/21 21:40:00
--  
在微信中输入http://121.199.60.155/barcode,出现截图,点扫码输入,没有任何反应;输入http://lihe1008.vicp.io/barcode,出现错误。
[此贴子已经被作者于2017/12/21 21:40:08编辑过]

--  作者:有点甜
--  发布时间:2017/12/21 23:41:00
--  

1、weui请弄进去啊

 

http://www.foxtable.com/mobilehelp/scr/0011.htm

 

2、下载开发者工具调试

 

https://mp.weixin.qq.com/wiki?t=resource/res_main&id=mp1455784140

 


--  作者:lihe60
--  发布时间:2017/12/22 12:38:00
--  

alert(111)

wx.ready(function () {

    document.getElementById(\'scan\').onclick = function () {

        wx.scanQRCode({

            needResult: 1,

            scanType: [\'qrCode\',\'barCode\'],

            success: function (res) {

                document.getElementById(\'number\').value = res.resultStr;

            }

        });

    };

});

wx.error(function (res) {

    //alert(res.errMsg);

});



jssdk.js没有提示,是不是下代码没有执行


wb.AppendHTML("<script src=\'./lib/jssdk.js\'></script>") \'引入脚本文件



--  作者:有点甜
--  发布时间:2017/12/22 14:15:00
--  

1、weui请弄进去啊,先让页面正常显示,正常下载js等文件

 

http://www.foxtable.com/mobilehelp/scr/0011.htm

 

2、你web/lib文件夹下要有对应的js文件 jssdk.js

 


--  作者:lihe60
--  发布时间:2017/12/22 14:37:00
--  
这两都正确的。
图片点击可在新窗口打开查看此主题相关图片如下:无标题.png
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2017/12/22 14:40:00
--  

httprequest加上代码

 

Dim fl As String = "d:\\web\\" & e.path
If
filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
            e.WriteFile(fl)
            Return
\'
这里必须返回
    End
Select

End
If