Dim e As RequestEventArgs = args(0)
Dim wb As new weui
wb.AppendHTML("<link rel='icon' href='./qq.ico' Type='image/x-icon' />")
wb.AddPageTitle("","PageHeader","手机客流收集","由信息部**开发,登录部门为:" & e.Cookies("mendianname") & "," & e.Cookies("diquname") & "," & e.Cookies("quyuname") )
With wb.AddGrid("","g1")
.Add("c1","客流信息", "./images/bb01.png","http://11.2.3.4:41111/flowcreate.htm")
.Add("c2","客流查询", "./images/bb02.png","http://11.2.3.4:41111/flowquery.htm")
.Add("c3","退出", "./images/exit.png", "exit.htm") '退出登录
End With
e.WriteString(wb.Build)
加好友 
发短信
Post By：2019/1/22 14:14:00 [显示全部帖子]
