<!-Meu primeiro ASP+Program->
<!-Se houver uma reimpressão, indique a fonte! Autor: Nature Homepage: http://zhanzhen.wayall.com Bem -vindo
<!-O autor escreveu cegamente: esse programa me levou n por um longo tempo. Essência bem. Essência O principal motivo é que eu não sei muito sobre o ADO+. Essência Depois de usar o modo ADO original, ficou realmente desconfortável ao mesmo ) --->
<!-Função do programa: use o painel no painel ASP +, o controle da web para obter a troca de três janelas, para que a função do nosso demandante implemente com três páginas no ASP (se for difícil fazer uma imagem, está tudo bem , mas, mas não seja muito complicado) agora você pode finalizá -lo enquanto uma página. Em seguida, use o ADO+DataSet e o DataTable Control para concluir a operação do banco de dados->
<!-
Trabalho preliminar: Crie um banco de dados MyTest no SQL Server e, em seguida, coloque esta seção no analisador de consulta SQL
Criar tabela [DBO].
[intid] [int] identidade (1, 1) não nula,
[VcuserID] [Varchar] (20) Não nula,
[VCPassword] [Varchar] (20) Não NULL,
[vcName] [Varchar] (20) NULL,
[vctel] [varchar] (20) null,
[vcaddr] [Varchar] (50) NULL
) Em [primário]
IR
Então você pode inserir alguns dados de teste.
->
< %@ Importar namespace = system.data.ado %>
< %@ Importar namespace = System.data %>
<html>
<head>
<meta nome = conteúdo do gerador = Microsoft Visual Studio.net 7.0>
<meta nome = code_language content = Visual Basic 7.0>
<Title> Modifique informações básicas pessoais </ititure>
</head>
<Body>
<Form id = panescsc método = post runat = servidor>
<!-Faça login na janela->
<Asp: painel id = step1 runat = server>
Etapa 1: (Por favor, insira a conta e a senha) <p>
<lockQuote>
Número da conta: <asp: textbox id = userId runat = server> </asp: textbox> <p>
Senha: <asp: textbox id = senha runat = servidor textmode = senha> </asp: textbox> <p>
<ID de entrada = botão1 tipo = Button Value = Log em Runat = servidor OnServerClick = Button1_Click> </p>
</blockquote>
<div id = div1 runat = servidor> </div>
</asp: painel>
<!-modifique a janela->
<Asp: painel id = step2 runat = server>
Etapa 2: (por favor, modifique o nome, telefone, endereço) <p>
<lockQuUote>
Nome: <asp: textbox id = nome runat = servidor text => </asp: textbox> <p>
Tel: <ASP: TextBox ID = Tel Runat = Texto do servidor => </asp: textbox> <p>
Endereço: <asp: textbox id = addr runat = servidor text => </asp: textbox> <p>
<ID de entrada = botão2 tipo = Valor do botão = Modificar o runat = servidor OnServerClick = Button2_Click>
</blockquote>
<div id = div2 runat = servidor> </div>
</asp: painel>
<!-Confirme a janela->
<Asp: painel id = step3 runat = server>
Etapa 3: (Por favor, confirme os dados que você inseriu <P>
<lockQuote>
<div id = div3 runat = servidor> </div>
<ID de entrada = Button3 Type = Button Value = OK Runat = Server OnServerClick = Button3_Click>
</blockquote>
</asp: painel>
<!-janela bem-sucedida->
<Asp: painel id = step4 runat = server>
<lockQuote>
<div id = div4 runat = servidor> </div>
</blockquote>
</asp: painel>
</morm>
</body>
</html>
<idioma de script = vb runat = servidor>
Sub Page_load (remetente como objeto, e como eventArgs)
se não página.ispostback, então
passo1.visible = true
step2.Visible = false
step3.Visible = false
final se
final sub
Sub Button1_Click (remetente como objeto, e como EventArgs)
Dim Connstr, SQLQuery como string
Dim i como inteiro = 0
Connstr = Driver = {SQL Server};
sqlquery = selecione vcname, vctel, vcaddr de tb_user onde vcuserID = '& userID.text &' e vcpassword = '& senha.text &'
Dim CMD como AdodatasetCommand = new AdodataSetCommand (SQLQUERY, Connstr)
Dim RS como DataSet = new DataSet ()
cmd.filldataset (rs, tb_user)
Dim dt como datatable = rs.tables (tb_user)
I = dt.rows.count
Se eu = 1 então
name.Text = dt.Rows (0) .item (0)
Tel.Text = dt.Rows (0) .item (1)
addr.text = dt.Rows (0) .item (2)
passo1.visible = false
step2.Visible = true
step3.Visible = false
outro
passo1.visible = true
step2.Visible = false
step3.Visible = false
div1.innerhtml = login falhou!
final se
final sub
Sub Button2_Click (remetente como objeto, e como EventArgs)
STEP1.Visible = False
step2.Visible = false
step3.Visible = true
div3.innerhtml = Número da conta: & userid.text & <br>
div3.innerhtml & = nome: & name.text & <br>
div3.innerhtml & = tel: & tel.text & <br>
div3.innerhtml & = endereço: & addr.text & <p>
final sub
Sub Button3_Click (remetente como objeto, e como EventArgs)
Dim Connstr, SQLQuery como string
Connstr = Driver = {SQL Server};
SQLQUERY = ATUALIZAÇÃO TB_USER SET VCNAME = '& Name.Text &', vctel = '& tel.text &', vcaddr = '& addr.text &'
Dim CMD como adocommand = new Adocommand (sqlquery, Connstr)
cmd.activeConnection.open ()
cmd.execute ()
se cmd.Recordsaffeted = 1 então
div4.innerhtml = Seu perfil foi modificado corretamente!
outro
Div4.innerhtml = Erros ocorrem!
final se
final sub
</script>