chk_login.asp

九酷网络个人主页系统破解版

<!--#include file="config.asp"-->
<!--#include file="inc/md5.asp"-->
<%
if Request.Form("verifycode")<>Session("VerifyCode") then
WriteErrMsg("验证码错误或已经过期，请返回并刷新页面再重新输入！")
end if
loginip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
if loginip= "" then loginip=Request.ServerVariables("REMOTE_ADDR")
username=replace(request.form("username"),"'","")
password=md5(request.form("password"),32)
usercookies=request("CookieDate")
sql="select * from [user] where username='"&username&"' and password='"&password&"'"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
WriteErrMsg("用户名或密码错误，请重新输入！")
end if
if rs("stopdate")<>"" then
if rs("stopdate") < Date() then
WriteErrMsg("您的帐号已经到期了！")
end if
end if
if rs("state")=2 then
WriteErrMsg("您的帐号已被锁定！")
end if
if rs("state")=0 then
WriteErrMsg("您申请的帐号还没审核通过或还未激活！")
end if
rs("logins")=rs("logins")+1
rs("loginip")=loginip
rs("logindate")=Now()
rs.update

	select case usercookies
	case "0"
		Response.Cookies("9cool_username")=rs("username")
		Response.Cookies("9cool_password")=rs("password")
	case 1
   		Response.Cookies("9cool_username").Expires=Date+1
		Response.Cookies("9cool_password").Expires=Date+1
		Response.Cookies("9cool_username")=rs("username")
		Response.Cookies("9cool_password")=rs("password")
	case 2
   		Response.Cookies("9cool_username").Expires=Date+31
		Response.Cookies("9cool_password").Expires=Date+31
		Response.Cookies("9cool_username")=rs("username")
		Response.Cookies("9cool_password")=rs("password")
	case 3
   		Response.Cookies("9cool_username").Expires=Date+365
		Response.Cookies("9cool_password").Expires=Date+365
		Response.Cookies("9cool_username")=rs("username")
		Response.Cookies("9cool_password")=rs("password")
	end select
response.redirect "member.asp"
%>