inlogin.asp

来自「学生报名管理系统 一个基于asp的网站」· ASP 代码 · 共 45 行

<%
Dim user25175,islogin
Sub user_Login_Judge()
	islogin=False
	If session("id")="" Then
		If request.cookies("user25175")("xx")<>"" And md5(request.cookies("user25175")("xx")&"||"&siteinfo(5,0))=request.cookies("user25175")("info") Then
			user25175=Split(request.cookies("user25175")("xx"),"||")
			session("id")=user25175(0)
			islogin=True
		Else
			response.cookies("user25175")("xx")=""
			response.cookies("user25175")("info")=""
			session("id")=""
		End If
	Else
		If request.cookies("user25175")("xx")<>"" And md5(request.cookies("user25175")("xx")&"||"&siteinfo(5,0))=request.cookies("user25175")("info") Then
			user25175=Split(request.cookies("user25175")("xx"),"||")
			session("id")=user25175(0)
			islogin=True
		ElseIf session("user25175_xx")<>"" Then
			user25175=Split(session("user25175_xx"),"||")
			islogin=True
		Else
			response.cookies("user25175")("xx")=""
			response.cookies("user25175")("info")=""
			session("id")=""
			response.write"<title>"&sitename&"</title>"
		End If
	End If
	'errmsg="<li>你还没有登陆，或者登陆超时！！！<br><li><a href='user_login.asp'>重新登陆"&sitename&"</a>"
	'call errormsg(errmsg)
	'response.end
End Sub 

Dim enroll25175,enroll_islogin
Sub enroll_Login_Judge()
	enroll_islogin=False
	If session("Enrollment_id")<>"" Then
		If session("Enrollment25175_xx")<>"" Then
			enroll25175=Split(session("Enrollment25175_xx"),"||")
			enroll_islogin=True
		End If
	End If
End Sub 
%>