📄 admin_add.asp
字号:
<%if session("password")<>"" then%>
<!-- #include file="inc/top.asp" -->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<table width="100%" height="25" border="0" align="center" cellpadding="0" cellspacing="0" class="unnamed_rld2">
<%if request.querystring("kind")="new" then%>
<tr>
<td align="center"><br>
<form name="form1" action="admin_adddata.asp?type=news" method="post">
<table width="74%" border="1" cellspacing="0" cellpadding="0" bordercolor="#eeeeee">
<tr align="center">
<td width="10%" height="31">班级</td>
<td width="7%">序号</td>
<td width="11%">日期</td>
<td width="11%">车次</td>
<td width="11%">中转站</td>
<td width="11%">终点站</td>
<td width="14%">校区</td>
<td width="10%">类型 </td>
<td height="31">备注</td>
</tr>
<tr>
<td align="center"><select name="bj11" id="select2">
<!-- #include file="inc/selectbj.asp" -->
</select></td>
<td align="center"><input name="xh11" type="text" id="xh114" size="10"></td>
<td align="center"><input name="user11" type="text" id="user11" size="15"></td>
<td align="center"><input name="beizhu11" type="text" id="beizhu11" size="15"></td>
<td align="center"><input name="kc11" type="text" size="15"></td>
<td align="center"><input name="cj11" type="text" id="cj11" size="15"></td>
<td align="center"><select name="xq11">
<option>莲华校区</option>
<option>新迎校区</option>
<option>白龙校区</option>
<option> </option>
<option> </option>
<option> </option>
<option> </option>
<option> </option>
</select></td>
<td align="center"><select name="lx11">
<option>硬座</option>
<option>硬卧</option>
<option> </option>
</select></td>
<td width="15%"><div align="left">
<input name="xxx11" type="text" id="xxx11" size="18">
</div></td>
</tr>
<tr>
<td align="center"><select name="select" id="select3">
<!-- #include file="inc/selectbj.asp" -->
</select></td>
<td align="center"><input name="xh112" type="text" id="xh115" size="10"></td>
<td align="center"><input name="user112" type="text" id="user112" size="15"></td>
<td align="center"><input name="beizhu112" type="text" id="beizhu112" size="15"></td>
<td align="center"><input name="kc112" type="text" size="15"></td>
<td align="center"><input name="cj112" type="text" id="cj112" size="15"></td>
<td align="center"><select name="select2">
<option>莲华校区</option>
<option>新迎校区</option>
<option>白龙校区</option>
<option> </option>
<option> </option>
<option> </option>
<option> </option>
<option> </option>
</select></td>
<td align="center"><select name="select3">
<option>硬座</option>
<option>硬卧</option>
<option> </option>
</select></td>
<td><input name="xxx112" type="text" id="xxx112" size="18"></td>
</tr>
<tr align="center">
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr align="center">
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr align="center">
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr align="center">
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr align="center">
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr align="center">
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr align="center">
<td colspan="9"> </td>
</tr>
<tr align="center">
<td colspan="9"> </td>
</tr>
<tr align="center">
<td colspan="9"> </td>
</tr>
<tr align="center">
<td colspan="9"> </td>
</tr>
<tr align="center">
<td colspan="9"> </td>
</tr>
<tr align="center">
<td colspan="9"> </td>
</tr>
<tr align="center">
<td colspan="9"> </td>
</tr>
<tr align="center">
<td colspan="9"> </td>
</tr>
<tr align="center">
<td colspan="9"> </td>
</tr>
<tr align="center">
<td colspan="9"> </td>
</tr>
<tr align="center">
<td colspan="9"> </td>
</tr>
<tr align="center">
<td colspan="9"> </td>
</tr>
<tr align="center">
<td colspan="9"> </td>
</tr>
<tr align="center">
<td colspan="9"> </td>
</tr>
<tr align="center">
<td colspan="9"> </td>
</tr>
<tr align="center">
<td colspan="9"> </td>
</tr>
<tr align="center">
<td colspan="9"><input type="hidden" name="max" value="1">
<input type="hidden" name="number" value="1">
<input type="submit" name="Submit" value="添加">
<input type="reset" name="Submit2" value="重置">
（每页25个）</td>
</tr>
<tr>
<td colspan="9"> </td>
</tr>
</table>
</form></td>
</tr>
<%end if%>
<%if request.querystring("kind")="bj" then
session("return")=request.ServerVariables("SCRIPT_NAME")&"?kind=bj"%>
<tr valign="top">
<td align="center" width="50%"><br><form name="form1" method="post" action="addu.asp">
<table width="50%" border="1" cellspacing="0" cellpadding="0" bordercolor="#CCCCCC">
<tr align="center">
<td height="32" colspan="2">添加班级及其序号对应代码</td>
</tr>
<tr>
<td width="26%" align="center">班级名称</td>
<td width="74%"><input type="text" name="bj" size="30"></td>
</tr>
<tr>
<td align="center">班级序号代码</td>
<td><input name="xhf" type="text" size="30"></td>
</tr>
<tr align="center">
<td colspan="2">
<input type="hidden" name="kind" value="2">
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="清除"></td>
</tr>
<tr>
<td colspan="2"> 注意：填写完后请自行确认</td>
</tr>
</table></form>
</td>
</tr>
<tr>
<td height="25" align="center">班级及其学号启始代码浏览及修改</td>
</tr>
<tr>
<td>
<table width="100%" border='0' align="center" cellpadding='0' cellspacing='1'>
<tr bgcolor="#A0A4AC">
<%
dim i
i=0
set connad=server.createobject("adodb.connection")
set rsad=server.createobject("adodb.recordset")
DPath = Server.MapPath("#25175class_cj.asp")
connad.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DPath
sqlad="select * from bjb order by xhf"
rsad.open sqlad,connad,1,2
do while not (rsad.EOF or rsad.BOF)
i=i+1
%>
<td width="96" height="25" align=center nowrap bgcolor="#A0A4AC">
<a title="<%=rsad("xhf")%>"><%=rsad("bj")%></a>
</td>
<td width="96" align=center bgcolor="#A0A4AC">
<a href="updata.asp?kind=bj&id=<%=rsad("id")%>" title="<%=rsad("xhf")%>">修改</a>
<a href="admin_del.asp?type=user&id=<%=rsad("id")%>&kind=bjb">删除</a>
</td>
<%
if i mod 4=0 then response.write("</tr><tr>")
rsad.movenext
loop
if i<5 then
for j=i+1 to 4
%>
<td width="96" align=center></td>
<td width="96" align=center></td>
<%
next
else
rsad.Close
set rsad=nothing
set connad=nothing
end if
%>
</tr>
</table>
</td>
</tr>
<tr>
<%end if%>
<%if request.querystring("kind")="kc" then%>
<td width="60%" align="center"><br>
<form name="form1" method="post" action="addu.asp"><table width="50%" border="1" cellspacing="0" cellpadding="0" bordercolor="#CCCCCC">
<tr align="center">
<td height="32" colspan="2">添加与班级相对应的中转站及类型</td>
</tr>
<tr>
<td width="26%" align="center">班级</td>
<td width="74%"><select name="bj" id="xh">
<!-- #include file="inc/selectbj.asp" --></td>
</tr>
<tr>
<td align="center">中转站</td>
<td><input name="kc" type="text" size="30"></td>
</tr>
<tr>
<td align="center">校区</td>
<td><select name="xq">
<option>莲华校区</option>
<option>新迎校区</option>
<option>白龙校区</option>
<option> </option>
<option> </option>
<option> </option>
<option> </option>
<option> </option>
</select></td>
</tr>
<tr>
<td align="center">类型</td>
<td><select name="lx">
<option>硬座</option>
<option>硬卧</option>
<option> </option>
</select></td>
</tr>
<tr align="center">
<td colspan="2">
<input name="kind" type="hidden" value="3">
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="清除"></td>
</tr>
<tr>
<td colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="14%" align="center">说明</td>
<td width="86%"> 1.填入份数，系统将自动生成相对应的份数,以便添加信息。</td>
</tr>
<tr>
<td> </td>
<td> 2.添加中转站只需选择对应的年级就行了，不必理会各个班。</td>
</tr>
<tr>
<td> </td>
<td>3.请注意信息的完整性，提交后请自行到中转站列表进行核对。</td>
</tr>
</table></td>
</tr>
</table>
</form>
</td>
</tr>
<%end if%>
<%if request.querystring("kind")="admin" then
session("return")="admin_add.asp?kind=admin"%>
<tr>
<td align="center" colspan=9 ><form name="form1" method="post" action="addu.asp">
<br>
<table width="50%" border="1" cellspacing="0" cellpadding="0" bordercolor="#eeeeee">
<tr align="center">
<td colspan="2"> 添加系统管理员 </td>
</tr>
<tr>
<td width="27%" align="center"> 用户名 </td>
<td width="73%"><input name="username" type="text" size="30"></td>
</tr>
<tr>
<td align="center"> 密码 </td>
<td><input name="password" type="password" size="30"></td>
</tr>
<tr align="center">
<td colspan="2"><input type="hidden" name="kind" value="0">
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="清除"></td>
</tr>
<tr>
<td colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="13%" align="center">说明</td>
<td width="87%"> 1.如果您输入的密码为空，系统将自动以用户名作为密码。</td>
</tr>
<tr>
<td> </td>
<td> 2.添加完毕之后，请自行确认您所输入的信息。</td>
</tr>
</table></td>
</tr>
</table>
</form>
</td>
</tr>
<tr>
<td > 系统管理员：</td>
</tr>
<tr><td colspan="9">
<table width="100%" border='0' align="center" cellpadding='0' cellspacing='1'>
<tr bgcolor="#A0A4AC">
<%
i=0
set connad=server.createobject("adodb.connection")
set rsad=server.createobject("adodb.recordset")
DPath = Server.MapPath("#25175class_cj.asp")
connad.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DPath
sqlad="select * from admin order by id"
rsad.open sqlad,connad,1,2
do while not (rsad.EOF or rsad.BOF)
i=i+1
%>
<td width="96" height="28" align=center><%=rsad("username")%></td>
<td align=center><a href="updata.asp?kind=admin&id=<%=rsad("id")%>">修改</a>
<% if rsad("username")<>session("username") then%><a href="admin_del.asp?id=<%=rsad("id")%>&kind=admin&type=user">删除</a><%else%>删除
<%end if%></td>
<%
if i mod 4=0 then response.write("</tr><tr>")
rsad.movenext
loop
if i<5 then
for j=i+1 to 4
%>
<td width="96" align=center></td>
<td width="96" align=center></td>
<%
next
else
rsad.Close
set rsad=nothing
set connad=nothing
end if
%>
</tr>
</table>
</td></tr>
<tr><td colspan="3"> </td>
</tr>
<%end if%>
<%if request.querystring("kind")="user" then%>
<tr>
<td align="center"><form name="form1" method="post" action="addu.asp">
<br>
<table width="50%" border="1" cellspacing="0" cellpadding="0" bordercolor="#eeeeee">
<tr align="center">
<td colspan="2"> 添加学生相关信息</td>
</tr>
<tr>
<td width="27%" align="center"> [ <span style="color: #FF0000">班级</span> ]</td>
<td width="73%"><select name="bj" id="xh">
<option>--==请选择==--</option>
<%
set rs=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("#25175class_cj.asp") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
sql="select * from bjb"
rs.Open sql,conn,1,1
do while not rs.eof
%>
<option><%=rs("bj")%></option>
<%
rs.movenext
loop
rs.Close
set rs=nothing
set conn=nothing
%></select></td>
</tr>
<tr>
<td align="center"> [ <span style="color: #FF0000">学号</span> ] </td>
<td><input name="xh" type="text" size="30"></td>
</tr>
<tr align="center">
<td colspan="2"><input type="hidden" name="max" value="1">
<input type="hidden" name="kind" value="1">
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="清除"></td>
</tr>
<tr>
<td colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="13%" align="center">说明</td>
<td width="87%"> 1.如果您输入的密码为空，系统将自动以学号作为密码。</td>
</tr>
<tr>
<td> </td>
<td> 2.<span style="color: #FF0000">此为精确定位查错和后续功能扩展用，与输入数据无关</span>）</td>
</tr>
</table></td>
</tr>
</table>
</form>
</td>
</tr>
<%end if%>
</table>
<!-- #include file="inc/copyright.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -