Hoje escreveremos um programa de quadro de mensagens com funções de gerenciamento. A chamada função de gerenciamento na verdade significa que há uma caixa de seleção na frente de cada mensagem. Clique na mensagem a ser excluída ou clique em “Excluir todas as mensagens” para concluir a exclusão em lote. Através deste exemplo, podemos ter um entendimento preliminar das operações básicas do banco de dados em ASP.
1. Estabeleça um banco de dados (versão chinesa ACCESS2000)
myid tipo de texto 20 bytes Este é o único sinal de fala
meunome tipo de texto 10 bytes Este é o nome da pessoa que deixou a mensagem
tipo de data/hora agora A hora da mensagem é registrada aqui
mytitle tipo de texto 30 bytes Este é o título da mensagem
mybody comenta o conteúdo da mensagem
O campo myid é a chave, é o único sinal de exclusão.
2.
Código manager.asp
do programa de gerenciamento
'Defina as variáveis primeiro
dim listrs,conn,cmd
'O número de ciclos de i pode ser modificado de acordo com o número real de mensagens
para i = 1 a 100
if request("delit"&i)<>vazio então
'A instrução acima é a parte principal. Verifique se a i-ésima mensagem está selecionada. Se estiver selecionada, execute a seguinte operação de exclusão.
Definir conexão = Server.CreateObject("ADODB.Connection")
sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Fonte de dados="&Server.MapPath("guestbook.mdb")&";"
'A função mappath usa um parâmetro guestbook.mdb, indicando o banco de dados a ser conectado. Preste atenção ao problema do caminho.
conexão.Open sConnection
'Reconecta a tabela de dados
definir cmd=Server.Createobject("ADODB.Command")
definir cmd.activeconnection=conn
cmd.commandtext="excluir do convidado onde myid='"&request("delit"&i)&"'"
'O convidado acima é o nome da tabela de dados e myid é o nome do campo
cmd.execute
definir conn=Nada
definir cmd=Nada
'Executa instruções SQL e libera objetos
terminar se
próximo
'Saia do formulário, observe que o atributo action aponta para manage.asp
resposta.write ""
'Conecta ao banco de dados
definir conn=Server.CreateObject("ADODB.Connection")
definir listrs=server.createobject("ADODB.Recordset")
sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Fonte de dados="&Server.MapPath("guestbook.mdb")&";"
conexão.Open sConnection
listrs.open "selecione * do convidado",conn,2,2
'A tabela guest do banco de dados é aberta acima
eu=1
'Variável i começa a contar
enquanto não listrs.eof
response.write "De:"&listrs("meunome")&"----"&listrs("meutítulo")&"Hora:"&listrs("agorahora")&"
"&listrs("meucorpo")&"
"
eu=eu+1
'As duas etapas acima são os pontos-chave Ao enviar cada mensagem, produza uma caixa de seleção. A função desta caixa é retornar valores diferentes quando marcada ou desmarcada.
listrs.movnext
vamos
definir listrs=Nada
'Botão de envio de saída e sinalizador de final de formulário
resposta.write
3. Análise de código
O código não é fácil de entender, então deixe-me explicar:
1. Quando o programa é executado pela primeira vez, if request("delit"&i)<>empty então sempre retorna um valor falso porque a caixa de seleção não está marcada e então todas as mensagens são geradas.
2. Após selecionar a mensagem a ser excluída, pressione o “botão Excluir” e execute novamente.
3. Após excluir todas as mensagens selecionadas, exiba o quadro de mensagens.