admin_login_inc.asp

来自「学生证书查询管理系统2007 build1109D」· ASP 代码 · 共 59 行

<%
Sub adminlogin()
  if a_UserId="" then
	  FoundErr=True
	  ErrMsg=ErrMsg & "<br><li>用户名不能为空！</li>"
  end if
  if a_PassWord="" then
	  FoundErr=True
	  ErrMsg=ErrMsg & "<br><li>密码不能为空！</li>"
  end if
  if CheckCode="" then
	  FoundErr=True
	  ErrMsg=ErrMsg & "<br><li>验证码不能为空！</li>"
  end if
  if session("CheckCode")="" then
	  FoundErr=True
	  ErrMsg=ErrMsg & "<br><li><a href='login.asp'>你的登录等待时间过长，请返回登录页面重新登录</a></li>"
  end if
  if CheckCode<>CStr(session("CheckCode")) then
	  FoundErr=True
	  ErrMsg=ErrMsg & "<br><li>您输入的确认码和系统产生的不一致，请重新输入</li>"
  end if
  if FoundErr<>True then
	  a_PassWord=md5(md5(a_PassWord))
		set rs=conn.execute("select ID,a_UserName,a_Power from Admin_User where a_PassWord='"&a_PassWord&"' and a_UserId='"&a_UserId&"'")
		  if rs.bof and rs.eof then
				FoundErr=True
				ErrMsg=ErrMsg & "<br><li>用户名或密码错误！！！"&a_PassWord&","&md5(md5(1))&"</li>"
		  else  
				set rs1=conn.execute("update Admin_User set a_lastdate='"&now()&"',a_loads=a_loads+1 where a_PassWord='"&a_PassWord&"' and a_UserId='"&a_UserId&"'")
				cookiesinfo=request("cooks")
			
				admin25175s=rs(0)&"||"&a_UserId&"||"&rs(1)&"||"&rs(2)&"||"&Now()
				If cookiesinfo=1 Then 
					session("admin25175")=admin25175s
					session("admin25175_Effective")="20分钟"
				Else
					response.cookies("admin25175")("xx")=admin25175s
					response.cookies("admin25175")("info")=md5(admin25175s&"||"&siteinfo(5,0))
					If cookiesinfo="0" Then 
						Response.Cookies("admin25175").Expires = DateAdd("m",12,now())
						response.cookies("admin25175")("Effective")="12个月"
					ElseIf cookiesinfo="2" Then 
						Response.Cookies("admin25175").Expires = DateAdd("h", 1, Now())
						response.cookies("admin25175")("Effective")="1小时"
					ElseIf cookiesinfo="3" Then 
						Response.Cookies("admin25175").Expires = DateAdd("h", 12, Now()) 
						response.cookies("admin25175")("Effective")="12小时"
					ElseIf cookiesinfo="4" Then 
						Response.Cookies("admin25175").Expires = DateAdd("m",1,now()) 
						response.cookies("admin25175")("Effective")="30天"
					End If
				End If
				Response.Redirect "admin_index.asp"
		  end if
	  set rs=nothing
  end If
End Sub
%>