userlogin.asp

全功能网上商城 免费版

<!--#include file="Comm/conn.asp"-->
<%
Userid		= replace(request.form("userid"),"'","") 
Password	= replace(request.form("password"),"'","") 
verifycode	= request.form("verifycode")

if request.form("UserLogin")<>"True" then response.end
if Userid = "" or Password ="" then response.redirect "error.asp?error=004"
if Userid = Session("estore_userid") then response.redirect "error.asp?error=005"
if verifycode <> cstr(Session("verifycode")) then response.redirect "error.asp?error=010"

sql = "select * from usermain where userid='"&Userid&"' and Status='正常'"
Set rs=Server.CreateObject("ADODB.RecordSet") 
rs.open sql,conn,1,1
if rs.bof or rs.eof then
	response.redirect "error.asp?error=003"
else

	if rs("UserPassword")= Password then
		Session("estore_userid") = Userid
		Session("estore_password") = Password
		session("loginpass")="ok"

    else
		response.redirect "error.asp?error=004"
   end if
end if


'判断从哪里登陆，是否返回购物车
rs.close
set rs=nothing

Session("estore_userid")=userid
userid = Session("estore_userid")
if Session("ProductList")<>"" then
	response.redirect "order/order_check.asp"
else
	response.redirect "my_accounts.asp"
end if

%>
<%
if request("userlogout")="logout" then
            Session("estore_userid") = ""
            Session("estore_password") = ""
            Session("estore_userleavel")= ""
            Session("ProductList") = ""
            Session("subsList") = ""
            session("Quatityt")=""
response.redirect "index.asp"
end if
%>