<! - 私の最初の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>