下面是代码，什么也不弹出。
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;
}
}
加好友 
发短信
Post By：2018/6/20 11:00:00 [只看该作者]
