login.asp

2002年夏天为一个同学制作得班级同学录程序

<!--#include file="conn.asp" -->


<%
user=request("username")
password=request("password")

'===============获取用户ip====================

	Dim userip,userip2
	userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
	userip2 = Request.ServerVariables("REMOTE_ADDR")
	if userip = ""  then
    userip=userip2
	end if

session("userip")=userip

'==========================================

session("user")=user

sql="select * from user where userid='"&user&"' "
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2


if rs.eof then

%>
<font size=4 >用户名或密码错误,请确认后再登陆!!</font><br>
<a href="javascript:history.go(-1)">返回</a></p>
 

 <%
 response.end
 
 end if
 
if trim(rs("password"))=password then

  '登陆成功,修改用户信息
  rs("online")=true
  rs("logins")= rs("logins")+1
  rs.update
  
  response.redirect("main.asp")
 
else
%>
<font size=4 >用户名或密码错误,请确认后再登陆!!</font><br>
<a href="javascript:history.go(-1)">返回</a></p>
 
 
 <%
 response.end
end if



%>