admin_check.asp

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

<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<!--#include file="top.asp"-->
<%
  aduser=Trim(Request("admin_name"))
  adpsw=Request.form("admin_password")
%>
<%
  fs="Select * from admin Where username='"+aduser+"'"
  Set rs=Server.CreateObject("Adodb.Recordset")
  rs.open fs,conn,1,1
%>
<div align=center>
<%
  if aduser="" or adpsw="" then
   Response.Write("对不起，用户名或密码不能为空")
%>
<p>
请点<a href="admin_login.asp">这里</a>返回
<p>
<!--#include file="down.asp"-->
<%
   Response.End
  end if
%>
</div>
<div align=center>
<%
  if aduser<>rs("username") or md5(adpsw,16)<>rs("password") then
   Response.Write("您输入的用户名或密码有误，请重试")
%>
<p>
请点<a href="admin_login.asp">这里</a>返回   
<p>
<!--#include file="down.asp"-->
<%
   Response.End
  end if  
%>
</div>
<%Session("user")=rs("username")%><%
  rs.close
  set rs=nothing
  conn.close
  set conn=nothing
%><%Response.Redirect "admin_manage.asp"%><!--#include file="down.asp"-->
<!--#include file="down.asp"-->