check.asp

在线图书馆管理系统的具有前台后后台。前台用户系统主要功能是显示用户借阅信息及图书查找功能。后台管理员系统主要是负责前台信息的维护和图书书库的管理。本系统可以方便的使用户高效率地找到自己所需要的图书。另

<%@ codepage ="936" %>
<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<% dim verifycode,verifycode2
verifycode=trim(Request.Form("verifycode"))
verifycode2=trim(Request.Form("verifycode2"))
if verifycode<>verifycode2 then
response.write"<SCRIPT language=JavaScript>alert('您输入的验证码不正确。');"
response.write"location.href='index.asp'</SCRIPT>"
founderr=true
else
session("verifycode")=""
%>

<% 
dim rs,sql
	set rs=server.createobject("adodb.recordset") 
	sql="select * from [user]"
 	rs.open sql,conn,1,3  
if request("action")="login" then
	user_name=Request.Form("user_name")

	admin_pass=md5(Request.Form("admin_pass"),16)
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from [user] where UserName='"&user_name&"' and Password='"&admin_pass&"'"
rs.open sql,conn,1,3
    if rs.eof then
        response.write "<br><br><br><br><font size=2><center>　　对不起，您输入的用户名、密码或验证码有误，从重新输入，谢谢！<br><br>本软件建议您使用IE6.0以上版本，分辨率：1024*768<br><br>否则一切后果与本软件无关，特此声明！</font>"
    else
        session("user_name")=request("user_name")
        session("loc")=1
        response.redirect "main.asp"
	end if 
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
end if
%>