📄 add_ta.asp
字号:
<% response.buffer=true%>
<%
If Session("user_type")<>"T" Then
Response.Redirect "../../../../index.asp"
End If
%>
<!--#INCLUDE FILE="../../../system/odbc_connection.asp"-->
<% '还需要修改,直接添加好了，就不要显示原来的了%>
<HTML>
<HEAD>
<TITLE> 添加助教 </TITLE>
<link rel="stylesheet" href="../../../system/all.css">
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<h2 align="center">添加助教</h2>
<CENTER>
<form name=form1 method=post action="">
<TABLE border="0" width="80%" >
<Tr bgcolor="#e9e9e9">
<TD width=20%>用户名</TD>
<TD width=80%><input name="user_id" type=text value="" size="30">**</TD>
</Tr>
<Tr bgcolor="#e9e9e9">
<TD>姓名</TD>
<TD><input type=text name="user_name" value="" size="30">**</TD>
</Tr>
<Tr bgcolor="#e9e9e9">
<TD>密码</TD>
<TD><input name="password" type=password value="" size="30">**</TD>
</Tr>
<Tr bgcolor="#e9e9e9">
<TD>密码确认</TD>
<TD><input name="password2" type=password value="" size="30">**</TD>
</Tr>
<tr>
<td colspan=2 align=center><input type=submit name=submit value=" 确 定 ">  <input type=submit name=submit value=" 取 消 "></td>
</tr>
</TABLE>
</form>
</CENTER>
<%
dim lesson_id,exit_flag
lesson_id=request("lesson_id")
If request("submit")=" 取 消 " Then
response.redirect "index.asp?lesson_id=" & lesson_id
End If
if trim(Request("user_id"))<>"" and trim(request("user_name"))<>"" and trim(request("password"))<>"" and trim(request("password"))=trim(request("password2")) then
'先校验该用户有人用没有
sql="select * from student where user_id='" & request("user_id") & "'"
set rs=db.execute(sql)
exit_flag=0
If not rs.eof and not rs.bof Then
exit_flag=1
End If
sql="select * from teacher where user_id='" & request("user_id") & "'"
set rs=db.execute(sql)
If not rs.eof and not rs.bof Then
exit_flag=1
End If
If exit_flag=1 Then
response.write "<center>该用户名已经有人用了，请换一个名字再试一下"
Else
'正式添加助教
sql = "Insert into teacher("
sValues = "values("
If Request("user_id") <> "" Then
sql = sql & "user_id"
sValues = sValues & "'" & Request("user_id") & "'"
End If
If Request("user_name") <> "" Then
Sql = Sql & ",user_name"
sValues = sValues & "," & "'" & Request("user_name") & "'"
End If
If Request("password") <> "" Then
Sql = Sql & ",password"
sValues = sValues & "," & "'" & Request("password") & "'"
End If
Sql = Sql & ") " & sValues & ")"
db.Execute(Sql)
'添加助教课程选择
sql="insert into user_lesson(user_id,lesson_id,user_type) values('" & request("user_id") & "'"
sql=sql & ",'" & lesson_id & "','TA')"
db.execute(sql)
db.close
set db=nothing
response.redirect "index.asp?lesson_id=" &lesson_id
End If
Else
response.write "<p align=center class='zhushi'>所有内容都要填入并且密码和密码确认要一致</center>"
end if
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -