Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.AppendHTML("<script src='http://res.wx.qq.com/open/js/jweixin-1.2.0.js'></script>",True) '引入JS-SDK库
wb.AppendHTML("<script src='http://cdn.static.runoob.com/libs/jquery/1.10.2/jquery.min.js'></script>") '引入jQuery库
wb.AppendHTML("<script src='./lib/jssdk.js'></script>") '引入脚本文件
wb.AppendHTML("<script src='./lib/setFocus1.js'></script>")
wb.AppendHTML("<script>document.getElementById('pname').focus();</script>")
wb.AddForm("","form1","zxjc.htm")
With wb.AddInputGroup("form1","ipg1","检测")
.AddInput("pname","品号","text").Attribute="o nke ydown='gb()'"
.AddInput("ph","批号","text")'.attribute ="o n focus='ff()'"
.AddInput("xh","箱号","text")
End With
With wb.AddButtonGroup("form1","btg1",True)
. Add("btn1", "确定", "button").Attribute = ""
End With
e.WriteString(wb.Build)
function keyDown(){
document.getElementById("ph").focus()
}