<% 
  '從Session變量中讀取注冊用戶信息，并連接到數據庫驗證
  UserId = Trim(Session("user_id"))
  Pwd = Trim(Session("user_pwd"))
  '如果用戶名為空，則顯示提示信息
  If UserId = "" Then
    Response.Write("不是注冊用戶，不能進入")
    Response.End
  Else
    '連接數據庫，進行身份驗證
    sql="SELECT * FROM Users WHERE UserId='" & UserId & "' AND Pwd='" & Pwd & "'"
    Set rs = conn.Execute(sql)
    If rs.EOF Then
      Response.Write("不是注冊用戶，不能進入")
      Response.End
    End If
  End If
%>