<!--#include file="conn.asp"-->
<!--#include file="inc/inc.asp"-->
<%
webtit="25175學生網上報名管理系統－首頁"
%>
<!--#include file="inc/head.asp"-->
<!--#include file="inc/top.asp"-->
<%
Dim FoundErr,user_chk,errmsg
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=Sqlinfo("ID,uname","Reg_Userinfo"," password='"&password&"' and IdentityNO='"&IdentityNO&"'",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"-->