📄 adminclassname.asp

📁 晴和教务管理系统
💻 ASP
字号:
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/function.asp"-->
<%
dim action
action=request.QueryString("action")
select case action
case ""
%>
<html><head><title>教务管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css.css" rel="stylesheet" type="text/css">
</head>
<body style="background-color: #799AE1">
<table class="tableBorder" width="887" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr> 
<td colspan="5" align="center" background="images/admin_bg_1.gif" height="25"><b><font color="#ffffff">教务管理—课程名称管理</font></b></td>
</tr>
<form name="classnameinfo" method="post" action="adminclassname.asp?action=save">
<tr> 
<td width="142" bgcolor="#E8F1FF" align="center">课程名称：</td>
    <td width="142" bgcolor="#E8F1FF">
	<input class="wenbenkuang" name="classname" type="text" id="Topic" size="17">
</td>
    <td width="142" bgcolor="#E8F1FF" align="center">
代码：</td>
    <td width="142" bgcolor="#E8F1FF">
	<input class="wenbenkuang" name="classnum" type="text" id="Topic" size="17">
</td>
<td width="317" bgcolor="#E8F1FF">
<input class="go-wenbenkuang" name="submit" value=确定添加课程名称 type=submit onClick="return checkup();">
</td>
</tr>
</form>
<form name="classnamedel" method="post" action="adminclassname.asp?action=del">
<tr> 
<td width="142" bgcolor="#E8F1FF" align="center">已有课程名称：</td>
    <td bgcolor="#E8F1FF" colspan="3">
	<select size="20" name="ID">
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Jw_classname",conn,1,3
do while not rs.eof
%>
	<option value="<% =rs("ID")%>"><% =rs("NUM")%>　<% =rs("name")%></option>
<%
rs.movenext
loop
set rs=nothing
conn.close
set conn=nothing
%>
	</select>
</td>
<td width="317" bgcolor="#E8F1FF">
<input class="go-wenbenkuang" name="submit" value=确定删除课程名称 type=submit onClick="return checkup();">
</td>
</tr>
</form>
</table>

<%
case "save"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from Jw_classname",conn,1,3
rs.addnew
rs("name")=trim(request("classname"))
rs("num")=trim(request("classnum"))
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "ok.asp?ok=添加课程名称"

case "del"
ID=request("ID")
conn.execute "delete from Jw_classname where ID="&ID
conn.close
set conn=nothing
response.redirect "ok.asp?ok=删除课程名称"

end select
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -