📄 adminaddcourse.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="function.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%
dim action,id
action=request.QueryString("action")
id=request.QueryString("id")
if action="modify" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from course where courseid=" & id
rs.open sql,conn,1,1
%>
<form id="form1" name="form1" method="post" action="adminsavecourse.asp?action=modify">
<table width="100%" border="0">
<tr>
<td colspan="2">修改课程</td>
</tr>
<tr>
<td>课程编号</td>
<td><input type="text" name="cno" value="<%=rs("courseno")%>" /></td>
</tr>
<tr>
<td>课程名</td>
<td><input type="text" name="cname" value="<%=rs("coursename")%>" /></td>
</tr>
<tr>
<td>上课时间</td>
<td><input type="text" name="ctime" value="<%=rs("coursetime")%>" /></td>
</tr>
<tr>
<td>任课教师</td>
<td>
<%
set rst=server.CreateObject("adodb.recordset")
sql="select * from teacher"
rst.open sql,conn,1,1
if rst.bof and rst.eof then
response.Write("还没有添加教师")
else
%>
<select name="tch">
<%
do while not rst.eof
%>
<option value="<%=rst("teacherid")%>"
<%if rst("teacherid")=rs("teacherid") then%>selected="selected"<%end if%>><%=rst("teachername")%></option>
<%
rst.movenext
loop
%>
</select>
<%
end if
%>
</td>
</tr>
<tr>
<td colspan="2"><label>
<input type="submit" name="Submit" value="提交" />
<input type="hidden" name="id" value="<%=id%>" />
</label></td>
</tr>
</table>
</form>
<%
else
%>
<form id="form1" name="form1" method="post" action="adminsavecourse.asp?action=add">
<table width="100%" border="0">
<tr>
<td colspan="2">添加/修改课程</td>
</tr>
<tr>
<td>课程编号</td>
<td><input type="text" name="cno" /></td>
</tr>
<tr>
<td>课程名</td>
<td><input type="text" name="cname" /></td>
</tr>
<tr>
<td>上课时间</td>
<td><input type="text" name="ctime" /></td>
</tr>
<tr>
<td>任课教师</td>
<td>
<%
set rst=server.CreateObject("adodb.recordset")
sql="select * from teacher"
rst.open sql,conn,1,1
if rst.bof and rst.eof then
response.Write("还没有添加教师")
else
%>
<select name="tch">
<%
do while not rst.eof
%>
<option value="<%=rst("teacherid")%>"><%=rst("teachername")%></option>
<%
rst.movenext
loop
%>
</select>
<%
end if
%>
</td>
</tr>
<tr>
<td colspan="2"><label>
<input type="submit" name="Submit" value="提交" />
</label></td>
</tr>
</table>
</form>
<%
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -