userchklogin.asp

一个美化的论坛程序

<%Response.Buffer=true%>
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="function.asp"-->
<!--#include file="style.asp"-->
<%if instr(lcase(request("comeurl")),"useradd.asp")>0 or instr(lcase(request("comeurl")),"userlogin.asp")>0 or instr(lcase(request("comeurl")),"usersave.asp")>0 or instr(lcase(request("comeurl")),"userchklogin.asp")>0 or trim(request("comeurl"))="" then
	url="index.asp"
else
	url=request("comeurl")
end if
Response.Write "<meta HTTP-EQUIV=REFRESH CONTENT='3; URL="&url&"'>"
founderr=false
if trim(request("username"))="" then
	errmsg=errmsg+"<br>"+"<li>请输入您的用户名。"
	founderr=true
else
	username=trim(request("username"))
end if
if request("password")="" then
	errmsg=errmsg+"<br>"+"<li>请输入您的密码。"
	founderr=true
else
	password=trim(request("password"))
end if
if founderr=true then
call error()
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from user where username='"&username&"' and lockuser=0"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
	errmsg=errmsg+"<br>"+"<li>您输入的用户名并不存在，<a href='UserReg.asp'>请先注册</a><li>或者管理员已经将用户账号锁定，请和管理员联系。"
	call error()
	response.end
else
	if rs("password")<>password then
		errmsg=errmsg+"<br>"+"<li>您输入的密码不正确。"
		call error()
		response.end
	else
	     if Request.Cookies("bookbaby")("username")<>username then
		rs("login")=rs("login")+1
		rs("score")=rs("score")+1
		lastlogin=rs("lastlogin")
		usersex=rs("sex")
		rs("lastlogin")=now
		rs("loginIP")=Request.ServerVariables("REMOTE_ADDR")
		rs.update
		conn.execute "delete * from online where username='"&Request.Cookies("bookbaby")("username")&"'"
		conn.execute "delete * from online where username='"&username&"'"
		conn.execute "insert into online(username,sex,stat,lasttime) values ('"&username&"',"&usersex&",'登陆论坛','"&now()&"')"
	     else
		lastlogin=rs("lastlogin")
		conn.execute("update online set stat='登陆论坛',lasttime='"&now()&"' where username='"&Request.Cookies("bookbaby")("username")&"'")
	     end if
%>
<table bgcolor=#000000 border=0 cellpadding=3 cellspacing=1 width="500" valign="top" align="center">
  <tr align="center">
    <td bgcolor="<%=tablebodycolor%>" colspan=4><%=rs("username")%>:您的登陆已经确认!</td>
  </tr>
  <tr align="center"> 
    <td bgcolor="<%=tablebodycolor%>" colspan="4">3秒后自动返回,如果您的浏览器没有反应,请<a href="<%=url%>"><font color=#ff0000>点击这里返回</font></a></td>
  </tr>
</table>
<%
		Response.Cookies("bookbaby")("username")=username
		Response.Cookies("bookbaby")("userpwd")=password
		Response.Cookies("bookbaby")("usersex")=usersex
		select case Request.Form("cookietype")
			case "1" Response.Cookies("bookbaby").expires=dateadd("d",1,now())
			case "2" Response.Cookies("bookbaby").expires=dateadd("ww",1,now())
			case "3" Response.Cookies("bookbaby").expires=dateadd("m",1,now())
			case "4" Response.Cookies("bookbaby").expires=dateadd("yyyy",1,now())
		end select
	end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
if datediff("d",lastlogin,now)>7 then 
	response.write "<script>javascript:alert('严重警告:"&username&"\n\n您已经超过一个星期没有登陆,连续三次警告将降级!')</script>"
end if
%>