📄 add_basic.asp
字号:
<% response.buffer=true%>
<!--#INCLUDE FILE="../../../system/odbc_connection.asp"-->
<!--#INCLUDE FILE="../../../system/function.asp"-->
<% if session("user_type")<>"T" then
response.redirect "../../../index.asp"
end if
%>
<HTML>
<HEAD>
<TITLE> 课程概要 </TITLE>
<link rel="stylesheet" href="../../../system/all.css">
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<%
dim lesson_id
lesson_id=Session("lesson_id")
sql="select lesson_name,thecode,thetime,thegrade,department,student,thetype from lesson where lesson_id='" & lesson_id & "'"
set rs=db.execute(sql)
%>
<h2 align="center">课程概要</h2>
<CENTER>
<form name=form1 method=post action="">
<TABLE border="0" width="80%" >
<Tr bgcolor="#e9e9e9">
<TD width=30%>课程名称</TD>
<TD width=70%><input name="lesson_name" type=text value="<%=rs("lesson_name")%>" size="50"></TD>
</Tr>
<Tr bgcolor="#e9e9e9">
<TD width=30%>开课院系</TD>
<TD width=70%><input name="department" type=text value="<%=rs("department")%>" size="30"></TD>
</Tr>
<Tr bgcolor="#e9e9e9">
<TD width=30%>学生对象</TD>
<TD width=70%><input name="student" type=text value="<%=rs("student")%>" size="30"></TD>
</Tr>
<Tr bgcolor="#e9e9e9">
<TD>课程号</TD>
<TD><input type=text name="thecode" value="<%=rs("thecode")%>" size="30"></TD>
</Tr>
<Tr bgcolor="#e9e9e9">
<TD>课程类型</TD>
<TD>
<select name="thetype">
<option value="<%=rs("thetype")%>"><%=rs("thetype")%></option>
<option value="必修">必修</option>
<option value="限选">限选</option>
<option value="选修">选修</option>
</select>
</TD>
</Tr>
<Tr bgcolor="#e9e9e9">
<TD>周学时</TD>
<TD><input name="thetime" type=text value="<%=rs("thetime")%>" size="10">填数字</TD>
</Tr>
<Tr bgcolor="#e9e9e9">
<TD>学分</TD>
<TD><input name="thegrade" type=text value="<%=rs("thegrade")%>" size="10">填数字</TD>
</Tr>
</TABLE>
<p><input type=submit name=submit value=" 确 定 ">  <input type=submit name=submit value=" 取 消 ">
</form>
</CENTER>
<%
If request("submit")=" 取 消 " Then
response.redirect "index.asp?lesson_id=" &lesson_id
End If
if trim(Request("lesson_name"))<>"" then
sql = "update lesson set lesson_name='" & request("lesson_name") & "'"
If Request("thecode") <> "" Then
Sql = Sql & ",thecode='" & request("thecode") & "'"
End If
If Request("thetime") <> "" Then
Sql = Sql & ",thetime=" & request("thetime")
End If
If Request("thegrade") <> "" Then
Sql = Sql & ",thegrade=" & request("thegrade")
End If
If Request("department") <> "" Then
Sql = Sql & ",department='" & request("department") & "'"
End If
If Request("student") <> "" Then
Sql = Sql & ",student='" & request("student") & "'"
End If
If Request("thetype") <> "" Then
Sql = Sql & ",thetype='" & request("thetype") & "'"
End If
Sql = sql & " where lesson_id='" & lesson_id & "'"
db.Execute(Sql)
db.close
set db=nothing
response.redirect "index.asp?lesson_id=" &lesson_id
end if
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -