chklogin.asp

来自「人才招聘系统,用asp做的」· ASP 代码 · 共 37 行

<!--#include file=../conn.asp-->
<!--#include file=md5.asp-->
<%
	dim sql
	dim rs
	dim username
	dim password
	username=replace(trim(request("username")),"'","‘")
	password=md5(request("password"))
	set rs=server.createobject("adodb.recordset")
	sql="select * from [administrator] where Password='"&Password&"' and UserName='"&UserName&"'"
	rs.open sql,conn,1,1
 	if not rs.bof and not rs.eof then
 		if password=rs("password") then
        Response.cookies("administrator")=rs("username")
        Response.cookies("quanxian")=rs("quanxian")
        if rs("yesno")<>true then
        Response.cookies("yesno")=0
        else
        Response.cookies("yesno")=1
        end if
        Response.cookies("quanxian")=trim(rs("quanxian"))
        Response.cookies("ijob")=1
		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="img/jobcn.css" rel=stylesheet></LINK>