📄 newstudent.asp

📁 北京市公交车查询,基于ASP的开发环境!数据库是ACCESS [成绩查询.rar] - 网上成绩查询系统把学生姓名成绩输入数据库...[

💻 ASP

字号:

<!--#include file="top.asp"-->
<!--#include file="conn.asp"-->
<%Set rs = Server.CreateObject("ADODB.Recordset")
number=session("number")
passwd=session("Passwd")
sql="select * from admin1 where number='"&number&"'and passwd='"&Passwd&"'"
rs.open sql,conn,3,3
if rs.eof then
response.redirect "index.asp"
response.end
end if
%> 
<%
key1=rs("oskey")
IF not(KEY1="super") THEN
	response.redirect "error.asp?id=065"
	response.end
END IF
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css.css">
<title>理学院成绩查询系统-添加新学生</title>

</head>
<body leftmargin="0" Topmargin="0" marginwidth="0" marginheight="0" background="images/greystrip.gIf">
<table width="760" border="0" cellspacing="0" cellpadding="0">
<tr><td><div align="right"><a href="manage.asp"><font color="red">返回管理首页</font></a>&nbsp;&nbsp;&nbsp;</div></td></tr>
</table>
<table width="760" border="0" cellspacing="0" cellpadding="0" bgcolor="#316395" vspace="0" hspace="0" bordercolor="#316395" bordercolordark="#FFFFFF" bordercolorlight="#316395" background="images/titbg.gIf" height="26" align="center">
  <tr>
    <td height="25"><div align="center"><a align="center">--添加新同学--</a></div></td>      
  </tr>
</table>
<table width="760" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>
<table align="center">
<form action="addstudentok.asp" method="post" name="form" id="form">
  <tr> 
      <td width="278"> 学  号： 
        <input name="number" type="text" id="number"></td>
  </tr><tr> <td width="303"> 姓  名： 
        <input name="studentname" type="text" id="studentname"></td>
    </tr>
    <tr> 
      <td>性    别： 
        <select name="sex">
          <option selected>男</option>
          <option>女</option></select></td>
  </tr><tr> <td>班    级： 
<select name="classname" style="border: 1px dotted #008000">  
<%                                     
rs.close
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from class"                                     
 rs.open sql,conn,1,1                                    
			  do while not rs.eof                                     
                                sel="selected"                                         
		             response.write "<option " & sel & ">"+rs("classname")+"</option>"+chr(13)+chr(10)                                     
		             rs.movenext                                     
    		          loop                                     
			rs.close                                     
			  %>                                      
      </select>


</td>
    </tr>
    <tr> 
      <td>电    话： 
        <input name="phone" type="text" id="phone"></td>
  </tr><tr> <td>宿    舍： 
        <input name="home" type="text" id="home"></td>
    </tr>
    <tr> 
            <td><p>&nbsp;
          </p>
              <p align="center">
            <input type="submit" name="Submit" value="提交">
            <input type="reset" name="Submit2" value="重置">
              </p></td>
    </tr>
</form>
</table>
</body>
</html>
<!--#include file="bottom.asp"-->

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -