login.asp

毕业生信息管理系统,做毕业设计也许会有用的

<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<!--#include file="top.asp"-->
<%
  user_name=trim(Request("username"))
  user_num=trim(Request("usernum"))
  user_password=md5(Request.form("password"),16)
%>
<div align=center>
<%
  If user_name="" or user_num="" or user_password="" Then
   Response.Write("对不起，姓名和学号，密码不能为空！")
%>
<p>
<div align=center><a href="zhuce.asp">请重新登录！</a></div>
<p>
<!--#include file="down.asp"-->
<%
   Response.End
  End if
%>
</div>
<%
  ss="Select * from login where username like '"+user_name+"' and usernum='"+user_num+"' and userpassword='"+user_password+"'"
  set rs=Server.CreateObject("Adodb.Recordset")
  rs.open ss,conn,1,1
%>
<%
  ss1="Select * from info where xsxh='"+user_num+"'"
  set rs1=Server.CreateObject("Adodb.Recordset")
  rs1.open ss1,conn,1,1
%>
<%if not (rs.eof or rs.bof) then%>
<%
  if user_name=rs("username") and user_num=rs("usernum") and user_password=rs("userpassword") then
   Response.Write("登录成功！")
   Session("usernum")=user_num
   Session("username")=user_name
   if not (rs1.eof or rs1.bof) then
    if rs1("syddm")<>"" then
     Response.Redirect "view.asp"
     Response.End
    end if
   end if
   if not (rs1.eof or rs1.bof) then
    if user_num=rs1("xsxh") Then
     Response.Redirect "tijiao.asp"
     Response.End
    end if
   else
    Response.Redirect "infoadd.asp" 
   end if    
  end if 
%>
<%Else%>
<div align=center>
<%Response.Write("对不起，您输入的姓名、学号或密码有误，请重新")%> 
<a href="zhuce.asp"><%Response.Write("登录！")%></a> 
</div>
<%End If%>
<%rs.close%>
<%set rs=nothing%>
<p>
<!--#include file="down.asp"-->