xt_member_que.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("username"), 20)
    if isnull(shortname) then
       errorList=errorList & "用户登录名为1到20个字符。<br>"
    end if
    

  cmdTemp.CommandText = "SELECT * FROM shopper where shortname='"&shortname&"'" 
    
   Set recordSet = Server.CreateObject("ADODB.Recordset") 
    recordSet.Open cmdTemp, , adOpenKeyset, adLockOptimistic
  if  recordSet.EOF  then  
      errorList=errorList & "用户名错误。<br>"
  else
       ShopperId = recordSet("shortname")
       que=recordSet("question")
  end if

    if errorList <>"" then
%>
        <!--#INCLUDE FILE="include/error.asp" -->
<%
    else
        redirect_target = Request("redirect_target")
        'if IsNull(redirect_target) then
           ' redirect_target = "/" & mscsPage.VirtualDirectory & "/" & "personality.asp?shopper_id="&mscsShopperId
        'end if
        Response.Redirect redirect_target&"?que="&que&"&shopper_id="&ShopperId
    end if
%>