'''
Dim e As RequestEventArgs = args(0)
Dim path As String = "foxtableAppTest"
Dim wb As new weui
wb.appendHTML("<meta name='viewport' c />",True)
wb.AppendHTML("<script type='text/javascript' src='/" & path & "/js/common.js'></script>", True)
wb.AppendHTML("<link rel='stylesheet' href='/" & path & "/css/common.css' Type='text/css' charset='utf-8'/>", True)
wb.appendHTML("<script src='../mui/css/mui.css'></script>",True)
wb.appendHTML("<script src='../mui/js/mui.js'></script>",True)
wb.appendHTML("<script Type='text/javascript' charset='utf-8'>mui.init();</script>",True)
wb.appendHTML("<style>.fox_page_title{color:white}</style>",True)
wb.appendHTML("<style>.fox_page_subtitle{color:white;}</style>",True)
wb.appendHTML("<style>.fox_page_header{background-color:dodgerblue;}</style>",True)
wb.appendHTML("<style>.weui_label{color:dodgerblue;}</style>",True)
wb.appendHTML("<style>h5,p{margin:8px 16px;}</style>",True)
Dim cmd1 As new SQLCommand
cmd1.C
cmd1.CommandText ="Se/ect DISTINCT 单位,部门,角色 from {单位用户} where 角色='班务'"
Dim dt1 As DataTable = cmd1.ExecuteReader
Dim xxs As List(of String)=dt1.GetValues("单位")
wb.AddPageTitle("","ph1","学生报名","请扫描学校给定的报名码或选填学校及班级")
wb.AddForm("","form1","bmxx.htm")
With wb.AddInputGroup("form1","ipg1","") '
Dim In1 = .AddInput("身份证号","身份证号:","Text")
In1.readonly = True
In1.value = e.Cookies("username")
Dim In2= .AddInput("学生姓名","学生姓名:","Text")
In2.readonly = True
In2.value = e.Cookies("userxm")
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText = "SE/ECT 身份证件号,申读学校,申读班级,录取类型,问题 FROM {学生信息} where 身份证件号 ='" & e.Cookies("username") & "'"
Dim dt As DataTable = cmd.ExecuteReader()
Dim dr As DataRow
If dt.DataRows.Count>0
dr = dt.DataRows(0)
If dr("录取类型")>""
Dim Int1= .AddSelect("申读学校","申读学校:",dr("申读学校"))
' int1.enabled=False
Dim Int2= .Addselect("申读班级","申读班级:",dr("申读班级"))
'int2.enabled=False
Else
Dim Int1 =.AddSelect("申读学校","申读学校:"," |" & String.join("|",xxs.Toarray).replace(e.Cookies("sdxx"), "[" & e.Cookies("sdxx") & "]"))
Int1.attribute=""
Dim Int2= .Addselect("申读班级","申读班级:",dt1.GetComboListString("部门","单位='" & e.Cookies("sdxx") & "'").replace(e.Cookies("sdbj"), "[" & e.Cookies("sdbj") & "]"))
End If
Else
If e.Cookies.ContainsKey("sdxx")
Dim Int1 =.AddSelect("申读学校","申读学校:"," |" & String.join("|",xxs.Toarray).replace(e.Cookies("sdxx"), "[" & e.Cookies("sdxx") & "]"))
Int1.attribute=""
Else
Dim Int1 =.AddSelect("申读学校","申读学校:"," |" & String.join("|",xxs.Toarray))
Int1.attribute=""
End If
If e.Cookies.ContainsKey("sdbj")
Dim Int2= .Addselect("申读班级","申读班级:",dt1.GetComboListString("部门","单位='" & e.Cookies("sdxx") & "'").replace(e.Cookies("sdbj"), "[" & e.Cookies("sdbj") & "]"))
Else
Dim Int2= .Addselect("申读班级","申读班级:","")
End If
End If
.AddHiddenValue("类型","a")
With wb.AddButtonGroup("form1","btg1",False)
Dim btn1= .Add("btn1", "扫报名码", "button")
If dr IsNot Nothing AndAlso dr("录取类型")>""
btn1.kind=1
btn1.enabled=False
Else
btn1.Attribute = " & path & "/plus/barcode_scan.html',true,true);"""
btn1.kind=1
End If
Dim btn2= .Add("btn2", "信息填报", "submit")
btn2.kind=1
Dim btn3= .Add("btn3", "返回", "button")
btn3.kind=1
btn3.Attribute=""
End With
If dr IsNot Nothing AndAlso dr("问题")>""
wb.InSertHtml("form1","<p style= 'font-size:15px;color:red;'>存在信息问题，请修改提交：</P>")
wb.InSertHtml("form1","<p style= 'font-size:15px;'>" & dr("问题") & "</P>")
End If
If dr IsNot Nothing AndAlso dr("录取类型")>""
wb.InSertHtml("form1","<div style= 'background:url(../picture/nqbj.jpg);height:150px;background-size：cover'>" )
wb.InSertHtml("form1","<p style= 'text-align:center;font-size:20px;color:white;margin-top:20px;'>录取通知</P>")
wb.InSertHtml("form1","<p style = 'text-indent:2em;color:white;'>经学校招生小组审核同意，你已被我校录取，请按相关时间安排入学就读，如有申读学校变更，需经学校教务处同意方可进行变更。</P>")
wb.InSertHtml("form1","</div>")
End If
End With
wb.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById('申读学校').value=r.split(',')[0]; document.getElementById('申读班级').value=r.split(',')[1];document.getElementById('类型').value=r.split(',')[2]}</script>")
For Each xx As String In xxs
wb.InsertHTML("<p hidden id='" & xx & "'>" & " |" & dt1.GetComboListString("部门","单位='" & xx & "'") & "</p>")
Next
wb.AppendHTML("<script src=./lib/getsdbj.js></script>")
e.WriteString(wb.Build)
e.Handled=True
加好友 
发短信
Post By：2020/7/23 21:17:00 [只看该作者]
