Toda vez que escrevo o sistema, preciso fazer login no programa, o que o torna extremamente problemático. De fato, podemos criar vários módulos funcionais comumente usados nas funções de verificação de login. Então, quais são os vários módulos funcionais comumente usados no ASP? Agora, vamos dar uma olhada na introdução de módulos funcionais comumente usados do ASP.
[código]
<%
Função chk_regist (requestname, requestpwd, tableName, namefield, pwdfield, reurl) dim cn_name, cn_pwdcn_name = trim (request.form ("" e requestname & "")) cn_pwd = trim (request.form ("&" cn & "")) se cn_pwd = ("" "e requestpwd &")) se cn_pwd = trim ("" e "" ou solicitação "")) se cn_pwd = request. ThenResponse.Write ("<Script Language = JavaScript> alert (" "Por favor, preencha a senha da conta na íntegra, obrigado por sua cooperação." ""); History.Go (-1) </Script> ") final ifset rs = server.createbject (" adodb.recordset ") sql =" select * de "" "& namefield &" = '' "& cn_name &" '' "rs.open sql, conn, 1,1f rs.eof thenprossonse.write (" <script idioma = javaScript> alert ("" sem membro, por favor, confirme se você foi aplicado. " session ("cn_name") = rs ("" e nome do campo e "") Response.Redirect (reurl) elSerponse.write ("<idioma do script = javascript> alert (" "lembrete, sua conta e senha não correspondem.
[código]
Descrição do parâmetro:
chk_regist (requestname, requestpwd, tablename, namefield, pwdfield, reurl)
RequestName é o nome de controle de entrada que aceita o nome inserido na página HTML.
requestpwd é o nome do controle de entrada que aceita a senha inserida na página HTML.
TableName é o nome da tabela que salva informações de registro no banco de dados
Namefield é o nome de campo que armazena o nome de usuário nesta tabela de informações
Pwdfield é o nome de campo da senha do usuário nesta tabela de informações
Reurl é a página que salta após o login corretamente
Os exemplos de citação são os seguintes:
<%Ligue para chk_regist ("b_name", "b_pwd", "cn_admin", "cn_name", "cn_pwd", "admin.asp")%>
2. Muitas vezes é possível julgar o estado atual de algo, geralmente um campo (tipo numérico, o valor padrão é 0)
O efeito da comutação de estado é alcançado modificando o valor desse campo. Então, fiz outra função para facilitar para mim.
<%Função pvouch (tableName, FildName, AutoidName, indexId) Dim FilterValueSet rs = server.createObject ("adodb.recordset") sql = "selecione * de" e tablename & "where" e autidname & "=" e indexidrs.open sql, connild e 2,3FliUe ") thenfildValue = 1elsefildValue = 0END ifrs ("" & fildName & "") = FildValuers.UpDaters.Close Set RS = NOTHEREND FUNÇÃO%>
Descrição do parâmetro:
Pvouch (tableName, Fildname, Autoidname, indexId)
Nome da tabela de nome do tablen no banco de dados onde a coisa está localizada
FilmName Essa coisa é usada para indicar o nome de campo do estado (o tipo de campo é numérico)
Nome de numeração automática do Autoidname nesta tabela
indexId é usado para modificar o valor numérico automático correspondente do estado
Os exemplos de citação são os seguintes:
<%dowhat = request.QueryString ("dowhat") p_id = cint (request.QueryString ("p_id")) se dowhat = "tj" e p_id <> "" thencall pvouch ("cn_products", "p_vouch", "p_id", p_id) final se então%>> recomendado <%else%>> Cancelar recomendação <%final se%>
3. Escreva sites para muitas empresas pequenas e médias. Geralmente, a exibição do produto é um grande projeto, portanto as páginas feitas são diferentes.
Alguns são organizados horizontalmente, ou alguns são dispostos verticalmente, ou mesmo uma estação inteira precisa jogar e girar várias vezes, o que é muito problemático e cansativo.
Basta escrever uma função para aliviá -lo, então se tornou o seguinte
<%da função ShowPros (tableName, Topnum, Fildname, Loopnum, TypeEpenum) Definir rs = server.createObject ("adodb.recordset") sql = "selecione top" e topnum & " * de" & tableNames.open sqlens, conn, 1,1if e rs.eof e Roms.BOF e R.S.BOF e R.S.BOF e " Moment ") elSerSponse.Write (" ") para i = 1 a Rs.RecordCountif (i Mod loopnum = 1) thenResponse.Write" "End IfSelect Case Typenumcase" 1 "Response.Write (" ") Response.write (rs (" "& fildname &" ")) Response.write (" Artuma """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" ") Response.Write (" ") End Selectif (i Mod loopnum = 0) thenResponse.write" "final ifrs.movenextnextSponse.write (" ") final ifrs.close Definir rs = NOTHOREND FUNÇÃO%>
Parâmetro Descrição: ShowPros (nome do tablename, Topnum, Filtername, Loopnum, Typepenum)
Qual Pro escolhe o tipo de produto
Topnum significa quantos registros são extraídos
O FildName representa o campo exibido por depuração. Este parâmetro pode ser omitido ao aplicá -lo em detalhes e usado diretamente na função
Loopnum representa o número de registros por linha do loop exibido
O typenum representa o método de exibição circular: Atualmente, existem duas categorias, paralelas e paralelas verticalmente, exibem registros diferentes da mesma linha de registro de dados.
Os exemplos de citação são os seguintes:
<%se request.form ("submeter") <> "" thEntopnum = request.form ("topnum") loopnum = request.form ("loopnum") tynenum = request.form ("typenum") elsetopnum = 8loopnum = 2typenum = 1end se%> <% Slighs ("cn_products", topnum, "p_name", loopnum, typenum)%>
O acima é o conteúdo inteiro deste artigo. Espero que o conteúdo deste artigo seja de ajuda para o seu estudo ou trabalho. Se você tiver alguma dúvida, pode deixar uma mensagem para se comunicar. Obrigado pelo seu apoio do novo canal de tecnologia certo ou errado!