enrollment_checklogin.asp

) 25175学校通用网络办公系统 2) 25175新闻系统 3) 25175网站搜索引擎 4) 25175公司量化考核系统 5) 25175学校成绩管理系统 6) 25

<!--#include file="conn.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/md5.asp"-->
<%
webtit="学生网上信息管理系统－首页"
%>
<!--#include file="inc/head.asp"-->
<!--#include file="inc/top.asp"-->
<%
action=che(request("action"))
If action="" Then
	Dim cooks,IdentityNO,password
	IdentityNO=che(request.form("IdentityNO"))
	password=che(request.form("password"))

	if IdentityNO="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<li>用户名不能为空！</li>"
	end if
	if password="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<li>密码不能为空！</li>"
	end if
	if FoundErr<>True then
		password=md5(md5(password))
		Sql_Lists="ID,uname"
		Sql_tables="Reg_Userinfo"
		Sql_Conditions=" password='"&password&"' and IdentityNO='"&IdentityNO&"'"
		sql=Sqlinfo(Sql_Lists,Sql_tables,Sql_Conditions,Sql_Sortings,Sql_Orders,Sql_Additional)
		user_chk =connopen(sql)
		If Not isArray(user_chk) Then
		
			FoundErr=True
			ErrMsg=ErrMsg & "<li>用户名或密码或身份错误！！！</li>" 
		Else
			cooks=1
			user25175s=user_chk(0,0)&"||"&user_chk(1,0)&"||"&IdentityNO&"||"&password&"||"&Now()&"||"&cooks
			If cooks=1 Then 
				session("Enrollment25175_xx")=user25175s
			Else
				response.cookies("user25175_xx")=user25175s
				response.cookies("user25175_info")=md5(user25175s&"||25175")
			End If
			session("Enrollment_id")=user_chk(0,0)
			Response.Redirect "Enrollment.asp"
			response.write session("Enrollment25175_xx")
		end if
			set rs=nothing
	end If
	if founderr=true Then main_errormsg ErrMsg
Else
	session("Enrollment25175_xx")=""
	session("Enrollment_id")=""
	Response.Redirect "Enrollment.asp"
End If 
Sub main_left()
	res "<div id=""sidebar"" style="""">",1
	res "</div>",1
End Sub
%>

<!--#include file="inc/footer.asp"-->