logon.asp

程序名称：酷虎网校友录 V1.0 （商业版）*(修改版） * 本软体为商业软件

<!--#include file="conn.asp"-->
<!--#include file="inc/md5.asp"-->
<%
Name=Request.Form("Name")
Password=Request.Form("Password")
%>
<%
SQL="SELECT ID,姓名,密码,最后访问时间,最后登录时间,登录次数,班别,是否在线 FROM 注册信息 WHERE 姓名='"& Name &"'"
Set LogonRS=server.Createobject("ADODB.Recordset")
LogonRS.Open SQL,Conn,3,2
IF LogonRS.Eof Then
Response.Redirect "index.asp"
Else
	IF Md5(Password)=LogonRS("密码") Then
		LogonRS("最后登录时间")=Now()
		LogonRS("最后访问时间")=Now()
		LogonRS("登录次数")=LogonRS("登录次数")+1
		LogonRS("是否在线")="线上"
		LogonRS.Update
		Session("User")=Name
		Application("User")=Name
		
		SQL="Select * From 班级设置 Where ID=" & Int(LogonRS("班别"))
		Set RS1=Server.CreateObject("ADODB.Recordset")
		RS1.Open SQL,Connstr,1,1
		IF Not RS1.Eof Then
		IF RS1("管理员")=LogonRS("ID") Then
		Session("Administrator1")=RS1("ID")
		End IF
		End IF
		Response.Redirect "index.asp"
	Else
		Response.Redirect "index.asp"
	End IF
End IF
Set RS=Nothing
%>