Case "xslb.htm"
Dim vals As String
If e.PostValues.ContainsKey("xd")
If e.Cookies("userjs").contains("区业务主管")=False
vals ="|" & DataTables("成绩").sqlGetComboListString("考试名称","学段='" & e.PostValues("xd") & "'and 单位名称 ='" & e.Cookies("userdw") & "'","考试名称 desc")
Else
vals ="|" & DataTables("成绩").sqlGetComboListString("考试名称","学段='" & e.PostValues("xd") & "'","考试名称 desc")
End If
EndIf e.PostValues.ContainsKey("xd") And e.PostValues.ContainsKey("ksmc")
If e.Cookies("userjs").contains("区业务主管")=False
vals = "|" & DataTables("成绩").sqlGetComboListString("班级全称", "学段= '" & e.PostValues("xd") & "' and 考试名称= '" & e.PostValues("ksmc") & "' and 单位名称 ='" & e.Cookies("userdw") & "'")
Else
vals = "|" & DataTables("成绩").sqlGetComboListString("班级全称", "学段= '" & e.PostValues("xd") & "' and 考试名称= '" & e.PostValues("ksmc") & "'")
End If
End If
e.writestring(vals)