- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如果扫描的结果是网页，如何登录到这个网页 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=119988)
-- 发布时间：2018/6/5 12:03: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")
\' .AddInput("年龄","年龄","number")
End With
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn1", "扫一扫", "button").Attribute = " & path & "/plus/barcode_scan.html\',true,true);"""
.Add("btn1", "确定", "submit")
End With
wb.InsertHTML("<script>function scaned( t, r, f ) {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")
\'按日期顺序列出客户CS01的订单,仅显示产品/数量/单价/日期/审核等五列
.CreateFromDataTable(DataTables("扫描"),True)
End With
e.WriteString(wb.Build)
End If
-- 发布时间：2018/6/5 12:22:00
--
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>")
-- 发布时间：2018/6/5 12:48:00
--
2楼的代码，有这个提示
此主题相关图片如下：无标题.png
-- 发布时间：2018/6/5 13:44:00
--
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>")
这样写了一下，扫描后，没有任何反应。
-- 发布时间：2018/6/5 15:12:00
--
还是不行哦，有高手能解吗？
-- 发布时间：2018/6/5 15:51:00
--
wb.InsertHTML("<script>function scaned( t, r, f ) {alert(r);if(r.indexOf(\'http\') == 0 || r.indexOf(\'www\') == 0){alert(1);location=r;}else{alert(2);document.getElementById(\'扫描结果\').value=r;}}</script>")
-- 发布时间：2018/6/5 16:06:00
--
wb.InsertHTML("<script>function scaned( t, r, f ) {if(r.indexOf(\'http\') == 0 || r.indexOf(\'www\') == 0){alert(r);location=r;}else{document.getElementById(\'扫描结果\').value=r;}}</script>")
[此贴子已经被作者于2018/6/5 16:25:46编辑过]
-- 发布时间：2018/6/5 16:08:00
--
代码没问题，不可能有问题。我测试正常。
-- 发布时间：2018/6/5 16:15:00
--
但我的有问题。
把你的项目文件上传上来，及JS也上传一下。
[此贴子已经被作者于2018/6/5 16:22:10编辑过]
-- 发布时间：2018/6/5 16:24:00
--
再者，与浏览器有没有关系？