login.asp

网站代码

<!--#include file="Include/conn_user.asp"-->
<!--#include file="Include/check.asp"-->
<!--#include file="Include/Pw_Function.asp" -->
<!--#include file="Include/md5.asp" -->
<%
'* 个人版价格：500元 商业版价格：700元
'* 演示：http://Demo.wenday.com
'* 版本：Engine_WenDay网站信息系统 Ver 2.0 演示版
'* 版权所有: 一奔网络工作室(Wenday.Com)
'* 联系QQ: 42367091
'* Email :[e-mail]
'* 程序开发: Wenday
%>
<% 
response.expires = 0
if request("Action")="ChkLogin" then
username=Checkin(Request.form("Username"))
userpass=Checkin(Request.form("Userpass"))
userpass=md5(userPass)
if username="" and userpass="" then Response.Redirect ("Index.asp")

set rs=server.createobject("adodb.recordset")
sql="select * from User where Username='"&Username&"' and UserPass='"&UserPass&"'"
rs.open sql,conn_user,3,3

if not rs.EOF then
	if rs("IsActive")=true then
	rs("LoginNum")=rs("LoginNum")+1
	rs("LastTime")=now()
	rs("UserIP")=Request.ServerVariables("REMOTE_ADDR")
	rs.Update
	Session("Pw_UserID")=rs("UserID")
	Session("Pw_Sys_User")=rs("Username")
	Session("Grade")=rs("Grade")
	Session("Pw_Money")=rs("Money")
	Session("UserEmail")=rs("UserEmail")
	Response.Redirect (request.servervariables("HTTP_REFERER"))
	else
		response.write"<script>alert('您还没有通过验证!\n管理员会尽快通过验证的！ ');location.replace('"&request.servervariables("HTTP_REFERER")&"')</script>"	
	response.End()
	end if
else
	errmsg="请输入正确的用户名和密码！"
	call error()
	Response.End 
end if
rs.close
set rs=nothing
conn_user.close
set conn_user=nothing
end if 

if request("Action")="LoginOut" then
UserID=Trim(Session("Pw_UserID"))
If UserID<>"" Then
	set rs=server.createobject("adodb.recordset")
	sql="select * from User where UserID="&UserID
	rs.open sql,conn_user,1,3
	if not rs.EOF then
	rs("LogoutTime")=now()
	rs.Update
	Session("Pw_UserID")=""
	Session("Pw_Sys_User")=""
	Session("Grade")=""
	Session("Pw_Money")=""
	Session("UserEmail")=""
		rs.Close
		set rs=nothing
	else
		response.write"数据库出错！"
		Response.end
	end if
end if
conn_user.close
set conn_user=nothing	
Response.Redirect (request.servervariables("HTTP_REFERER"))
end if
%>