Dim dr As DataRow = DataTables("乡镇体检人员").SQLFind("姓名 = '" & DecryptText(e.Cookies("zxygxm"),"121212121","121212121") & "'")
If dr Is Nothing Then
'增加三个页面,一个按钮
With wb.AddTabBar("", "tb1", 0)
.AddPage("page1","考勤","./images/jiabanjilu.jpg")
.AddPage("page2","查询","./images/jiankangzhengming.jpg")
.AddPage("page3","设置","./images/shezhi.jpg")
.AddPage("page4","服务","./images/wodetubiao.jpg")
End With
'为第一个页面增加内容
With wb.AddArticle("page1","pg1")
.AddTitle("h2 align='center' style='margin-top:25px;color:Blue'","考勤管理")
With wb.AddListGroup("page1", "g1","")
wb.InsertHTML("<html>")
wb.InsertHTML("<head>")
wb.InsertHTML("<style>")
wb.InsertHTML("#header {")
wb.InsertHTML("background-color:black;")
wb.InsertHTML("color:white;")
wb.InsertHTML("text-align:center;")
wb.InsertHTML("padding:15px;")
wb.InsertHTML("</style>")
wb.InsertHTML("</head>")
wb.InsertHTML("<body>")
wb.InsertHTML("<div id=""header"">")
wb.InsertHTML("<h3>考勤管理</h3>")
wb.InsertHTML("</div>")
wb.InsertHTML("</body>")
wb.InsertHTML("</html>")
End With
End With
'为第二个页面增加内容
With wb.AddArticle("page2","pg2")
.AddTitle("h2 align='center' style='margin-top:25px;color:Blue'","请销假查询")
With wb.AddListGroup("page2", "g2","")
.Add("ls4","科室未审", "查询", "qingjiachaxun.htm", "./images/kaoqingchaxun.jpg")
.Add("ls4","领导未批", "查询", "qxjsqshenpi.htm", "./images/kaoqingchaxun.jpg")
.Add("ls4","科室未销", "查询", "xjkszhengming.htm", "./images/kaoqingchaxun.jpg")
End With
End With
'为第三个页面增加内容
With wb.AddArticle("page3","pg3")
.AddTitle("h2 align='center' style='margin-top:25px;color:Blue'","系统设置")
With wb.AddListGroup("page3", "g3","")
.Add("ls7","修改密码", "修改", "xiugaimm.htm", "./images/xiugaimm.jpg")
.Add("ls8","退出系统", "退出", "exit.htm", "./images/tuichuxitong.jpg")
End With
End With
'为第四个页面增加内容
With wb.AddArticle("page4","pg4")
.UseGallery = True
.AddTitle("h2","本系统由XXXXXXXXXXXXXXXX张春光开发,联系电话:13807363451")
.AddTitle("h2","系统说明")
.AddTitle("h2","本办公系统分为电脑版和手机版.电脑版大部分已经完成,手机版已完成考勤管理和从业人员体检部分,其它功能还在开发中,敬请期待!随时恭听大家的任何意见和建议.谢谢!")
.AddImage("./images/zhangcg.jpg")
End With
e.WriteString(wb.Build)
Else
With wb.AddTabBar("", "tb2", 0)
.AddPage("page1","登记","./images/jiabanjilu.jpg")
.AddPage("page2","体检","./images/jiankangzhengming.jpg")
.AddPage("page3","查询","./images/shezhi.jpg")
.AddPage("page4","设置","./images/wodetubiao.jpg")
End With
'为第一个页面增加内容
With wb.AddArticle("page1","pg1")
.AddTitle("h2 align='center' style='margin-top:25px;color:Blue'","体检登记")
With wb.AddListGroup("page1", "g1","")
.Add("ls1","体检登记", "登记", "upload.htm", "./images/jiankangzhengming.jpg")
.Add("ls2","体检名单", "统计", "zizhutijiantongji.htm", "./images/zizhutijiandj.jpg")
End With
End With
'为第二个页面增加内容
With wb.AddArticle("page2","pg2")
.AddTitle("h2 align='center' style='margin-top:25px;color:Blue'","体检结果记录")
With wb.AddListGroup("page2", "g2","")
.Add("ls1","采样登记", "采样", "zizhutijiancycx.htm","./images/zizhutijiancy.jpg")
.Add("ls2","放射检查", "放射", "zizhutijianfscx.htm","./images/zizhutijianfs.jpg")
.Add("ls3","内科外科", "内外", "zizhutijiannwkcx.htm","./images/zizhutijiannwk.jpg")
.Add("ls4","检验结果", "检验", "zizhutijianjycx.htm","./images/zizhutijianjy.jpg")
End With
End With
'为第三个页面增加内容
With wb.AddArticle("page3","pg3")
With wb.AddListGroup("page3", "g3","体检查询")
.Add("ls7","新浪主页", "", "qxjsp", "./images/zizhutijiannwk.jpg")
.Add("ls8","网易主页", "163.com", "qxjsp", "./images/tuichuxitong.jpg")
End With
End With
'为第四个页面增加内容
With wb.AddArticle("page4","pg4")
.AddTitle("h2 align='center' style='margin-top:25px;color:Blue'","系统设置")
With wb.AddListGroup("page4", "g4","")
.Add("ls7","修改密码", "修改", "xiugaimm.htm", "./images/xiugaimm.jpg")
.Add("ls8","退出系统", "退出", "exit.htm", "./images/tuichuxitong.jpg")
End With
End With
e.WriteString(wb.Build)
End If
加好友 
发短信
Post By：2018/1/29 10:33:00 [只看该作者]
此主题相关图片如下：screenshot_20180129-102812.png
