📄 cx.asp
字号:
<!--#include file="Inc/Check.asp"-->
<!--#include file="Inc/oConn.asp"-->
<!--#include file="Inc/Info.asp"-->
<!--#include file="Inc/Page.asp"-->
<!--#include file="Inc/Public.asp"-->
<%
On Error Resume Next
Call CheckAdmin(",1,2,3,4,",","&Session("JB")&",")
Dim action,id,pg
action = RQuery("action")
id = RQuery("id")
pg = RQuery("page")
If pg&""="" Then pg=1
If action&""<>"" Then action = LCase(action)
Call PHead("学籍查询")
Print "<script src='JavaScript/showImage.js' type='text/javascript'></script>"
Call Waiting()
Select Case action
Case "view"
Call ViewFace()
Case Else
Call ListFace()
End Select
Call HWaiting()
Call PFoot()
If Err Then
Call ShowErrs()
End If
Sub viewface()
Dim strSQL,objRs
Dim NJ,BJ,XH,XM,XJH,BM,YW,BD,RQ,ZC,LQLB,GZZKZ,YNJ,ENJ,ZZZKZ,ZZF,ZZZPH,SFZ,YB,BZ,XB,MZ,CSNE,HKD
Dim JTZZ,LO,SH,PU,CZBYXX,ZMR,JHR,CW,DH,DW,JHR2,CW2,DH2,DW2,LRY,ZP
strSQL = "Select 年级,班级,学号,姓名,学籍号,编码,应往,变动,日期,在册,录取类别,上年高招准考证号,[1年级学号],[2年级学号],中招准考证,中招分,中招照片号,身份证号,邮编,备注,性别,民族,出生年月,户口所在地,家庭住址,楼,室,床铺号,初中毕业学校,证明人,监护人,称谓,电话,单位,监护人2,称谓2,电话2,单位2,录入员,照片 from stable where sid="&id&""
Set objrs = oconn.execute(strsql)
If Not objrs.eof Then
NJ = objRs(0)
BJ = objRs(1)
XH = objRs(2)
XM = objRs(3)
XJH = objRs(4)
BM = objRs(5)
YW = objRs(6)
BD = objRs(7)
RQ = objRs(8)
ZC = objRs(9)
LQLB = objRs(10)
GZZKZ = objRs(11)
YNJ = objRs(12)
ENJ = objRs(13)
ZZZKZ = objRs(14)
ZZF = objRs(15)
ZZZPH = objRs(16)
SFZ = objRs(17)
YB = objRs(18)
BZ = objRs(19)
XB = objRs(20)
MZ = objRs(21)
CSNE = objRs(22)
HKD = objRs(23)
JTZZ = objRs(24)
LO = objRs(25)
SH = objRs(26)
PU = objRs(27)
CZBYXX = objRs(28)
ZMR = objRs(29)
JHR = objRs(30)
CW = objRs(31)
DH = objRs(32)
DW = objRs(33)
JHR2 = objRs(34)
CW2 = objRs(35)
DH2 = objRs(36)
DW2 = objRs(37)
LRY = objRs(38)
ZP = objRs(39)
Else
response.Write "参数错误！"
Set objrs = nothing
Call closeConn()
response.End
End If
Set objRs = nothing
%>
<script language="javascript">
<!--
if (window.Event)
document.captureEvents(Event.MOUSEUP);
function nocontextmenu()
{
event.cancelBubble = true
event.returnValue = false;
return false;
}
function norightclick(e)
{
if (window.Event)
{
if (e.which == 2 || e.which == 3)
return false;
}
else
if (event.button == 2 || event.button == 3)
{
event.cancelBubble = true;
event.returnValue = false;
return false;
}
}
document.oncontextmenu = nocontextmenu; //对ie5.0以上
document.onmousedown = norightclick; //对其它浏览器
//-->
</script>
<div class="thetitle" align="left">查看学籍资料</div>
<hr size="1" color="#b8b8b8"/>
<table width="750" cellpadding="5" cellspacing="1" align="center" class="table1">
<tr>
<td colspan="8" align="left"> >> 基本资料</td>
</tr>
<tr class="tbody">
<td width="10%" class="thead">姓 名</td>
<td width="15%"><%=XM%></td>
<td width="10%" class="thead">学 号</td>
<td width="15%"><%=XH%></td>
<td width="10%" class="thead">编 码</td>
<td width="15%"><%=BM%></td>
<td width="25%" rowspan="4" colspan="2" align="center" onMouseOver="showImage(this,'<%=ZP%>','0')">
<img src="<%=ZP%>" width="100" border="0"/>
</td>
</tr>
<tr class="tbody">
<td class="thead">学 籍 号</td>
<td><%=XJH%></td>
<td class="thead">年 级</td>
<td><%=NJ%></td>
<td class="thead">班 级</td>
<td><%=BJ%></td>
</tr>
<tr class="tbody">
<td class="thead">录取类别</td>
<td><%=LQLB%></td>
<td class="thead">出生年月</td>
<td><%=Left(CSNE,4)%>年<%=Mid(CSNE,5,2)%>月</td>
<td class="thead">户 口 地</td>
<td><%=HKD%></td>
</tr>
<tr class="tbody">
<td class="thead">家庭住址</td>
<td colspan="3"><%=JTZZ%></td>
<td class="thead">邮 编</td>
<td><%=YB%></td>
</tr>
<tr class="tbody">
<td width="10%" class="thead">性 别</td>
<td width="15%"><%=XB%></td>
<td class="thead">民 族</td>
<td><%=MZ%></td>
<td class="thead">毕业学校</td>
<td><%=CZBYXX%></td>
<td class="thead">证 明 人</td>
<td><%=ZMR%></td>
</tr>
<tr>
<td colspan="8" align="left"> >> 详细资料</td>
</tr>
<tr class="tbody">
<td class="thead">应 往</td>
<td><%=YW%></td>
<td class="thead">变 动</td>
<td><%=BD%></td>
<td class="thead">日 期</td>
<td><%=RQ%></td>
<td class="thead">在 册</td>
<td><%=ZC%></td>
</tr>
<tr class="tbody">
<td class="thead">1年级学号</td>
<td><%=YNJ%></td>
<td class="thead">2年级学号</td>
<td><%=ENJ%></td>
<td class="thead">中招准考证</td>
<td><%=ZZZKZ%></td>
<td class="thead">中招分数</td>
<td><%=ZZF%></td>
</tr>
<tr class="tbody">
<td class="thead">高招准考证</td>
<td><%=GZZKZ%></td>
<td class="thead">中招照片号</td>
<td><%=ZZZPH%></td>
<td class="thead">身份证号</td>
<td colspan="3"><%=SFZ%></td>
</tr>
<tr>
<td colspan="8" align="left"> >> 住宿资料</td>
</tr>
<tr class="tbody">
<td class="thead">楼</td>
<td><%=LO%></td>
<td class="thead">室</td>
<td><%=SH%></td>
<td class="thead">床铺号</td>
<td colspan="3"><%=PU%></td>
</tr>
<tr>
<td colspan="8" align="left"> >> 监护人资料</td>
</tr>
<tr class="tbody">
<td class="thead">监 护 人</td>
<td><%=JHR%></td>
<td class="thead">称 谓</td>
<td><%=CW%></td>
<td class="thead">电 话</td>
<td><%=DH%></td>
<td class="thead">工作单位</td>
<td><%=DW%></td>
</tr>
<tr class="tbody">
<td class="thead">监护人 2</td>
<td><%=JHR2%></td>
<td class="thead">称 谓2</td>
<td><%=CW2%></td>
<td class="thead">电 话2</td>
<td><%=DH2%></td>
<td class="thead">单 位2</td>
<td><%=DW2%></td>
</tr>
<tr>
<td colspan="8" align="left"> >> 其他资料</td>
</tr>
<tr class="tbody">
<td class="thead">备注资料</td>
<td colspan="5"><%=BZ%></td>
<td class="thead">录 入 员</td>
<td><%=LRY%></td>
</tr>
</table>
<hr size="1" color="#b8b8b8"/>
<div align="center" class="np">
<input type="button" value="继续查询" onclick="location.href='?'">
<%If Session("JB")<=2 Then Print "<input type='button' value='打印学籍' onclick=""window.print();"">"%>
</div>
<%
Call SaveLog(Session("XM"),"学籍查询","查看"&XM&"的学籍")
End Sub
Sub listface()
%>
<table align="center" width="100%">
<form method="get" name="Search" onsubmit="return checkS()">
<tr><td class="thetitle">学籍查询</td>
<td align="right">
<select name="sc">
<option value="姓名">姓名</option>
<option value="学号">学号</option>
</select>
<input type="text" size="10" name="sk" id="sk">
<input type="submit" value="查 询">
</td>
</tr>
</form>
</table>
<hr size="1" color="#b8b8b8"/>
<%
Dim objRs,strSQL,MyPage,sc,i,sk,sID
sc = RQuery("sc")
sk = RQuery("sk")
If sk&""<>"" Then
%>
<table width="500" cellpadding="5" cellspacing="1" align="center" class="table1">
<tr class="thead">
<td width="10%">ID</td>
<td>姓名</td>
<td>学号</td>
<td>班级</td>
<td width="10%">性别</td>
<td width="13%"></td>
</tr>
<%
strSQL = "Select sID,姓名,学号,班级,性别 From sTable where 1=1"
If Session("JB")=4 Then strSQL = strSQL & " And 班级='"&Session("BJ")&"'"
If sk&""<>"" Then strSQL = strSQL & " And "&sc&" like '%"&sk&"%'"
strSQL = strSqL & " Order by sID Desc"
'Response.Write strSQL
Set MyPage = New xdownpage
MyPage.GetConn = oConn
MyPage.GetSQL = strSQL
MyPage.PageSize = 14
Set objRs = MyPage.GetRs()
If Not objRs.Eof Then
For i = 1 To MyPage.PageSize
sID = objRs(0)
%>
<tr class="tbody" onmouseout="this.style.background='#ffffff'" onmouseover="this.style.background='#f5f5f5'">
<td><%=i%></td>
<td><%=objRs(1)%></td>
<td><%=objRs(2)%></td>
<td><%=objRs(3)%></td>
<td><%=objRs(4)%></td>
<td><a href="?Action=View&ID=<%=sID%>">查看学籍</a></td>
</tr>
<%
objRs.MoveNext
If objRs.Eof Then Exit For
Next
If i = 1 Then Call JavaScript("location.href='?Action=View&ID="&sID&"'"):Set objRs = nothing:Exit Sub
Else
%>
<tr><td colspan="8" class="tbody" height="60" align="center">没有找到你要查询的资料，</td></tr>
<%
End If
Set objRs = Nothing
%>
<tr><td colspan="8" class="tbody"><%=MyPage.ShowPage()%></td></tr>
</table>
<%Else
Print "<div class='lface'>"
Print "<div class='thetitle'>学籍信息查询系统</div>"
Print "<hr size='1' color='#b8b8b8'/><br />"
Print "<ol>欢迎你使用本系统..."
Print "<li>从本页你可以直接对学籍资料进行查询。"
Print "<li>请选择姓名或学号后输入关键词进行查询。"
Print "</ol>"
Print "<div align='left' class='footcopy'>©2007 XMSky</div>"
Print "</div>"
End If%>
<script language="JavaScript">
<!--
FocusKey();
//-->
</script>
<%
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -