userchklogin.asp

顶级影视站ＡＳＰ源代码系统。很全面很强大。数据库用access

<!--#include file="HMconnection.asp"-->
<!--#include file="../MD5/md5.asp"-->
<!--#include file="webconfig.asp"-->
<%dim username,password,userip
username=trim(request("username"))
password=trim(request("password"))
password=replace(password," ","")
password=replace(password,"'","")
password=md5(password)
UserIP=Request.ServerVariables("REMOTE_ADDR")

if username="" then%>
<script language="vbscript">
msgbox"对不起，请输入你的的用户名！"
location.href="javascript:history.go(-1)"
</script>
<%response.end
else
username=Checkin(trim(request("username")))
end if

if password="" then%>
<script language="vbscript">
msgbox"对不起，请输入你的的密码！"
location.href="javascript:history.go(-1)"
</script><%
response.end
else
password=Checkin(trim(request("password")))
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
%>
<script language="vbscript">
msgbox"你输入的帐号不存在，或己被管理员锁定！"
location.href="javascript:history.go(-1)"
</script>
<%
rs1.close
set rs1=nothing
response.end
else
if rs("password")<>password then
%>
<script language="vbscript">
msgbox"您输入的密码有误，请仔细检查！"
location.href="javascript:history.go(-1)"
</script><%
response.end
else
set rs1=server.createobject("adodb.recordset")
sql1="select * from user where username='"&username&"'"
rs1.open sql1,conn,1,3
rs("logins")=rs("logins")+1
rs("lastlogin")=Now()
rs("online")=1
rs("loginIP")=Request.ServerVariables("REMOTE_ADDR")
rs.update
session("username")=username
logins=rs("logins")
username=rs("username")
regtime=rs("Regtime")
session("password")=password
session("grade")=rs("grade")
session.timeout=200
rs1.close
set rs1=nothing
%>
<%
end if
end if%>
<script language="javascript">
alert("你好<%=username%>,你己登陆本站<%=logins%>次")
<%if request("wangye")="memberlogin" then
response.Write("window.close();")
else
response.Write("document.URL='../index.asp';")
end if
%>
</script>