checkuser_function.asp

北京华信东方网络办公系统

<%
function checklogin(UserName, PassWord)
sql="SELECT c_UserId, (SELECT N_ID FROM hxdf_user_info WHERE (c_UserID = hxdf_user_login.c_UserId) ) as id ,v_LoginPwd ,c_State"&_
		" FROM hxdf_user_login "&_
		" WHERE (v_LoginName like '"& UserName &"' and "&_
		" v_LNEncode like '"& crack(UserName) &"')"
'response.Write crack(request.form("UserName"))
set rs=server.CreateObject("adodb.recordset")
on error resume next
rs.Open sql,conn,1,1
errinfo=""
if err.number<>0 then
response.Write err.Description
end if
if rs.EOF then
errinfo = "用户不存在，请<a href='user/user_reg_1.asp'>注册</a>"
flag=false
elseif rs("c_State")="n" then
errinfo = "用户已经被封闭，如果要开启账号请与管理员联系！"
flag=false
elseif rs("v_LoginPwd") <> crack(PassWord) then
errinfo = "密码错误！"
flag=false
else
Session("id")=rs("id")
flag = true
end if
rs.Close: set rs=nothing
response.Write errinfo
checklogin = flag
end function

sub SetSession(UserArray)
'N_ID, c_UserID, v_UserTrueName, c_Sex, v_Peoples, v_NativePlace, d_Birthday,6
'	 v_MobileNumber, v_OtherTelNum, v_Email, v_DepartmentName, v_duty, v_remark,6
'	 v_PicturePath, v_WorkPlace2
Session("UID")=UserArray(1,0)
Session("UserTrueName")=UserArray(2,0)'用户姓名
Session("Birthday")=UserArray(6,0)
Session("Sex")=UserArray(3,0)
Session("DepartmentName")=UserArray(10,0)'用户的所在部门
Session("MobileNumber")=UserArray(7,0)
Session("OtherTelNum")=UserArray(8,0)
Session("Email")=UserArray(9,0)
Session("duty")=UserArray(11,0)
Session("WorkPlace")=UserArray(14,0)
Session("PicturePath")=UserArray(13,0)
end sub
%>