<!--#include file="../eogetip.asp"--> <!--#include file="stuinc/md5.asp"--> <!--#include file="../eoConn.asp"--><% eoIP=geteoIP eoTime=Now() eoName=Trim(Request("Id")) eoName=Replace(eoName,"'","''") eoName=Lcase(eoName) eoPwd=Trim(Request("Pwd")) if eoName="" or eoPwd="" then response.Redirect("index.asp")
set rs=server.CreateObject("ADODB.Recordset") If eoName <> "" Then sql="SELECT * FROM V_N_StuInfo WHERE (eoStuId='" &eoName& "') AND (eoStuPwd='"&eoPwd&"') AND eoStuAvailable='1'" 'response.Write(sql) 'response.End() rs.Open sql,conn,1,3 If Not rs.EOF Then session("eo_StuIP")=eoIP session("eo_StuTime")=eoTime session("eo_StuId")=Trim(rs("eoStuId")) session("eo_StuName")=Trim(rs("eoStuName")) session("eo_StuXYJB0201")=Trim(rs("eoXYJB0201")) session("eo_StuXYJB0202")=Trim(rs("eoXYJB0202")) session("eo_StuDEP0201")=Trim(rs("eoDEP0201")) session("eo_StuDEP0202")=Trim(rs("eoDEP0202")) session("eo_StuDZZ0201")=Trim(rs("eoDZZ0201")) session("eo_StuDZZ0202")=Trim(rs("eoDZZ0202"))
set rs1=server.CreateObject("ADODB.Recordset") sql1="Update N_StuInfo set eoStuOnline='1' where eoStuId='"&eoName&"'" 'response.Write(sql1) rs1.open sql1,conn,1,3 set rs1=nothing
'设置Stu用户为在线状态 sql_Login="Update N_StuInfo set eoStuOnline='1',eoStuLoginDate='"&Now()&"' where eoStuId='"&Trim(rs("eoStuId"))&"'" conn.execute(sql_Login)
set rs=nothing conn.close set conn=nothing 'response.Write("aaa") 'response.End() response.Redirect("manage.asp?eoerrorstr="&eoName&"-登录成功!") else set rs=nothing conn.close set conn=nothing response.Redirect("../index.asp?eoerrorstr="&eoName&"-登录失败!") end if %>
<!--#include file="stuinc/md5.asp"-->
<!--#include file="../eoConn.asp"--><%
eoIP=geteoIP
eoTime=Now()
eoName=Trim(Request("Id"))
eoName=Replace(eoName,"'","''")
eoName=Lcase(eoName)
eoPwd=Trim(Request("Pwd"))
if eoName="" or eoPwd="" then response.Redirect("index.asp")
set rs=server.CreateObject("ADODB.Recordset")
If eoName <> "" Then sql="SELECT * FROM V_N_StuInfo WHERE (eoStuId='" &eoName& "') AND (eoStuPwd='"&eoPwd&"') AND eoStuAvailable='1'"
'response.Write(sql)
'response.End()
rs.Open sql,conn,1,3
If Not rs.EOF Then
session("eo_StuIP")=eoIP
session("eo_StuTime")=eoTime
session("eo_StuId")=Trim(rs("eoStuId"))
session("eo_StuName")=Trim(rs("eoStuName"))
session("eo_StuXYJB0201")=Trim(rs("eoXYJB0201"))
session("eo_StuXYJB0202")=Trim(rs("eoXYJB0202"))
session("eo_StuDEP0201")=Trim(rs("eoDEP0201"))
session("eo_StuDEP0202")=Trim(rs("eoDEP0202"))
session("eo_StuDZZ0201")=Trim(rs("eoDZZ0201"))
session("eo_StuDZZ0202")=Trim(rs("eoDZZ0202"))
set rs1=server.CreateObject("ADODB.Recordset")
sql1="Update N_StuInfo set eoStuOnline='1' where eoStuId='"&eoName&"'"
'response.Write(sql1)
rs1.open sql1,conn,1,3
set rs1=nothing
'设置Stu用户为在线状态
sql_Login="Update N_StuInfo set eoStuOnline='1',eoStuLoginDate='"&Now()&"' where eoStuId='"&Trim(rs("eoStuId"))&"'"
conn.execute(sql_Login)
set rs=nothing
conn.close
set conn=nothing
'response.Write("aaa")
'response.End()
response.Redirect("manage.asp?eoerrorstr="&eoName&"-登录成功!")
else
set rs=nothing
conn.close
set conn=nothing
response.Redirect("../index.asp?eoerrorstr="&eoName&"-登录失败!")
end if
%>