chklogin.asp

三鸟个人网站源码。

<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file="inc/char.asp"-->
<%
dim usr,pwd
dim rs,sql
usr=chStr(Trim(Request.Form("usr")))
pwd=chStr(Trim(Request.Form("pwd")))
sql="select top 1 LockUser from UserInfo where IsAdmin=True and USR='"&usr&"' and PWD='"&pwd&"'"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
%>
<script language=vbscript>
  MsgBox "您输入的用户名与密码不匹配！"
  location.href = "javascript:history.back()"
</script>
<%elseif rs(0)=True then%>
<script language=vbscript>
  MsgBox "此用户已被锁定，请与管理员联系！"
  location.href = "javascript:history.back()"
</script>
<%else
	dim ip
	ip=Request.ServerVariables("REMOTE_ADDR")
	session.Timeout=60
	session("adm_usr")=usr
	session("adm_pwd")=pwd
	conn.execute("update UserInfo set Point=Point+"&LoginPoint&",LoginTimes=LoginTimes+1,LastLogin=Now(),LastLoginIP='"&ip&"' where USR='"&usr&"'")
	response.redirect("admin.asp")
end if
set rs=nothing
conn.close
set conn=nothing
%>