Recomendado: vários envios repetidos de formulários restritos no ASP Na Internet, encontramos inúmeros formulários todos os dias e também vemos que a maioria deles não restringe os usuários de enviar o mesmo formulário várias vezes. A falta de tais restrições às vezes pode produzir alguns resultados inesperados, como assinatura duplicada em serviços de email ou votação duplicada. Este artigo apresenta um método simples em aplicativos ASP para impedir que os usuários enviem o mesmo formulário várias vezes durante a sessão atual
A entrada em lote é amplamente usada em bancos de dados e existem muitos métodos para entrada em lote. Em seguida, falarei sobre como consegui isso com base no meu aplicativo real. O uso principal é o conceito de coleção de formulários, que leva todos os dados da coleção através do loop. Considerando que é conveniente para que todos vejam, eu o integrasse em uma página.
Aqui está o código específico:
| A seguir, o conteúdo citado: <% 'Escreva dados no banco de dados Sub Writedata () Dim Reccnt, i Dim FieldName1, FieldName2, FieldName3 Dim Conn Dim SQLSTR, Connstr Connstr = provedor = sqloledb.1; catálogo inicial = myDatabase; fonte de dados = myhon; ID do usuário = sa; senha = Definir Conn = Server.CreateObject (Adodb.Connection) Conn.Open Connstr 'Crie uma conexão de banco de dados reccnt = request.form (stu_num) .count 'quantos registros existem no total 'Dados de entrada em lote para i = 1 para reccnt FieldName1 = Trim (request.form (FieldName1) (i)) FieldName2 = Trim (request.form (FieldName2) (i)) FieldName3 = Trim (request.form (fieldname3) (i)) sqlstr = insert in mytable (fieldname1, fieldname2, fieldname3) valores (' sqlstr = sqlstr & fieldname1 & ',' sqlstr = sqlstr & fieldname2 & ',' sqlstr = sqlstr & fieldname3 & ') 'Response.Write SQLSTR Conn.Execute (SQLSTR) próximo Final sub 'Mostrar interface de entrada em lote Sub InputData () Dim Reccnt, i %> <nome de forma = BathinputData Action = Method = Post> <% reccnt = cint (request.form (reccnt)) para i = 1 para reccnt %> <Tipo de entrada = Nome do texto = FieldName1> <Tipo de entrada = Nome do texto = FieldName2> <Tipo de entrada = Nome do texto = FieldName3> <% próximo %> <br> <Tipo de entrada = Envie Nome = Ação Valor = Enviar> </morm> <% Final sub 'Especifique quantos registros serem inseridos em lotes Sub DesconowowMuch () %> <! ------ Especifique quantos registros entrarem ---------------------> <nome de forma = form1 ação = método = post> O número de registros que você deseja inserir: <Tipo de entrada = Nome do texto = Reccnt> <Tipo de entrada = Nome de envio = Valor da Ação = Próximo >>> </morm> <% Final sub se request.form (ação) = a seguir >> então Chamada inputData () 'Mostrar interface de entrada em lote elseif request.form (action) = commit e depois ligue para Writedata () 'em lote de gravação de dados no banco de dados outro Ligue para atribuições final se %> |
Compartilhar: Soluções para ASP múltiplas consultas Muitas vezes encontramos vários problemas de consulta, e as longas declarações SQL geralmente deixam os monges confusos. Especialmente quando a peça do cliente preenche as condições de consulta, será ainda mais difícil usar métodos comuns. O seguinte usa inteligentemente a identidade de onde 1 = 1 (na verdade, é muito, deixe -o ter um valor de verdade) para resolver esse problema. Resumo do texto 'Title de informação do assunto