checklogin.asp

if you want it,call me.

<!--#include file="conn1.asp"-->
<!--#include file="../md5.asp"-->
<%
'=======================================
'88red科技独立开发完成本程序，并提供免费技术支持与升级服务
'官方网站 http://www.88red.com    QQ:8375158  TEL:[phone]
'对于商业客户，本站提供细致周到的各项售后服务；对于盗版客户恕不提供，对于散播本程序者本站将追究其法律责任
'88red科技将陆续开发其他各种先进程序，例如企业网站建站系统等等，对老客户购买其他程序给予最大程度的优惠，欢迎洽谈
'=======================================
admin=replace(trim(request("user")),"'","")
pass=replace(trim(request("pass")),"'","")

set rs=server.createobject("adodb.recordset")
sql="select * from admin where admname='"&admin&"'"
rs.open sql,conn,3,3
    if rs.eof then
        response.write "<script LANGUAGE='javascript'>alert('对不起，登陆失败！');window.location.reload('javascript:history.go(-1)')</script>"
    else
	   pass1=rs("admpass")
	   if pass1=md5(pass) then
        session("admin")=rs("admname")
		session("qx")=rs("quanxian")
        response.redirect "main.asp"
		else
		response.write "<script LANGUAGE='javascript'>alert('对不起，登陆失败！');window.location.reload('javascript:history.go(-1)')</script>"
		end if
    end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>