📄 admin_renke.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=5 align=center style="height: 23px">
<div align="center">专业信息管理</div></th>
</tr>
<tr bgcolor="#DEE5FA">
<td colspan="5" align="left" bgcolor="#DEE5FA" class=txlrow> </td>
</tr>
<tr align="center" bgcolor="#799AE1">
<td width="145" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate">课程名称</td>
<td width="90" colspan="-4" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate">任课老师</td>
<td width="157" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate">所属学院</td>
<td width="67" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate">所属专业</td>
<td width="67" align="center" bgcolor="#799AE1" class="txlHeaderBackgroundAlternate">授课班级</td>
</tr>
<tr bgcolor="#DEE5FA">
<td align="center" class="txlrow"><p>
<label></label>
<label></label>
<label>
<input name="textfield" type="text" size="15">
</label>
</p></td>
<td align="center" class="txlrow"><label>
<input name="t_name" type="text" id="t_name" size="15">
</label></td>
<td align="center" class="txlrow"><select name="ins_name" id="ins_name">
<option selected value="">所有学院</option>
<% dim fg
set rs=server.CreateObject("adodb.recordset")
fg="select * from institute order by id "
rs.open fg,conn,3,3
do while not rs.eof
response.write"<option value="& rs("ins_name")& ">" & rs("ins_name")&"</option>"
rs.movenext
loop
rs.close
set rs=nothing
%>
</select></td>
<td align="center" class="txlrow"><select name="zhuanye" id="zhuanye">
<option selected value="">所有专业</option>
<% dim v,ins
ins=request.form("ins_name")
set rs=server.CreateObject("adodb.recordset")
v="select * from zhuanye where ins_name='"&ins&"' "
rs.open v,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>
<td align="center" class="txlrow"><select name="banji" id="banji">
<option selected value="">所有班级</option>
<% dim sd,bj
bj=request.form("zy_name")
set rs=server.CreateObject("adodb.recordset")
sd="select * from banji where zy_name='"&bj&"' "
rs.open sd,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>
</tr>
<tr bgcolor="#DEE5FA">
<td colspan="5" align="center" class="txlrow"><label>
<input type="submit" name="Submit" value="确定">
</label> <label>
<input type="reset" name="Submit2" value="取消">
</label></td>
</tr>
<tr bgcolor="#DEE5FA">
<td colspan="5" align="center" class="txlrow"><div align="center">
<p> </p>
<table width="520" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#799AE1">
<tr>
<td width="60"><div align="center">课程编号</div></td>
<td width="100"><div align="center">任课老师</div></td>
<td width="120"><div align="center">所属学院</div></td>
<td width="120"><div align="center">所属专业</div></td>
<td width="100"><div align="center">所属班级</div></td>
<td width="150"><div align="center">编辑</div></td>
</tr>
<%
dim sql
set rs=server.CreateObject("adodb.recordset")
sql="select * from renke"
rs.open sql,conn,1,1
do while not rs.eof
%>
<tr align="center">
<td height="10" align="center"><% =rs("kc_name") %> </td>
<td height="10" align="center"><% =rs("t_name") %> </td>
<td height="10" align="center"><% =rs("ins_name") %> </td>
<td height="10" align="center"><% =rs("zy_name") %> </td>
<td height="10" align="center"><% =rs("bj_name") %> </td>
<td align="center"><label><a href="admin_editer_zhuanye.asp?id=<%=rs("ID")%>">修改</a> <a href="delect_zhuanye.asp?id=<%=rs("ID")%>">删除</a></label></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</table>
</div></td>
</tr>
<tr bgcolor="#DEE5FA">
<td colspan=5 align=center class=txlrow></td>
</tr>
</tbody></table>
</FORM>
<%
dim zy_id,zy_name,ins_name
zy_id=request.Form("zy_id")
zy_name=request.Form("zy_name")
ins_name=request.Form("ins_name")
if request.form("submit")="确定" then
if (id="" or text="" or ins="") then
response.write "<script> alert('需要填定的资料没有完整！');</script>"
else
set rs=server.CreateObject("adodb.recordset")
s="select * from zhuanye where zy_ID='"&id&"'"
rs.open s,conn,3,3
if not rs.eof then
response.write "<script> alert('该专业编号已经存在！');history.go(-1);</script>"
else
rs.addnew
rs("zy_ID")=id
rs("zy_name")=text
rs("ins_name")=ins
rs.update
response.write "<script> alert('添加成功!');location.href='admin_zhuanye.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 + -