login1.asp

软件介绍：国内最完善功能最齐全的多级会员程序.主要功能涵盖所有多级会员管理所需,超强大会员自定义编辑功能

<!--#include file="conn.asp"-->
<%
id=request("id")
user=request("username")
pass=request("password")
Set rs=Server.CreateObject("ADODB.recordset")
mysq="select * from mm where user='"&user&"'"
set rs=cn.execute(mysq)
if rs.eof then
%>
<script language="javascript">
alert("用户名或密码错误，请重新登陆!")
window.location="../?id=<%=id%>"
</script> 
<%
response.end
end if
if rs("pass")<>pass then
%>
<script language="javascript">
alert("用户名或密码错误，请重新登陆!")
window.location="../?id=<%=id%>"
</script>
<%
response.end
end if
if (date()-rs("dlrq"))>30 then
myss="update mm set fufei='被停' where user='"&user&"'"
cn.execute myss
response.write"<center><br>对不起，你已经超过30天没有登陆系统，已被停止会员资格!"
response.end
end if
cc=rs("ncount")+1
dd=date()
mymm="update mm set ncount='"&cc&"',dlrq='"&dd&"' where user='"&user&"'"
cn.execute mymm

session("mail1")=rs("email")
session("oicq1")=rs("oicq")
session("pass")=rs("pass")
session("user")=user
rs.close
set rs=nothing
cn.close
set cn=nothing
%><!--#include file="manage.asp"-->