<!-Asp+program pertama saya->
<!-Jika ada cetak ulang, harap tunjukkan sumbernya! Penulis: Nature Homepage: http://zhanzhen.wayall.com selamat datang
<!-Penulis menulisnya secara membabi buta: program seperti itu membawa saya untuk waktu yang lama. Esensi Sehat. Esensi Alasan utama adalah bahwa saya tidak tahu banyak tentang ADO+. Esensi Setelah menggunakan mode ADO asli, itu benar -benar tidak nyaman sekaligus: (, dan itu VS7, meskipun lebih mudah untuk menulis ASP+, tampaknya mudah untuk runtuh, tetapi agak baik untuk memulai program segera setelah keruntuhannya .) --->
<!-Fungsi Program: Gunakan panel di panel ASP +, kontrol web untuk mencapai switching tiga jendela, sehingga fungsi penggugat kami untuk diimplementasikan dengan tiga halaman di ASP (jika sulit untuk membuat gambar, tidak apa-apa , tapi jangan terlalu rumit) Sekarang Anda bisa menyelesaikannya selama satu halaman. Kemudian gunakan ADO+Dataset dan DataTable Control untuk menyelesaikan pengoperasian database->
<!-
Pekerjaan Pendahuluan: Buat Database MyTest di SQL Server, dan kemudian masukkan bagian ini di SQL Query Analyzer
Buat tabel [dbo].
[Intid] [int] identitas (1, 1) bukan nol,
[Vcuserid] [varchar] (20) bukan nol,
[vcpassword] [varchar] (20) bukan nol,
[vcname] [varchar] (20) null,
[vctel] [varchar] (20) null,
[vcaddr] [varchar] (50) nol
) Pada [primer]
PERGI
Maka Anda dapat memasukkan beberapa data tes.
->
< %@ Import namespace = system.data.ado %>
< %@ Impor namespace = system.data %>
<Html>
<head>
<meta name = generator konten = microsoft visual studio.net 7.0>
<meta name = code_ bahasa konten = visual basic 7.0>
<title> Ubah Informasi Dasar Pribadi </iteme>
</head>
<body>
<Form ID = Metode Panelsc = Post Runat = Server>
<!-Masuk ke jendela->
<ASP: ID panel = step1 runat = server>
Langkah 1: (Harap masukkan akun dan kata sandi) <p>
<lockquote>
Nomor Akun: <Asp: TextBox ID = UserId runat = server> </sp: textbox> <p>
Kata Sandi: <Asp: TextBox ID = Kata Sandi Runat = Server TextMode = Kata Sandi> </asp: TextBox> <p>
<Input ID = Button1 type = nilai tombol = log in runat = server onServerClick = button1_click> </p>
</BLOCKQUOTE>
<Div ID = Div1 runat = server> </div>
</sp: Panel>
<!-Ubah jendela->
<ASP: ID panel = Step2 runat = server>
Langkah 2: (Harap ubah nama, telepon, alamat) <p>
<lockquuote>
Nama: <Asp: TextBox ID = Name runat = server text => </asp: textbox> <p>
Tel: <Asp: TextBox ID = Tel Runat = Server Text => </asp: TextBox> <p>
Alamat: <Asp: TextBox ID = AddR runat = server text => </asp: textbox> <p>
<Input ID = Button2 Type = Button Value = Ubah runat = server OnServerClick = Button2_Click>
</BLOCKQUOTE>
<Div ID = Div2 runat = server> </div>
</sp: Panel>
<!-Konfirmasikan Window->
<ASP: ID Panel = Step3 Runat = Server>
Langkah 3: (Harap konfirmasi data yang Anda masukkan <p>
<lockquote>
<Div ID = Div3 Runat = Server> </Div>
<input id = tombol3 type = nilai tombol = ok runat = server onserverclick = tombol3_click>
</BLOCKQUOTE>
</sp: Panel>
<!-Window yang sukses->
<ASP: ID Panel = Step4 Runat = Server>
<lockquote>
<Div ID = Div4 Runat = Server> </Div>
</BLOCKQUOTE>
</sp: Panel>
</form>
</body>
</html>
<bahasa skrip = vb runat = server>
Sub Page_Load (pengirim sebagai objek, e sebagai EventArgs)
Jika bukan page.ispostback maka
langkah1.visible = true
langkah2.visible = false
Langkah3. Visible = false
akhiri jika
akhir sub
Sub Button1_Click (pengirim sebagai objek, e sebagai EventArgs)
redup connstr, sqlQuery sebagai string
Redup i sebagai integer = 0
connstr = {sql server};
sqlQuery = pilih vcname, vctel, vcaddr dari tb_user di mana vcuserid = '& userid.text &' dan vcpassword = '& password.text &'
Redup cmd sebagai adodatasetCommand = adodatasetCommand baru (sqlQuery, connstr)
Dim rs sebagai dataset = dataset baru ()
CMD.FillDataset (RS, TB_USER)
redup dt as datatable = rs.tables (tb_user)
I = dt.rows.count
Jika i = 1 maka
name.text = dt.rows (0) .item (0)
Tel.Text = dt.rows (0) .item (1)
addr.text = dt.rows (0) .item (2)
langkah1.visible = false
langkah2.visible = true
Langkah3. Visible = false
kalau tidak
langkah1.visible = true
langkah2.visible = false
Langkah3. Visible = false
Div1.innerHTML = Masuk Gagal! Silakan periksa apakah akun dan kata sandi Anda benar!
akhiri jika
akhir sub
Sub Button2_Click (pengirim sebagai objek, e sebagai EventArgs)
langkah1.visible = false
langkah2.visible = false
Langkah3. Visible = true
Div3.innerhtml = nomor akun: & userid.text & <br>
Div3.InnerHTML & = Name: & Name.Text & <br>
Div3.InnerHTML & = Telp: & Tel.Text & <br>
Div3.InnerHTML & = Alamat: & addr.text & <p>
akhir sub
Sub Button3_Click (pengirim sebagai objek, e sebagai EventArgs)
redup connstr, sqlQuery sebagai string
connstr = {sql server};
sqlQuery = perbarui tb_user set vcname = '& name.text &', vctel = '& tel.text &', vcaddr = '& addr.text &'
redup cmd as adocommand = adocommand baru (sqlQuery, connstr)
cmd.activeConnection.open ()
cmd.execute ()
Jika CMD.RecordSFFORCTED = 1 maka
Div4.InnerHTML = Profil Anda telah dimodifikasi dengan benar!
kalau tidak
Div4.InnerHTML = Kesalahan terjadi!
akhiri jika
akhir sub
</script>