loginchk.asp

人才招聘系统,用asp做的

<!--#include file=../conn.asp-->
<!--#include file=../person/md5.asp-->
<!--#include file=../config.asp-->
<%
	dim sql
	dim rs
	dim username
	dim password,zcdata,vipdata
	username=replace(trim(request("username")),"'","‘")
	password=md5(request("password"))
	set rs=server.createobject("adodb.recordset")
	sql="select UserName,comid,Password,dlcs,dlsj,vip,vipqx,vipdata,zcdata from [company] where Password='"&Password&"' and UserName='"&UserName&"'"
	rs.open sql,conn,1,3
 	if not(rs.bof and rs.eof) then
 		if password=rs("password") then
 		    zcdata=rs("zcdata")
 		    vipdata=rs("vipdata")
 		    if rs("vip")<>false then
 		      if (now()-vipdata)>=rs("vipqx")*365 then
              Response.Redirect "../vip_user.asp"
              response.end
              end if
            else
 		      if (now()-zcdata)>=vipuser then
              Response.Redirect "../vip_user.asp"
              response.end
              end if
            end if
		    rs("dlcs")=rs("dlcs")+1
 		    rs("dlsj")=now()
 		    rs.update
            if rs("vip")<>false then
            Response.cookies("ijob")("ijobvip")=1
            else
            Response.cookies("ijob")("ijobvip")=0
            end if
            Response.cookies("ijob")("comid")=rs("comid")
            Response.cookies("ijob")("username")=rs("username")
            Response.cookies("ijob")("domain")=Request.ServerVariables("SERVER_NAME")
			Response.Redirect "index.asp"
 		else
            response.write " <b>身份确认失败！请<a href=login.asp><b><font color=#Ff0000>重新登陆</font></b></a></b> "
 		end if
	else
            response.write " <b>身份确认失败！请<a href=login.asp><b><font color=#Ff0000>重新登陆</font></b></a></b> "
	end if
	rs.close
	conn.close
	set rs=nothing
	set conn=nothing

%>
 <LINK href="../1.css" rel=stylesheet></LINK><br>