login_check.asp

武汉软件园人力资源管理系统完整源代码,希望大家能够多多交流.

<!--#include file="include/conn.asp"-->
<%
dim guest,pass,CEN
guest=request.QueryString("guest")
pass=request.QueryString("password")
session("name")=guest
set CEN= New RegExp              '创建对象
CEN.Pattern="^([A-Za-z0-9-_]|[\u0391-\uFFE5])+$" 
if CEN.test(guest)=false or CEN.test(pass)=false then
   Response.Redirect "index.asp?info=2"
end if
conn.execute "update invite set invite_stage='过期' where invite_stage='已发布' and invite_requestdate<='"&date&"'"
if guest<>"" and pass<>"" then
	set res=server.CreateObject("adodb.recordset")
	res.open "select * from users where users_name='"&guest&"' and users_password='"&pass&"'",conn,1,1
	if res.bof and res.eof then
		Response.Redirect "index.asp?info=1"
	else
		session("UsersId")=res("users_id")
		session("PerId")=res("personnel_id")
		Response.Redirect "main.asp"
	end if
end if
%>