test.htm代码如下
Dim e As RequestEventArgs = args(0)
Dim path As String = "foxtableAppTest"
Dim wb As new weui
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","test.htm")
With wb.AddInputGroup("form1","ipg1","测试")
.AddInput("姓名","姓名","Text")
End With
With wb.AddButtonGroup("form1","btn1",True)
.Add("btn1", "扫一扫", "button").Attribute = " & path & "/plus/barcode_scan.html',true,true);"""
End With
wb.AppendHTML("<div id='p1' style='margin:0.5em'></div>") '插入一个div,用于显示服务器返回的数据
wb.InsertHTML("<script>function scaned( t, r, f ) {var result = sendAjaxText(r,'accept.htm','',False);document.getElementById('p1').innerHTML=result;}</script>")
e.WriteString(wb.Build)
accept.htm 代码如下：
Dim e As RequestEventArgs = args(0)
e.Writestring(e.PlainText)
扫描后返回不了数据，请问是哪里出错了？
[此贴子已经被作者于2018/4/7 16:28:13编辑过]
加好友 
发短信
Post By：2018/4/6 22:40:00 [只看该作者]
此主题相关图片如下：screenshot_2018-04-07-12-27-10-249_io.dcloud.h5c8.png
