loginchk.asp

人才招聘系统,用asp做的

<!--#include file=../../conn.asp-->
<%
	dim sql
	dim rs
	dim username
	dim password
	if len(request("username"))<1 or len(request("username"))>15 then
	response.write "<li><font color=""#ff0000"">用户名错误！</font>"
	response.write "<meta http-equiv=refresh content=""2;URL=login.asp"">"
	response.end
	end if
	if len(request("password"))<1 or len(request("password"))>15 then
	response.write "<li><font color=""#ff0000"">密码错误！</font>"
	response.write "<meta http-equiv=refresh content=""2;URL=login.asp"">"
	response.end
	end if
	username=replace(trim(request("username")),"'","‘")
	password=request("password")
	set rs=server.createobject("adodb.recordset")
	sql="select id,comid,UserName,Password,dlcs,dlsj,adminzt from [bumen] where Password='"&Password&"' and UserName='"&UserName&"' and admin=1"
	rs.open sql,conn,1,3
 	if not(rs.bof and rs.eof) then
 	        if rs("adminzt")=true then
            response.write " <li>你的帐号已经被管理员屏蔽了.<br><li>登陆管理请联系你的总管理员."
            response.write " <li><a href=login.asp><b><font color=#Ff0000>返回</font></b></a>"
            response.end
            else
 		    rs("dlcs")=rs("dlcs")+1
 		    rs("dlsj")=now()
 		    rs.update
            Response.cookies("ijob")("comid")=rs("comid")
            Response.cookies("ijob")("bmid")=rs("id")
            Response.cookies("ijob")("zt")=1 '1是部门管理员登陆状态
            Response.cookies("ijob")("domain")=Request.ServerVariables("SERVER_NAME")
			Response.Redirect "index.asp"
			end if
	else
            response.write " <li><b>身份确认失败！请<a href=login.asp><b><font color=#Ff0000>重新登陆</font></b></a></b><br> "
            
	end if
	rs.close
    set rs=nothing
    closedb
%>