以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  扫描网址是白板  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120596)

--  作者:lihe60
--  发布时间:2018/6/20 11:00:00
--  扫描网址是白板
打扫字符串是正常取值,但扫描网址是白板,是这个JS代码的问题吗?

function scaned( t, r, f ) {
    if(r.indexOf("http") == 0 || r.indexOf("www") == 0) {
        location=r
    }
    else
        {
        document.getElementById(\'扫描结果\').value=r;
    }
}

--  作者:lihe60
--  发布时间:2018/6/20 11:09:00
--  
function scaned( t, r, f ) {
    if(r.indexOf("http") == 0 || r.indexOf("www") == 0) {
        location=“www.sohu.com”
    }
    else
        {
        document.getElementById(\'扫描结果\').value=r;
    }
}

手机屏幕也是白板。

--  作者:有点甜
--  发布时间:2018/6/20 11:26:00
--  
弹出什么?
 
function scaned( t, r, f ) {
    alert(r);
    if(r.indexOf("http") == 0 || r.indexOf("www") == 0) {
alert(r);
        location=r
    }
    else
        {
        document.getElementById(\'扫描结果\').value=r;
    }
}

--  作者:lihe60
--  发布时间:2018/6/20 12:14:00
--  
下面是代码,什么也不弹出。

Dim e As RequestEventArgs = args(0)
Dim path = args(1)
wb = new weui

If e.PostValues("扫描结果")=Nothing
    wb.AppendHTML("<script type=\'text/javascript\' src=\'/" & path & "/js/common.js\'></script>", True)
    wb.AppendHTML("<link rel=\'stylesheet\' href=\'/" & path & "/css/common.css\' Type=\'text/css\' charset=\'utf-8\'/>", True)
    
    wb.AddForm("","form1","scan1")
    With wb.AddInputGroup("form1","ipg1","扫描")
        .AddInput("扫描结果","扫描结果","Text")
    End With
    
    With wb.AddButtonGroup("form1","btg1",False)
        .Add("btn1", "扫一扫", "button").Attribute = " & path & "/plus/barcode_scan.html\',true,true);"""
        .Add("btn2", "确定", "",e.PostValues("扫描结果"))
    End With
    \' wb.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById(\'扫描结果\').value=r;}</script>")
    wb.InsertHTML("<script>function scaned( t, r, f ) {if(r.indexOf(\'http\') == 0 || r.indexOf(\'www\') == 0){location=r;}else{document.getElementById(\'扫描结果\').value=r;}}</script>")
    e.WriteString(wb.Build)
Else
    Dim r As Row=Tables("扫描").addnew()
    r("扫描")=e.PostValues("扫描结果")
    Tables("扫描").save()
    With wb.AddTable("","Table1")
        \'  .CreateFromDataTable(DataTables("扫描"),True)
    End With
    e.WriteString(wb.Build)
End If


下面是JS
//扫描
alert(1)
function scaned( t, r, f ) {

alert(r)
    if(r.indexOf("http") == 0 || r.indexOf("www") == 0) {
alert(r)
        location=r
    }
    else
        {
        document.getElementById(\'扫描结果\').value=r;
    }
}





--  作者:有点甜
--  发布时间:2018/6/20 12:23:00
--  

js文件里面不要写代码。

 

修改下面代码,弹出什么?

 

wb.InsertHTML("<script>function scaned( t, r, f ) {alert(r);if(r.indexOf(\'http\') == 0 || r.indexOf(\'www\') == 0){alert(r);location=r;}else{document.getElementById(\'扫描结果\').value=r;}}</script>")


--  作者:lihe60
--  发布时间:2018/6/20 13:08:00
--  

js文件里面不要写代码。是什么意思?

按5楼的代码修改,手机弹出”打包网站成APP测试www.sohu.com",接着又是白板。

[此贴子已经被作者于2018/6/20 14:42:33编辑过]

--  作者:lihe60
--  发布时间:2018/6/20 14:43:00
--  
有解吗?
--  作者:有点甜
--  发布时间:2018/6/20 14:50:00
--  
以下是引用lihe60在2018/6/20 13:08:00的发言:

js文件里面不要写代码。是什么意思?

按5楼的代码修改,手机弹出”打包网站成APP测试www.sohu.com",接着又是白板。

[此贴子已经被作者于2018/6/20 14:42:33编辑过]

 

不可能,做一个具体项目发上来测试。


--  作者:lihe60
--  发布时间:2018/6/20 15:01:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试.foxdb


--  作者:lihe60
--  发布时间:2018/6/20 15:02:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:foxtableapptest.rar