Recomendado: Interprete o uso da função do objeto regexp de ASP Os objetos regexp fornecem suporte simples de expressão regular. Uso do objeto regexp: o seguinte é o conteúdo referenciado: function regexptest (patn, strng)
Script de verificação de login de usuário, chkpwd.asp
| A seguir, o conteúdo citado: <% '========= Script de verificação de login do usuário ========== 'Se o objeto passado não foi definido, é definido como falso, indicando que não passou a verificação Se isempty (sessão (passada)), então Sessão (passada) = false Final se 'Sessão (passada) = false, o que significa que as informações de verificação passadas do formulário ainda não foram aprovadas. Se sessão (passada) = false então Nome de usuário = request.form (nome de usuário) Userpwd = request.form (userpwd) Se nome de usuário = então Errmsg = dica: insira seu nome de usuário e senha Outro '================================================== == Definir Conn = Server.CreateObject (Adodb.Connection) Conn.ConnectionString = driver = {SQL Server}; server = 192.168.1.3; uid = SA; pwd =; Database = ZCMRS Conn.Open '============================= Leia os dados do usuário do log da tabela ================ ========== 'Defina o objeto RecordSet Set rs = server.createObject (adodb.recordset) 'Definir o ConnectionString do objeto de conexão Defina rs.ActiveConnection = Conn 'Definir tipo de cursor rs.cursortype = 3 'Conjunto de registro aberto Rs.Open Selecione o nome de usuário, senha do ErpUser onde o nome de usuário = '& Nome de usuário &' '================================================== == Se rs.eof então Errmsg = dica: o usuário não existe ou a senha está errada Outro Se userpwd <> rs.fields (senha) então Errmsg = TIP: Falha no login! Else 'login com sucesso Errmsg = Sessão (passada) = true Sessão (nome de usuário) = rs.fields (nome de usuário) 'Identifique sessão de permissões de usuário (UserID) = Rs.fields (UserID) Final se Final se Final se Final se 'Após o login falhar, o formulário de login será desenhado Se não sessão (passada) = true então %> <html> <head> <title> unt intitulado Documento </ititle> <tipo de estilo = texto/css> <!- .Style1 {font-size: 12px; font-peso: negrito; margem-esquerda: 120px; esboço: duplo} -> </style> <tipo de estilo = texto/css> <!- .Style2 {font-size: 12px; font-weight: BOLD; esboço: duplo; cor:#ff3333} -> </style> </head> <Body LeftMargin = 0 topmargin = 0 marginHeight = 0 marginwidth = 0 bgcolor =#000000> <div ID = Estilo pai = altura: 300; largura: 450; estilo de borda: sólido; cor de borda: #fffff; margin-top: 80px; margem-esquerda: 25%; margem-direita: 25%; fundo- Cor: #ffffff> <div ID = Denglu Style = Fonte-tamanho: 12px; peso da fonte: Bold; cor de fundo:#0099FF; Text-align: Center; Hight: 40px;> <br> Erp System Login </div> <Form Action = <%= request.Servervariables (PATH_INFO)%> Método = Nome da postagem = MyForm ID = MyForm> <p class = style1> nome de usuário: <nome de entrada = nome de usuário Tipo = ID de texto = tamanho do nome de usuário = 18 maxLength = 20> </p> <p class = style1> senha: <nome de entrada = userpwd type = senha id = userpwd size = 18 maxlength = 20> </p> <p align = Center Class = style2> <%= errmsg%> </p> <p> <Tipo de entrada = enviar alinhamento = nome do meio = Valor de envio = login para sistema> <nome de entrada = rege type = button align = middle OnClick = location = 'Register.asp' id = rege Value = Registrar Usuário> </p> </morm> </div> </body> </html> <% '<P class = style1> Código de verificação: <nome de entrada = checkcode type = iD de texto = checkco |
Compartilhar: ASP Aprendizagem de expressão regular Podemos verificar facilmente a legalidade de vários dados por objeto "expressão regular". Primeiro, vamos entender o que exatamente é o objeto "Expressão regular" do VBScript.
2 páginas no total Página anterior 12 Próxima página