login.asp

多语言网站管理系统

<!--#include file="include/buyok_shop_30_conn.asp"-->
<!--#include file="chopchar.asp"-->
<%
call aspsql()
call buyok_check_path()

Userid=trim(request.form("userid"))
Password=trim(request.form("password")) 
cook=cint(request.form("cook")) 
if request.form("Login")<>"ok" then response.redirect "main.asp"
if Userid = "" or Password ="" then response.redirect "shop_error.asp?error=004"
if Userid = request.cookies("buyok")("userid") then response.redirect "shop_error.asp?error=005"
sql = "select * from buyok_user where userid='"&Userid&"'"
Set rs=Server.CreateObject("ADODB.RecordSet") 
rs.open sql,conn,1,3
if (rs.bof and rs.eof) then
	response.redirect "shop_error.asp?error=003"
	response.end
end if
if rs("Status")<>"正常" and rs("Status")<>"1" then
response.write "<script language='javascript'>"
response.write "alert('出错了，您的会员号已被锁定或者未通过审核。');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
end if
if  rs("UserPassword")<> md5(Password) then
session("login_error")=session("login_error")+1
response.write "<script language='javascript'>"
response.write "alert('您输入的密码不正确，请检查后重新输入。\n\n出错 "&session("login_error")&" 次');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
else
	rs("lastlogin")=now()
	rs("IP")=Request.serverVariables("REMOTE_ADDR")
	rs("TotalLogin")=rs("TotalLogin")+1
	rs.update
	response.cookies("buyok")("userid")=lcase(userid)
	if request.form("cook")<>"0" then response.cookies("buyok").expires=now+cook
	if request.cookies("buyok")("cart")<>"" then
	  response.write "<script>"
	  response.write "window.open('order/check.asp','blank_','scrollbars=yes,resizable=no,width=650,height=450')"
	  response.write "</script>"
	end if
	response.write "<meta http-equiv='refresh' content='0;URL=user_center.asp'>"
end if
rs.close
set rs=nothing
%>