Dim e As RequestEventArgs = args(0)
Dim path = args(1)
wb = new weui
'DataTables("扫描").loadfilter="1=1"
'DataTables("扫描").load()
'Dim s As String=Tables("扫描").Rows(0)("扫描")
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("btn1", "确定", "button").Attribute = "location='./zcbh');"""
End With
wb.AppendHTML("<script src='./lib/scan1.js'></script>") '引入脚本文件
' wb.InsertHTML("<script>Function scaned( t, r, f ) {If(r.indexOf('http') == 0 || r.indexOf('www') == 0){location='http://' + r.replace('http://', '');}else{document.getElementById('扫描结果').value=r;}}</script>")
e.WriteString(wb.Build)
Else
cmd.commandtext="sele ct * from {资产管理} where 二维码名称='" & e.PostValues("扫描结果") & "'"
lsdt=cmd.ExecuteReader()
' Dim r As Row=Tables("扫描").addnew()
' r("扫描")=e.PostValues("扫描结果")
' Tables("扫描").save()
With wb.AddTable("","Table1")
.CreateFromDataTable(lsdt,True)
End With
e.WriteString(wb.Build)
End If
这是生成页面的代码。
加好友 
发短信
Post By：2018/6/26 10:09:00 [只看该作者]
此主题相关图片如下：qq截图20180626104812.png