📄 add_3.asp
字号:
<%response.buffer=true%>
<!--#INCLUDE FILE="../../system/odbc_connection.asp"--><html>
<head>
<title>开课第三步</title>
<link rel="stylesheet" href="../../system/all.css">
<script language="JAVASCRIPT">
<!--
function Trim(str){
while (str !="" && str.charAt(0) == " ") str = str.substring(1,str.length);
while (str !="" && str.charAt(str.length-1) == " ") str = str.substring(0,str.length-1);
return str;
}
function check_Null(){
if (Trim(document.form1.lesson_name.value)==""){
alert("课程名称不能为空!");
return false;
}
return true;
}
// -->
</script>
</head>
<body>
<%
dim user_id
user_id=request("user_id")
%>
<h2 align=center>第三步:填写课程资料</h2>
<p align="center" class="zhushi">注意：所有带**号的项目必须填写，所有资料以后可以修改</p>
<center>
<form name="form1" method="POST" action="" onsubmit="javascript: return check_Null();">
<table border='0' width='80%' >
<tr>
<td width="30%">课程名称</td>
<td width="70%"><input type="text" name="lesson_name" size="30">**</td>
</tr>
<tr>
<td>课程代号</td>
<td ><input type="text" name="thecode" size="15"></td>
</tr>
<tr>
<td >课程类型</td>
<td >
<select name="thetype">
<option></option>
<option value="必修">必修</option>
<option value="限选">限选</option>
<option value="选修">选修</option>
</select>
</td>
</tr>
<tr>
<td >周学时</td>
<td >
<input type="text" name="thetime" size="15">填数字
</td>
</tr>
<tr>
<td>周学分</td>
<td ><input type="text" name="thegrade" size="15">填数字</td>
</tr>
<tr>
<td>课程介绍</td>
<td >
<textarea cols=50 rows=3 name="intro" >该课程主要...</textarea>
</td>
</tr>
<tr>
<td>课程要求</td>
<td >
<textarea cols=50 rows=3 name="need" >该课程要求...</textarea>
</td>
</tr>
</table>
<p align="center"><input type="submit" value=" 确 定 " name="submit">  <input type="reset" value=" 取 消 " name="cancel">
</tr>
</form>
</center>
<%
'各项验证正确无误，则可继续注册，否则返回
if request("lesson_name")<>"" then
'先删除原有数据
sql="delete from lesson"
db.execute(sql)
'加入课程,open_flag=1表示课程默认开放
sql = "Insert into lesson(open_flag,lesson_name"
sValues = "values(1,'" & Request("lesson_name") & "'"
If Request("thetype") <> "" Then
Sql = Sql & ",thetype"
sValues = sValues & "," & "'" & Request("thetype") & "'"
End If
If Request("thetime") <> "" Then
Sql = Sql & ",thetime"
sValues = sValues & "," & "'" & Request("thetime") & "'"
End If
If Request("thegrade") <> "" Then
Sql = Sql & ",thegrade"
sValues = sValues & "," & "'" & Request("thegrade") & "'"
End If
If Request("intro") <> "" Then
Sql = Sql & ",intro"
sValues = sValues & "," & "'" & Request("intro") & "'"
End If
If Request("need") <> "" Then
Sql = Sql & ",need"
sValues = sValues & "," & "'" & Request("need") & "'"
End If
'这里课程ID暂时用一个数代替，以后再好好想想
Sql = Sql & ",lesson_id"
sValues = sValues & ",'" & Session("lesson_id") & "'"
Sql = Sql & ") " & sValues & ")"
db.Execute(Sql)
'在课程表user_lesson中加入
sql="delete from user_lesson"
db.Execute(Sql)
sql="insert into user_lesson(user_id,lesson_id,user_type) values('" & user_id & "'"
sql=sql & ",'" & Session("lesson_id") & "','T')"
db.Execute(Sql)
'在BBS库中添加信息
sql="insert into bbs_forum(forumname,lesson_id) values('课程讨论','" & Session("lesson_id") & "')"
db.Execute(Sql)
db.close
set db=nothing
response.redirect "add_4.asp"
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -