pdscan.htm 代码如下，要怎么改呢？
//发送JSON对象
function pdScanFunction()
{
var result = submitAjaxForm('form1','',false); //false 表示同步执行
//如果正确跳出验证对话框，确定后转目标网页 如果不正确，则跳出对话框停留在该页。
if (result =='exist') //查到重复盘点记录
{
showDialog('dlg4','!!!警告!!!','发现存在重复盘点记录！');
// show('dlg4')
return false; //停止执行，返回false
}
else //可以正常记录盘点结果
{
location = "/CheckPd.htm?AssetNumber=" + result;
return true;
}
}
pdscan.htm 的代码如下：
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
' wb.AddForm("","form1","CheckPd.htm").Attribute="" 'checkpd.htm 是接收结果的页面
wb.AddForm("","form1","CheckPd.htm") '.Attribute="" ' 由CheckPd接收提交的数据
With wb.AddInputGroup("form1","ipg1","设备资料")
.AddInput("AssetNumber","资产编号","Text") '前一个"AssetNumber"是ID,后一个"资产编号"是标题
.AddHidenValue("test","test")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btnOK","确定","button").Attribute="" 'button千万不能写成submit,否则就会造成数据提交两遍
'.Add("btnOK","继续","./CheckPd.htm?AssetNumber=" & "172.16.5.1" )
End With
'存在重复盘点记录时,给出是否重新盘点的提示.
With wb.AddDialog("","dlg4", "重新盘点确认","您确定要对当前设备重新盘点吗?")
.AddButton("btnCancel","取消").Kind = 1
.AddButton("btnOK","继续","./CheckPd.htm?AssetNumber=" & e.Cookies("AssetNumber") )
End With
wb.InsertHTML("<script>assetnumber.focus(); </script>")
wb.AppendHTML("<script src='./ajax/libs/pdScan.js'></script>") '引入脚本文件
e.WriteString(wb.Build)
加好友 
发短信
Post By：2019/1/2 17:31:00 [只看该作者]
