xt_member_login.asp

用ASP写的电子购物系统

<%@ LANGUAGE = vbscript %>
<!--#INCLUDE FILE = "include/shop.asp" -->
<!--#INCLUDE FILE = "include/util.asp" -->
<% REM ##########################################################################%>
<% REM                                                                          #%>
<% REM   XT_MEMBER_LOGIN.ASP                                                    #%>
<% REM   用户登录                                                               #%>
<% REM                                                                          #%>
<% REM   Copyright (c) 1999-2000 Epro Corporation.  All rights reserved.        #%>
<% REM                                                                          #%>
<% REM ##########################################################################%>

<%
    dim errorList
    
    shortname    = checklength(Request("name"), 20)
	if IsNull(shortname) then
		errorList=errorList & "用户名为1到20个字符。<br>"
	end if 
    password      = checklength(Request("pa"), 20)
	if IsNull(password) then
		errorList=errorList & "密码为1到20个字符。<br>"
	end if 
    on error goto 0
    
    if errorList= "" then
		cmdTemp.CommandText = "SELECT shortname FROM Shopper WHERE shortname = '" & Replace(shortname, "'", "''") & "' and password='" & Replace(password, "'", "''") & "'"

		Set recordSet = Server.CreateObject("ADODB.Recordset")
		recordSet.Open cmdTemp, , adOpenKeyset, adLockOptimistic
		
		if recordSet.RecordCount =0 then
		    errorList=errorList & "用户名或密码错误。<br>"
		else
		    Session("ShopperId") = recordSet("shortname").value
        end if
    end if

    if errorList<> "" then
%>
        <!--#INCLUDE FILE="include/error.asp" -->
<%
    else
        if isnull(Request("goto")) or Request("goto")="" then
            Response.Redirect "index.asp"
        else
			Response.Redirect Request("goto")
		end if
    end if
%>