<! - Mon premier programme ASP +->
<! - S'il y a une réimpression, veuillez indiquer la source! Auteur: Nature Home Page: http://zhanzhen.wayall.com Bienvenue
<! - L'auteur l'a écrit aveuglément: un tel programme m'a pris N pendant longtemps. Essence Bien. Essence La raison principale est que je ne sais pas grand-chose sur ADO +. Essence Après avoir utilisé le mode ADO d'origine, c'était vraiment inconfortable à la fois: (, et que VS7, bien qu'il soit pratique d'écrire ASP +, il semble facile à s'effondrer, mais il est un peu bon de démarrer le programme immédiatement après l'effondrement .
<! - Fonction du programme: utilisez le panneau dans le panneau ASP +, le contrôle Web pour réaliser la commutation de trois fenêtres, afin que la fonction de notre demandeur implémente avec trois pages dans ASP (s'il est difficile de faire une image, il va bien , mais ne soyez pas trop compliqué) maintenant vous pouvez le terminer aussi longtemps qu'une page. Utilisez ensuite un ensemble de données ADO + et un contrôle DataTable pour terminer le fonctionnement de la base de données->
<! -
Travail préliminaire: créez une base de données MyTest dans SQL Server, puis placez cette section dans SQL Query Analyzer
Créer une table [dbo].
[Intid] [int] identité (1, 1) pas nul,
[VCUSERID] [VARCHAR] (20) NON NULL,
[vcpassword] [varchar] (20) pas nul,
[vcname] [varchar] (20) null,
[vctel] [varchar] (20) null,
[VCADDR] [VARCHAR] (50) NULL
) Sur [primaire]
ALLER
Ensuite, vous pouvez insérer quelques données de test.
->
<% @ Importer namespace = System.data.ado%>
<% @ Importer namespace = System.Data%>
<html>
<adal>
<meta name = Generator Content = Microsoft Visual Studio.net 7.0>
<meta name = code_language contenu = Visual Basic 7.0>
<Title> Modifier les informations de base personnelles </TITAL>
</ head>
<body>
<Form id = Panelsc Method = post runat = server>
<! - Connectez-vous dans la fenêtre->
<Asp: panneau ID = Step1 runat = server>
Étape 1: (Veuillez saisir le compte et le mot de passe) <p>
<lockquote>
Numéro de compte: <asp: textbox id = userid runat = server> </ asp: textbox> <p>
Mot de passe: <asp: textbox id = mot de passe runat = server textmode = mot de passe> </ asp: textbox> <p>
<entrée id = Button1 type = Button Value = se connecter runat = server onserverClick = Button1_click> </p>
</lockquote>
<div id = div1 runat = server> </div>
</ ASP: panneau>
<! - Modifiez la fenêtre->
<Asp: panneau ID = Step2 Runat = Server>
Étape 2: (Veuillez modifier le nom, le téléphone, l'adresse) <p>
<lockQuote>
Nom: <asp: textbox id = name runat = server text => </ asp: textbox> <p>
Tél: <asp: textbox id = tel runat = server text => </ asp: textbox> <p>
Adresse: <asp: textbox id = addr runat = server text => </ asp: textbox> <p>
<entrée id = Button2 Type = Button Value = Modifier le runat = server onserverClick = Button2_click>
</lockquote>
<div id = div2 runat = server> </div>
</ ASP: panneau>
<! - Confirmer la fenêtre->
<Asp: panneau ID = Step3 runat = server>
Étape 3: (Veuillez confirmer les données que vous avez entrées <p>
<lockquote>
<div id = div3 runat = server> </div>
<entrée id = Button3 type = Button Value = OK runat = server onserverClick = Button3_click>
</lockquote>
</ ASP: panneau>
<! - Fenêtre réussie->
<Asp: panneau ID = Step4 runat = server>
<lockquote>
<div id = div4 runat = server> </div>
</lockquote>
</ ASP: panneau>
</ form>
</docy>
</html>
<Script Language = VB Runat = Server>
sub page_load (expéditeur comme objet, e comme EventArgs)
Si pas page.ispostback alors
Step1.Visible = true
étape2.Visible = false
étape3.Visible = false
terminer si
Sub-Sub
sous-bout à boutons1_click (expéditeur comme objet, e comme EventArgs)
Dim Connstr, SqlQuery comme chaîne
Dim i as Integer = 0
Connstr = Driver = {SQL Server};
sqlQuery = sélectionner vcname, vctel, vcaddr from tb_user où vCuserId = '& userid.text &' et vcpassword = '& mot de passe.Text &'
DIM CMD comme AdodatasetCommand = New AdodatasetCommand (SqlQuery, Connstr)
DIM RS As DataSet = new DataSet ()
CMD.FillDataset (RS, TB_USER)
dim dt as dataTable = Rs.Tables (tb_user)
I = dt.Rows.Count
Si i = 1 alors
name.text = dt.rows (0) .item (0)
Tel.Text = dt.Rows (0) .item (1)
addr.text = dt.rows (0) .item (2)
Step1.visible = false
étape2.Visible = true
étape3.Visible = false
autre
Step1.Visible = true
étape2.Visible = false
étape3.Visible = false
div1.innerhtml = se connecter!
terminer si
Sub-Sub
sub bouton2_click (expéditeur en tant qu'objet, e comme EventArgs)
Step1.visible = false
étape2.Visible = false
Step3.Visible = true
div3.innerhtml = numéro de compte: & userId.text & <br>
div3.innerhtml & = name: & name.text & <br>
div3.innerhtml & = tel: & tel.text & <br>
div3.innerhtml & = adresse: & addr.text & <p>
Sub-Sub
sous-bouton3_click (expéditeur en tant qu'objet, e comme EventArgs)
Dim Connstr, SqlQuery comme chaîne
Connstr = Driver = {SQL Server};
sqlQuery = update tb_user set vcname = '& name.text &', vctel = '& tel.text &', vcaddr = '& addr.text &'
DIM CMD comme Adocommand = New Adocommand (SqlQuery, Connstr)
cmd.activeconnection.open ()
cmd.execute ()
Si cmd.recordsafected = 1 alors
div4.innerhtml = Votre profil a été correctement modifié!
autre
div4.innerhtml = erreurs se produisent!
terminer si
Sub-Sub
</cript>