📄 xj.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,",","&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 "add"
Call addface()
Case "edit"
Call editface()
Case "view"
Call viewface()
Case "addsave"
Call addsave()
Case "editsave"
Call editsave()
Case "delsave"
Call delsave()
Case else
Call listface()
End select
Call HWaiting()
Call PFoot()
If Err Then
Call ShowErrs()
End If
Sub addface()
%>
<form method="post" action="?Action=AddSave" onsubmit="return checkF();">
<div class="thetitle" align="left">添加学籍资料</div>
<hr size="1" color="#b8b8b8"/>
<table width="750" cellpadding="2" 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%"><input type="text" name="姓名" size="10"></td>
<td width="10%" class="thead">学 号</td>
<td width="15%"><input type="text" name="学号" size="10" onChange="cnj()"></td>
<td width="10%" class="thead">编 码</td>
<td width="15%"><input type="text" name="编码" size="10" disabled value="系统生成"></td>
<td width="10%" class="thead">性 别</td>
<td width="15%"><%=SC("")%></td>
</tr>
<tr class="tbody">
<td class="thead">学 籍 号</td>
<td><input type="text" name="学籍号" size="10"></td>
<td class="thead">年 级</td>
<td><input type="text" name="年级" size="10" readonly></td>
<td class="thead">班 级</td>
<td><input type="text" name="班级" size="10" readonly></td>
<td class="thead">民 族</td>
<td><input type="text" name="民族" size="6"></td>
</tr>
<tr class="tbody">
<td class="thead">录取类别</td>
<td><input type="text" name="录取类别" size="10"></td>
<td class="thead">出生年月</td>
<td><input type="text" name="出生年月" size="10"></td>
<td class="thead">户 口 地</td>
<td><input type="text" name="户口所在地" size="10"></td>
<td class="thead">毕业学校</td>
<td><input type="text" name="初中毕业学校" size="14"></td>
</tr>
<tr class="tbody">
<td class="thead">家庭住址</td>
<td colspan="3"><input type="text" name="家庭住址" size="37"></td>
<td class="thead">邮 编</td>
<td><input type="text" name="邮编" size="10"></td>
<td class="thead">证 明 人</td>
<td><input type="text" name="证明人" size="10"></td>
</tr>
<tr>
<td colspan="8" align="left"> >> 详细资料</td>
</tr>
<tr class="tbody">
<td class="thead">应 往</td>
<td><input type="text" name="应往" size="10"></td>
<td class="thead">变 动</td>
<td><input type="text" name="变动" size="10"></td>
<td class="thead">日 期</td>
<td><input type="text" name="日期" size="10"></td>
<td class="thead">在 册</td>
<td><input type="text" name="在册" size="10"></td>
</tr>
<tr class="tbody">
<td class="thead">1年级学号</td>
<td><input type="text" name="1年级学号" size="10"></td>
<td class="thead">2年级学号</td>
<td><input type="text" name="2年级学号" size="10"></td>
<td class="thead">中招准考证</td>
<td><input type="text" name="中招准考证" size="14"></td>
<td class="thead">中招分数</td>
<td><input type="text" name="中招分" size="10"></td>
</tr>
<tr class="tbody">
<td class="thead">高招准考证</td>
<td><input type="text" name="上年高招准考证号" size="14"></td>
<td class="thead">中招照片号</td>
<td><input type="text" name="中招照片号" size="10"></td>
<td class="thead">身份证号</td>
<td colspan="3"><input type="text" name="身份证号" size="20"></td>
</tr>
<tr>
<td colspan="8" align="left"> >> 住宿资料</td>
</tr>
<tr class="tbody">
<td class="thead">楼</td>
<td><input type="text" name="楼" size="10"></td>
<td class="thead">室</td>
<td><input type="text" name="室" size="10"></td>
<td class="thead">床铺号</td>
<td colspan="3"><input type="text" name="床铺号" size="10"></td>
</tr>
<tr>
<td colspan="8" align="left"> >> 监护人资料</td>
</tr>
<tr class="tbody">
<td class="thead">监 护 人</td>
<td><input type="text" name="监护人" size="10"></td>
<td class="thead">称 谓</td>
<td><input type="text" name="称谓" size="10"></td>
<td class="thead">电 话</td>
<td><input type="text" name="电话" size="14"></td>
<td class="thead">工作单位</td>
<td><input type="text" name="单位" size="14"></td>
</tr>
<tr class="tbody">
<td class="thead">监护人 2</td>
<td><input type="text" name="监护人2" size="10"></td>
<td class="thead">称 谓2</td>
<td><input type="text" name="称谓2" size="10"></td>
<td class="thead">电 话2</td>
<td><input type="text" name="电话2" size="14"></td>
<td class="thead">单 位2</td>
<td><input type="text" name="单位2" size="14"></td>
</tr>
<tr>
<td colspan="8" align="left"> >> 其他资料</td>
</tr>
<tr class="tbody">
<td class="thead">备注资料</td>
<td><input type="text" name="备注" size="14"></td>
<td class="thead">照片地址</td>
<td colspan="3">有系统自动生成，格式为：Photos/{编码}.jpg</td>
<td class="thead">录 入 员</td>
<td><input type="text" name="录入员" size="10" value="<%=Session("XM")%>"></td>
</tr>
</table>
<hr size="1" color="#b8b8b8"/>
<div align="center"><input type="submit" value="添加资料"> <input type="reset" value="重新填写"> <input type="button" value="取消添加" onclick="location.href='?'"></div>
</form>
<%
Call CheckJS()
End Sub
Sub editface()
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
%>
<form method="post" action="?Action=EditSave&ID=<%=id%>&Page=<%=pg%>" onsubmit="return checkF();">
<div class="thetitle" align="left">编辑学籍资料</div>
<hr size="1" color="#b8b8b8"/>
<table width="750" cellpadding="2" 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%"><input type="text" name="姓名" size="10" value="<%=XM%>"></td>
<td width="10%" class="thead">学 号</td>
<td width="15%"><input type="text" name="学号" size="10" value="<%=XH%>" onchange="cnj()"></td>
<td width="10%" class="thead">编 码</td>
<td width="15%"><input type="text" name="编码" size="10" value="<%=BM%>" disabled></td>
<td width="10%" class="thead">性 别</td>
<td width="15%"><%=SC(XB)%></td>
</tr>
<tr class="tbody">
<td class="thead">学 籍 号</td>
<td><input type="text" name="学籍号" size="10" value="<%=XJH%>"></td>
<td class="thead">年 级</td>
<td><input type="text" name="年级" size="10" value="<%=NJ%>" readonly></td>
<td class="thead">班 级</td>
<td><input type="text" name="班级" size="10" value="<%=BJ%>" readonly></td>
<td class="thead">民 族</td>
<td><input type="text" name="民族" size="6" value="<%=MZ%>"></td>
</tr>
<tr class="tbody">
<td class="thead">录取类别</td>
<td><input type="text" name="录取类别" size="10" value="<%=LQLB%>"></td>
<td class="thead">出生年月</td>
<td><input type="text" name="出生年月" size="10" value="<%=CSNE%>"></td>
<td class="thead">户 口 地</td>
<td><input type="text" name="户口所在地" size="10" value="<%=HKD%>"></td>
<td class="thead">毕业学校</td>
<td><input type="text" name="初中毕业学校" size="14" value="<%=CZBYXX%>"></td>
</tr>
<tr class="tbody">
<td class="thead">家庭住址</td>
<td colspan="3"><input type="text" name="家庭住址" size="37" value="<%=JTZZ%>"></td>
<td class="thead">邮 编</td>
<td><input type="text" name="邮编" size="10" value="<%=YB%>"></td>
<td class="thead">证 明 人</td>
<td><input type="text" name="证明人" size="10" value="<%=ZMR%>"></td>
</tr>
<tr>
<td colspan="8" align="left"> >> 详细资料</td>
</tr>
<tr class="tbody">
<td class="thead">应 往</td>
<td><input type="text" name="应往" size="10" value="<%=YW%>"></td>
<td class="thead">变 动</td>
<td><input type="text" name="变动" size="10" value="<%=BD%>"></td>
<td class="thead">日 期</td>
<td><input type="text" name="日期" size="10" value="<%=RQ%>"></td>
<td class="thead">在 册</td>
<td><input type="text" name="在册" size="10" value="<%=ZC%>"></td>
</tr>
<tr class="tbody">
<td class="thead">1年级学号</td>
<td><input type="text" name="1年级学号" size="10" value="<%=YNJ%>"></td>
<td class="thead">2年级学号</td>
<td><input type="text" name="2年级学号" size="10" value="<%=ENJ%>"></td>
<td class="thead">中招准考证</td>
<td><input type="text" name="中招准考证" size="14" value="<%=ZZZKZ%>"></td>
<td class="thead">中招分数</td>
<td><input type="text" name="中招分" size="10" value="<%=ZZF%>"></td>
</tr>
<tr class="tbody">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -