📄 admin_addstudent.asp
字号:
<!--#include file="include/conn.asp"-->
<html>
<head>
<link rel="stylesheet" href="inc/css.css" type="text/css" />
</head>
<body>
<form name="form1" method="post" action="">
<table width="550" border=0 align=center cellpadding=2 cellspacing=1 bordercolor="#799AE1" class=tableBorder>
<tbody>
<tr>
<th colspan=7 align=center style="height: 23px"> <div align="center"> 添加学生</div></th>
</tr>
<tr bgcolor="#DEE5FA">
<td colspan="7" align="left" bgcolor="#DEE5FA" class=txlrow> </td>
</tr>
<tr align="center" bgcolor="#799AE1">
<td width="68" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate"><div align="left">学号</div></td>
<td width="75" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate">密码</td>
<td width="75" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate">姓名</td>
<td width="75" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate">性别</td>
<td width="75" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate">出生日期</td>
<td width="75" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate">政治面貌</td>
<td width="90" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate">民族</td>
</tr>
<tr bgcolor="#DEE5FA">
<td width="68" align="center" class="txlrow"><input name="s_no" type="text" id="s_no" size="10"></td>
<td align="center" bgcolor="#DEE5FA" class="txlrow"><input name="s_paw" type="text" id="s_paw" size="10"></td>
<td align="center" bgcolor="#DEE5FA" class="txlrow"><input name="s_name" type="text" id="s_name" size="10"></td>
<td align="center" bgcolor="#DEE5FA" class="txlrow"><select name="sex" id="sex">
<option>男</option>
<option>女</option>
</select>
</td>
<td align="center" valign="middle" bgcolor="#DEE5FA" class="txlrow"><p>
<label></label>
<input name="s_birth" type="text" id="s_birth" size="15">
</p></td>
<td align="center" bgcolor="#DEE5FA" class="txlrow"><select name="s_zzmm" id="s_zzmm">
<option>团员</option>
<option>党员</option>
</select>
</td>
<td align="center" bgcolor="#DEE5FA" class="txlrow"><input name="s_mingzu" type="text" id="s_mingzu" size="10"></td>
</tr>
<td width="68" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate"><div align="left">籍贯</div></td>
<td width="75" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate">入学年份</td>
<td width="75" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate">状态</td>
<td width="75" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate">学籍</td>
<td width="75" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate">班别</td>
<td colspan="2" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate">专业名称</td>
<tr bgcolor="#DEE5FA">
<td width="68" align="center" class="txlrow"><input name="s_jg" type="text" id="s_jg" size="10"></td>
<td align="center" bgcolor="#DEE5FA" class="txlrow"><input name="s_years" type="text" id="s_years" size="10"></td>
<td align="center" bgcolor="#DEE5FA" class="txlrow"><select name="s_status" id="s_status">
<option>在读</option>
<option>离校</option>
<option>退学</option>
<option>毕业</option>
</select>
</td>
<td align="center" bgcolor="#DEE5FA" class="txlrow"><input name="s_xueji" type="text" id="s_xueji" size="8"></td>
<td align="center" bgcolor="#DEE5FA" class="txlrow"><select name="banji" id="banji">
<option selected value="">所有班级</option>
<% dim sp
set rs=server.CreateObject("adodb.recordset")
sp="select * from banji "
rs.open sp,conn,3,3
do while not rs.eof
response.write"<option value="& rs("bj_name")& ">" & rs("bj_name")&"</option>"
rs.movenext
loop
rs.close
set rs=nothing
%>
</select>
</td>
<td colspan="2" align="center" bgcolor="#DEE5FA" class="txlrow"><select name="zy_name" id="zy_name">
<option selected value="">所有专业</option>
<% dim p
set rs=server.CreateObject("adodb.recordset")
p="select * from zhuanye "
rs.open p,conn,3,3
do while not rs.eof
response.write"<option value="& rs("zy_name")& ">" & rs("zy_name")&"</option>"
rs.movenext
loop
rs.close
set rs=nothing
%>
</select>
</td>
</tr>
<tr bgcolor="#DEE5FA">
<td align="center" class="txlrow"> </td>
<td colspan="6" align="center" bgcolor="#DEE5FA" class="txlrow"><div align="center">
<input type="submit" name="Submit" value="确定">
<input type="reset" name="Submit2" value="取消">
<a href="admin_show_total_student.asp">查询全部学生</a></div></td>
</tr>
<tr bgcolor="#DEE5FA">
<td colspan="7" align="left" class="txlrow"><div align="center">
<p> </p>
</div></td>
</tr>
<tr bgcolor="#DEE5FA">
<td colspan=7 align=center class=txlrow></td>
</tr>
</table>
</FORM>
<%
dim s,s_no,s_paw,s_name,sex,s_birth,s_zzmm,s_mingzu,s_jg,s_years,s_status,s_xueji,banji,zy_name
s_no=request.form("s_no")
s_paw=request.form("s_paw")
s_name=request.form("s_name")
sex=request.form("sex")
s_birth=request.form("s_birth")
s_zzmm=request.form("s_zzmm")
s_mingzu=request.form("s_mingzu")
s_jg=request.form("s_jg")
s_years=request.form("s_years")
s_status=request.form("s_status")
s_xueji=request.form("s_xueji")
banji=request.form("banji")
zy_name=request.form("zy_name")
if request.form("submit")="确定" then
if (s_no="" or s_paw="" or s_name="" or sex="" or s_zzmm="" or s_mingzu="" or s_jg="" or s_years="" or s_status="" or s_xueji="" or banji="" or zy_name="") then
response.write "<script> alert('需要填定的资料没有完整！');history.go(-1);</script>"
else
set rs=server.CreateObject("adodb.recordset")
s="select * from student where s_no='"&s_no&"'"
rs.open s,conn,3,3
if not rs.eof then
response.write "<script> alert('该学号已经存在！');history.go(-1);</script>"
else
rs.addnew
rs("s_no")=s_no
rs("s_paw")=s_paw
rs("s_name")=s_name
rs("s_sex")=sex
rs("s_birth")=s_birth
rs("s_zzmm")=s_zzmm
rs("s_mingzu")=s_mingzu
rs("s_jiguan")=s_jg
rs("s_interyears")=s_years
rs("s_zhuantai")=s_status
rs("s_xuezhi")=s_xueji
rs("bj_name")=banji
rs("zy_name")=zy_name
rs.update
response.write "<script> location.href='success.asp';</script>"
end if
rs.close
set rs=nothing
end if
end if
%>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -