⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 student_insert.asp

📁 本系统适用于选择题（单选和多选）的练习和考试.主要有七大模块：学习信息、经验交流、学生练习、学生考试、试卷管理、题库操作、身份 资料、成绩查询、系统帮助。超级管理员还可进行系统设置
💻 ASP
字号:
🔍 
<!--#include file="open.asp" -->
<!--#include file="inc/md5.inc" -->
<%self_name="student_insert.asp"%>
<%
  doing=request.querystring("doing")
  if doing="login" then  '用户登录
      user_id=trim(request.form("user_id"))
	  pass=trim(request.form("pass"))
	  if user_id<>"" and pass<>"" and instr(user_id,"'")=0 and instr(user_id,"&")=0 then
	      pass=ucase(md5(pass))
		  str="select * from user_teacher where teacher_user='"&user_id&"' and teacher_pass='"&pass&"'"
		  set rs=conn.execute(str)
		  if not rs.eof then
		      session("zzteacher")=true
			  session("name")=rs("teacher_name")
			  session("teacher_user")=user_id
			  if rs("teacher_class")="超级管理员" then session("zzadmin")=true end if
		  else
		      str="select * from user_student where 学籍号='"&user_id&"' and 密码='"&pass&"'"
		      set rs=conn.execute(str)
			  if not rs.eof then
			     session("zzstudent")=true
				 session("student_id")=user_id
				 session("name")=rs("姓名")
				 session("student_bj")=rs("班级")
			  end if
		  end if
	  end if
  end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head><!--#include file="inc/css.css" -->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>留溪在线考试</title>
</head>

<body topmargin="1">
<!--#include file="top.asp" -->
<!--#include file="menu.asp" -->
<table width="770" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#ff99cc" bgcolor="#edebdb">
<%if session("zzteacher")=true or session("zzstudent")=true then%>
  <tr> 
    <td height="20" class="unnamed12"><div align="center">用户已登录　用户类别：
	<%if session("zzstudent")=true then%>学生　学籍号：<%=session("student_id")%>　姓名：<%=session("name")%>　班级：<%=session("student_bj")%><%end if%>
	<%if session("zzteacher")=true then%>教师　姓名：<%=session("name")%><%end if%>
	　<%if session("zzadmin")=true then%><a href=system_setup.asp>系统设置</a><%end if%>
        　<a href="quit.asp?back=<%=self_name%>">退出</a></div></td>
  </tr>
<%else%>
  <tr> 
    <td height="20" class="unnamed12"> <form name="form1" method="post" action="<%=self_name%>?doing=login">
        <div align="center">用户登录　输入学籍号或用户名： 
          <input name="user_id" type="text" id="user_id" value=<%=id_disp%> size="20">
          　密码： 
          <input name="pass" type="password" id="pass" size="16">
          　 
          <input type="submit" name="Submit" class="unnamed12" value="登录">
          　 
          <input type="reset" name="Submit2" class="unnamed12" value="重填">
          　 <a href="reg.asp?back=<%=self_name%>">注册</a>　<a href="rereg.asp">忘记密码</a></div>
      </td></form>
  </tr>
<%end if%>
</table>
<table width="770" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td class="unnamed4">　</td>
  </tr>
</table>
<%if session("zzteacher")=true then%>

<%   '增加学生操作
   if doing="insert" then
        student_class=request.form("student_class")
		student_id=trim(request.form("student_id"))
		student_name=trim(request.form("student_name"))
		pass_basic=trim(request.form("pass_basic"))
		str="select 学籍号 from user_student where 学籍号='"&student_id&"'"
		set rs=conn.execute(str)
		if not rs.eof then
		    msg="已有此学籍号的学生，验证学籍号是否正确"
		else
		    if student_name="" then
			      msg="学生姓名不能为空，请输入学生姓名"
			else
	              str="insert into user_student(班级,学籍号,姓名,初始密码) values('"&student_class&"','"&student_id&"','"&student_name&"','"&pass_basic&"')"
				  conn.execute(str)
				  msg="学生已经写入数据库"
			end if
		end if
   end if
%>

<table width="770" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#ff99cc" bgcolor="#edebdb">
  <tr>
    <td width="200" valign="top"><table width="163" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td class="unnamed10">　</td>
        </tr>
        <tr> 
          <td background="images/top01.gif" class="unnamed10">　</td>
        </tr>
        <tr> 
          <td height="30" background="images/mid01.gif" class="unnamed14"> <div align="center"><strong>学生信息操作</strong></div></td>
        </tr>
        <tr> 
          <td height="30" background="images/mid01.gif" class="unnamed12"> <div align="center"><a href="student_insert.asp" class="unnamed12wu">增加学生</a></div></td>
        </tr>
        <tr>
          <td height="30" background="images/mid01.gif" class="unnamed12"><div align="center"><a href="student_list.asp" class="unnamed12wu">浏览编辑</a></div></td>
        </tr>
<%if session("zzadmin")=true then%>
        <tr> 
          <td height="30" background="images/mid01.gif" class="unnamed12"> <div align="center"><a href="teacher_edit.asp" class="unnamed12wu">增删教师</a></div></td>
        </tr>
<%end if%>
        <tr> 
          <td background="images/bottom01.gif" class="unnamed10">　</td>
        </tr>
        <tr> 
          <td class="unnamed10">　</td>
        </tr>
      </table></td>
    <td width="570" valign="top"><table width="400" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td class="unnamed10">　</td>
        </tr>
      </table>
      <table width="550" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td><form name="form2" method="post" action="student_insert.asp?doing=insert">
              <table width="500" border="1" align="center" cellpadding="0" cellspacing="0">
                <tr bgcolor="#999999"> 
                  <td height="40" colspan="2"> <div align="center" class="unnamed18"><strong>增 
                      加 学 生 操 作</strong></div></td>
                </tr>
                <tr> 
                  <td width="30%" height="30" class="unnamed14"><div align="right">班　　级：</div></td>
                  <td height="30">　
                    <select name="student_class" id="student_class">
<%str="select * from bj"
  set rs=conn.execute(str)
  do while not rs.eof
%>
                      <option value=<%=rs("bj_name")%> selected><%=rs("bj_name")%></option>
<%rs.movenext
  loop%>
                    </select></td>
                </tr>
                <tr> 
                  <td width="30%" height="30" class="unnamed14"><div align="right">学 
                      籍 号：</div></td>
                  <td height="30">　
                    <input name="student_id" type="text" id="student_id" value="<%=id_disp%>"></td>
                </tr>
                <tr> 
                  <td width="30%" height="30" class="unnamed14"><div align="right">姓　　名：</div></td>
                  <td height="30">　
                    <input name="student_name" type="text" id="student_name"></td>
                </tr>
                <tr> 
                  <td width="30%" height="30" class="unnamed14"><div align="right">初始密码：</div></td>
                  <td height="30">　
<%randomize
  pass=int((999999-100000+1)*rnd+100000)%>
                    <input name="pass_basic" type="text" id="pass_basic" value="<%=pass%>"></td>
                </tr>
                <tr> 
                  <td height="40" colspan="2"><div align="center">
                      <input type="submit" name="Submit3" value=" 增 加 ">
                      　　　　 
                      <input type="reset" name="Submit4" value=" 重 填 ">
                    </div></td>
                </tr>
              </table>
            </td></form>
        </tr>
      </table>
      <div align="center"><font color="#FF0000"><span class="unnamed14h20"> 
        <%if msg<>"" then response.write msg end if%>
        </span></font></div>
      <table width="400" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td class="unnamed10"> 　</td>
        </tr>
      </table></td>
  </tr>
</table>
<%else%>

<!--#include file="index01.asp" -->

<%end if%>

<!--#include file="inc/bottom.asp" -->
<%conn.close%>
</body>
</html>

⌨️ 快捷键说明

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