loginchk.asp

人才招聘系统,用asp做的

<!--#include file=../conn.asp-->
<!--#include file=md5.asp-->
<!--#include file=../config.asp-->
 <LINK href="../1.css" rel=stylesheet></LINK>
<%
	dim sql,sql1
	dim rs,rs1
	dim username
	dim password,cmdexample,dlcs,n1w
	username=replace(trim(request("username")),"'","‘")
	password=md5(request("password"))
	n1w=now()
	set cmdexample=server.createobject("adodb.command")
	cmdexample.activeconnection=conn
	cmdexample.commandtext="personloginchk"
	cmdexample.commandtype=4
	cmdexample.parameters.append cmdexample.createparameter("@RETURN_VALUE",3,4,0)
	cmdexample.parameters.append cmdexample.createparameter("@username",200,1,20)
	cmdexample.parameters.append cmdexample.createparameter("@password",200,1,20)
	cmdexample.parameters("@username").value=username
	cmdexample.parameters("@password").value=password
	set rs=cmdexample.execute
if not(rs.bof and rs.eof) then
 	if password=rs("password") then
	set rs1=server.createobject("adodb.recordset")
	sql1="select UserName,dlcs,dlsj from [person] where UserName='"&rs("UserName")&"'"
	rs1.open sql1,conn,1,3
	rs1("dlcs")=rs1("dlcs")+1
	rs1("dlsj")=now()
	rs1.update
    Response.cookies("ijob")("jobid")=rs("jobid")
    Response.cookies("ijob")("username")=rs("username")
    Response.cookies("ijob")("aoo")=ijob_fser
    Response.cookies("ijob")("domain")=Request.ServerVariables("SERVER_NAME")
	Response.Redirect "index.asp"
 	else
    errlogin
    end if
else
    errlogin
end if
%>
<%
rs1.close
set rs1=nothing
rs.close
set cmdexample=nothing
set rs=nothing
conn.close
set conn=nothing
sub errlogin()
       response.write "<br>"
       response.write " <li><b>身份确认失败！请<a href=login.asp><b><font color=#Ff0000>重新登陆</font></b></a></b> "
       response.end
end sub
%>