<！ - 私の最初のASP+プログラム - >
<！ - 復刻版がある場合は、ソースを示してください！ 著者：Nature Homepage：http：//zhanzhen.wayall.comようこそ
<！ - 著者は盲目的にそれを書きました：そのようなプログラムは私を長い間連れて行ってくれました。エッセンス良い。エッセンス主な理由は、最初はADO+についてはあまり知らないことです。エッセンス元のADOモードを使用した後、それは一度に本当に不快になりました：（そしてそのVS7、ASP+を書くのは便利ですが、崩壊は簡単ですが、崩壊の直後にプログラムを開始するのは少し良いことです - ） - >
<！ - プログラム関数：ASP +パネルのパネルを使用してWebコントロールを使用して3つのウィンドウの切り替えを実現します。 、しかし、しかし、あまり複雑にならないでください）今、あなたはそれを1ページで終えることができます。次に、ADO+データセットとデータテーブルコントロールを使用して、データベースの操作を完了します。
<！ -
予備作業：SQL ServerでMyTestデータベースを作成し、このセクションをSQL Query Analyzerに配置します
テーブルを作成[dbo] [tb_user]（tb_user]（
[intid] [int] ID（1、1）nullではない、
[vcuserid] [varchar]（20）nullではない、
[vcpassword] [varchar]（20）nullではない、
[vcname] [varchar]（20）null、
[vctel] [varchar]（20）null、
[vcaddr] [varchar]（50）null
）[プライマリ]
行く
次に、いくつかのテストデータを挿入できます。
- >
<％@ namespace = system.data.ado％>をインポートします
<％@ Import NameSpace = System.Data％>
<html>
<head>
<メタ名=ジェネレーターコンテンツ= Microsoft Visual Studio.Net 7.0>
<Meta name = code_language content = Visual Basic 7.0>
<title>個人の基本情報を変更する</title>
</head>
<body>
<form id = panelsc method = post runat = server>
<！ - ウィンドウにログイン - >
<ASP：パネルID = step1 runat = server>
ステップ1 ：（アカウントとパスワードを入力してください）<p>
<BlockQuote>
アカウント番号：<asp：textbox id = userid runat = server> </asp：textbox> <p>
パスワード：<asp：textbox id = password runat = server textmode = password> </asp：textbox> <p>
<入力id = button1タイプ=ボタン値= login runat = server onserverclick = button1_click> </p>
</blockquote>
<div id = div1 runat = server> </div>
</asp：パネル>
<！ - ウィンドウを変更 - >
<ASP：パネルID = step2 runat = server>
ステップ2 ：（名前、電話、住所を変更してください）<p>
<BlockQuuote>
名前：<asp：textbox id = name runat = server text => </asp：textbox> <p>
Tel：<asp：textbox id = tel runat = server text => </asp：textbox> <p>
アドレス：<asp：textbox id = addr runat = server text => </asp：textbox> <p>
<入力ID = button2タイプ=ボタン値= runat = server onserverclick = button2_click>を変更する
</blockquote>
<div id = div2 runat = server> </div>
</asp：パネル>
<！ - ウィンドウを確認 - >
<ASP：パネルID = step3 runat = server>
ステップ3 ：（入力したデータを確認してください<p>
<BlockQuote>
<div id = div3 runat = server> </div>
<入力ID = button3タイプ=ボタン値= ok runat = server onserverclick = button3_click>
</blockquote>
</asp：パネル>
<！ - 成功したウィンドウ - >
<ASP：パネルID = step4 runat = server>
<BlockQuote>
<div id = div4 runat = server> </div>
</blockquote>
</asp：パネル>
</form>
</body>
</html>
<スクリプト言語= vb runat = server>
sub page_load（sender as object、e as eventargs）
そうでない場合は、ispostbackです
ステップ1.visible = true
ステップ2.visible = false
step3.visible = false
ifを終了します
End Sub
sub button1_click（sender as object、e as eventargs）
Dim Connstr、stringとしてのSqlquery
Integer = 0としてDIM I
connstr = {sql server};
sqlquery = select vcname、vctel、vcaddr tb_userのvcuserid = '＆userid.text＆'およびvcpassword = '＆password.text.text＆'
AdodatasetCommand = new AdodatasetCommandとしてのDIM CMD（SQLQuery、Connstr）
dataset = new Dataset（）as as as as as as as as as as
cmd.filldataset（rs、tb_user）
datatable = rs.tables（tb_user）としてdim dt
i = dt.rows.count
i = 1の場合
name.text = dt.rows（0）.item（0）
tel.text = dt.rows（0）.item（1）
addr.text = dt.rows（0）.item（2）
ステップ1.visible = false
ステップ2.Visible = true
step3.visible = false
それ以外
ステップ1.visible = true
ステップ2.visible = false
step3.visible = false
div1.innerhtml =ログインあなたのアカウントとパスワードが正しいかどうかを確認してください！
ifを終了します
End Sub
sub button2_click（sender as object、e as eventargs）
ステップ1.visible = false
ステップ2.visible = false
Step3.Visible = true
div3.innerhtml =アカウント番号：＆userid.text＆<br>
div3.innerhtml＆= name：＆name.text＆<br>
div3.innerhtml＆= tel：＆tel.text＆<br>
div3.innerhtml＆= address：＆addr.text＆<p>
End Sub
sub button3_click（sender as object、e as eventargs）
Dim Connstr、stringとしてのSqlquery
connstr = {sql server};
sqlquery = update tb_user set vcname = '＆name.text＆'、vctel = '＆tel.text＆'、vcaddr = '＆addr.text＆'
adocommand = new Adocommandとしてのdim cmd（sqlquery、connstr）
cmd.activeconnection.open（）
cmd.execute（）
cmd.recordsaffected = 1の場合
div4.innerhtml =あなたのプロファイルは正しく変更されました！
それ以外
div4.innerhtml =エラーは発生します！
ifを終了します
End Sub
</script>