Dim e As RequestEventArgs = args(0)
Dim wb As new weui
wb.AddForm("","mycus","mycus_query.html")
With wb.AddInputGroup("mycus","ipg1","查询")
With .AddInputCell("ic5")
.AddLabel("pazh","账号: ",0)
.AddInput("pa_cas_acc_num","text",1)
.AddVcodeButton("pajm","-- -- -- 查 询 -- -- --",2).Attribute = ""
End With
.AddHidenValue("download_path","")
End With
With wb.AddDialog("","dialogok","","请检查账户是否正确,如有问题请联系管理员")
.AddButton("btnok","确定")
End With
With wb.AddDialog("","dialogerror","","")
.AddButton("btndownload","下载",).Attribute = ""
.AddButton("btnok","取消")
End With
With wb.AddPageFooter("","pf1","在这里您可以查看和编辑自己的账户")
.AddLink("返回上一级","./business_info.html")
End With
wb.AppendHTML("<script>initExWeUI();</script>") '调用initExWeUI();初始化框架
wb.AppendHTML("<script src='./lib/mycusquery.js'></script>")
wb.AppendHTML("<script src='./lib/mycus.js'></script>")
'wb.AppendHTML("<script>document.getElementById('download_path').parentNode.parentNode.style.display = 'none';</script>")
e.writestring(wb.Build)