Conexão do banco de dados:
A seguir, o conteúdo de referência:
<%
Definir Conn = Server.CreateObject (Adodb.Connection)
Conn.open driver = {Microsoft Access Driver (*.mdb)};
%>
Abra o banco de dados:
A seguir, o conteúdo de referência:
EXEC = Selecione * da tabela de banco de dados
set rs = server.createObject (adodb.oldset)
Rs.oopen Exec, Conn, 1,1
Parâmetro 1, 1 para ler
Leia o formato de conteúdo: <%= rs (campo)%>
Adicionar programa de processamento de registros:
A seguir, o conteúdo de referência:
<%
Definir Conn = Server.CreateObject (Adodb.Connection)
Conn.open driver = {Microsoft Access Driver (*.mdb)};
nome = request.form (campo) nome, tel, mensagem para enviar o valor do campo
tel = request.form (campo)
mensagem = request.form (campo)
Exec = inserir no nome da tabela (campo) valores ('+campo+') é separado por uma vírgula com uma vírgula
Conn.Execute Exec usa o envio de execução
Conn.Close
defina conn = nada
%>
Programa de processamento de pesquisa:
A seguir, o conteúdo de referência:
<%
nome = Nome do request.Form (campo), Tel é o valor do campo definido pela configuração do formulário do formulário
tel = request.form (campo)
Definir Conn = Server.CreateObject (Adodb.Connection)
Conn.open driver = {Microsoft Access Driver (*.mdb)};
exec = selecione * da tabela onde nome = '+campo+' e tel =+campo
set rs = server.createObject (adodb.oldset)
Rs.oopen Exec, Conn, 1,1
%>
'O conteúdo da página pesquisou
<%
Faça enquanto não é Rs.eof
%> <tr>
<Td> <%= rs (nome)%> </td>
<Td> <%= rs (tel)%> </td>
<Td> <%= rs (tempo)%> </td>
</tr>
<%
rs.movenext
laço
%>
Exclua o programa de processamento de registros:
A seguir, o conteúdo de referência:
<%
Definir Conn = Server.CreateObject (Adodb.Connection)
Conn.open driver = {Microsoft Access Driver (*.mdb)};
EXEC = excluir * do nome da tabela onde número = & request.form (id)
Conn.Execute Exec
%>
Modifique o programa de processamento de registros:
A seguir, o conteúdo de referência:
<%
Definir Conn = Server.CreateObject (Adodb.Connection)
Conn.open driver = {Microsoft Access Driver (*.mdb)};
EXEC = Selecione * do nome da tabela onde número = & request.form (id)
set rs = server.createObject (adodb.oldset)
Rs.oopen Exec, Conn, 1,3 '1,3 é o significado modificado
Rs (nome) = request.form (campo) 'nome, tel, mensagem é o valor do campo definido pelo envio do formulário
rs (tel) = request.form (campo)
Rs (mensagem) = request.form (campo)
rs.update
Rs.close
Definir rs = nada
Conn.Close
defina conn = nada
%>
Modifique o programa de execução de registro: insira a página do número de identificação >>> Exportar os dados de identificação correspondentes >>>>>> Programa de processamento diretamente modificado
Exemplo de procedimentos de processamento de login:
A seguir, o conteúdo de referência:
<%
Dim Nome, senha
nome = request.form (nome)
senha = request.form (senha)
Dim Exec, Conn, RS
EXEC = Selecione *do nome da tabela onde (nome = 'e campo &' e senha = '& Field &')
Definir Conn = Server.CreateObject (Adodb.Connection)
Conn.open driver = {Microsoft Access Driver (*.mdb)};
set rs = server.createObject (adodb.oldset)
Rs.oopen Exec, Conn
se não Rs.eof então
Rs.close
Conn.Close
sessão (verificado) = sim
sessão (check) = à direita
Response.Redirect Index.asp
outro
sessão (verificado) = não
sessão (check) = w
Response.Redirect Login.asp
final se
%>
Cada página de segundo plano mais:
<%se não sessão (verificado) = sim, então 'session Defina uma variável de sequência verificada
Response.Redirect Login.asp
outro
%>