chklogin.asp

来自「班主任评教系统用于对班主任的工作进行评价」· ASP 代码 · 共 60 行

<%@ Language=VBScript %>
<!--#include file="data.asp"-->
<%
set rs=server.CreateObject ("adodb.recordset")
'将rs的参数设定为由Server执行CreateObject的操作，并且产生ADODB中的Recordset对象
rs.Open"select * from student where 学号="+"'"+request.form("classno")+"'",conn,1
'将rs的参数设定为执行SQL的查询语法，将'含有"default.asp"中输入的学号的记录作为查询对象
recordcount=rs.RecordCount
'对查询对象进行计数
if recordcount<>0 then
'如果查询对象计数大于0则显示该记录的如下信息
session("姓名")=rs("姓名")
session("学号")=rs("学号") 
session("班级")=rs("班级") 
%>
<title>个人信息</title>
<div align="center">
  <p>&nbsp;</p>
<form name="form1" method="post" action="test.asp">
    <div align="center"><font size="5"><b>请检查下面关于你的信息对吗?</b></font><br>
      <br>
    </div>
    <table border="1" cellspacing="2" align="center" width="28%">
      <tr> 
        <td width="32%" nowrap><b><font size="4">学 号:</font></b></td>
        <td width="68%" nowrap><b><font size="4"><%=session("学号")%> 
          </font></b></td>
      </tr>
      <tr> 
        <td width="32%" nowrap><b><font  size="4">姓 名：</font></b></td>
        <td width="68%" nowrap><b><font  size="4"><%=session("姓名")%></font></b></td>
      </tr>
      <tr> 
        <td width="32%" nowrap><b><font size="4">班 级:</font></b></td>
        <td width="68%" nowrap><b><font size="4"><%=session("班级")%></font></b></td>
      </tr>
    </table>
    <br>
    <input type="submit" name="Submit" value="进 入 考 试" >
  </form>
 </div>

<%
else 
'如果没有查到该学号，则提示
 response.write "学号输入有误！"+"<br>"
end if
%>
<div align="center"><br>
  <a href="default.asp">返回登录页面</a></div>
  <%
rs.Close
'关闭rs对象
conn.close
'关闭conn对象
set rs=nothing
'断开与查询对象的链接
set conn=nothing
'断开与数据库的链接
%>