<!-โปรแกรม ASP+ครั้งแรกของฉัน->
<!-หากมีการพิมพ์ซ้ำโปรดระบุแหล่งที่มา! ผู้แต่ง: ธรรมชาติหน้าแรก: http://zhanzhen.wayall.com ยินดีต้อนรับ
<!-ผู้เขียนเขียนมันอย่างสุ่มสี่สุ่มห้า: โปรแกรมเช่นนี้พาฉันไปเป็นเวลานาน แก่นแท้ ดี. แก่นแท้ เหตุผลหลักคือฉันไม่ทราบมากเกี่ยวกับ ADO+ แก่นแท้ หลังจากใช้โหมด ADO ดั้งเดิมแล้วมันก็อึดอัดในครั้งเดียว: (และ VS7 แม้ว่ามันจะสะดวกในการเขียน ASP+ดูเหมือนว่าจะง่ายต่อการยุบ แต่เป็นการดีที่จะเริ่มโปรแกรมทันทีหลังจากการล่มสลาย .
<!-ฟังก์ชั่นโปรแกรม: ใช้พาเนลในแผง ASP + การควบคุมเว็บเพื่อให้ได้การสลับหน้าต่างสามหน้าต่างเพื่อให้ฟังก์ชั่นของโจทก์ของเรานำไปใช้กับสามหน้าใน ASP (ถ้ามันยากที่จะสร้างภาพก็โอเคก็โอเค แต่อย่าซับซ้อนเกินไป) ตอนนี้คุณสามารถทำมันให้เสร็จได้นานเท่าหน้าเดียว จากนั้นใช้ชุดข้อมูล ADO+และ DataTable Control เพื่อให้การดำเนินการของฐานข้อมูลเสร็จสมบูรณ์->
-
งานเบื้องต้น: สร้างฐานข้อมูล MyTest ใน SQL Server จากนั้นใส่ส่วนนี้ใน SQL Query Analyzer
สร้างตาราง [DBO]
[intid] [int] ตัวตน (1, 1) ไม่ใช่ Null
[VCUSERID] [VARCHAR] (20) ไม่ใช่ NULL
[VCPassword] [Varchar] (20) ไม่ใช่ Null
[vcname] [Varchar] (20) Null
[VCTEL] [VARCHAR] (20) NULL
[VCADDR] [VARCHAR] (50) NULL
) บน [หลัก]
ไป
จากนั้นคุณสามารถแทรกข้อมูลการทดสอบบางอย่าง
-
< %@ import namespace = system.data.ado %>
< %@ import namespace = system.data %>
<html>
<head>
<meta name = generator content = Microsoft Visual Studio.net 7.0>
<meta name = code_language content = visual basic 7.0>
<title> แก้ไขข้อมูลพื้นฐานส่วนบุคคล </title>
</head>
<body>
<form id = method panelsc = post runat = เซิร์ฟเวอร์>
<!-เข้าสู่หน้าต่าง->
<ASP: Panel ID = step1 runat = เซิร์ฟเวอร์>
ขั้นตอนที่ 1: (โปรดป้อนบัญชีและรหัสผ่าน) <p>
<lockquote>
หมายเลขบัญชี: <asp: idbox id = userId runat = เซิร์ฟเวอร์> </asp: textbox> <p>
รหัสผ่าน: <ASP: ID TextBox = รหัสผ่าน runat = เซิร์ฟเวอร์ textMode = รหัสผ่าน> </asp: textbox> <p>
<อินพุต ID = button1 type = value = log in runat = เซิร์ฟเวอร์ onserverClick = button1_click> </p>
</blockquote>
<div id = div1 runat = เซิร์ฟเวอร์> </div>
</ASP: แผง>
<!-แก้ไขหน้าต่าง->
<ASP: Panel ID = step2 runat = เซิร์ฟเวอร์>
ขั้นตอนที่ 2: (โปรดแก้ไขชื่อโทรศัพท์ที่อยู่) <p>
<blockquuote>
ชื่อ: <asp: textbox id = name runat = server text => </asp: textbox> <p>
โทรศัพท์: <asp: textbox id = tel runat = server text => </asp: textbox> <p>
ที่อยู่: <asp: idbox id = addr runat = server text => </asp: textbox> <p>
<อินพุต ID = button2 type = value = แก้ไข runat = server onserverClick = button2_click>
</blockquote>
<div id = div2 runat = เซิร์ฟเวอร์> </div>
</ASP: แผง>
<!-ยืนยัน window->
<ASP: Panel ID = STEP3 RUNAT = Server>
ขั้นตอนที่ 3: (โปรดยืนยันข้อมูลที่คุณป้อน <p>
<lockquote>
<div id = div3 runat = เซิร์ฟเวอร์> </div>
<อินพุต id = button3 type = value = ok runat = เซิร์ฟเวอร์ onserverclick = button3_click>
</blockquote>
</ASP: แผง>
<!-หน้าต่างที่ประสบความสำเร็จ->
<ASP: Panel ID = step4 runat = เซิร์ฟเวอร์>
<lockquote>
<div id = div4 runat = เซิร์ฟเวอร์> </div>
</blockquote>
</ASP: แผง>
</form>
</body>
</html>
<ภาษาสคริปต์ = vb runat = เซิร์ฟเวอร์>
sub page_load (ผู้ส่งเป็นวัตถุ e เป็น eventargs)
ถ้าไม่ใช่ page.ispostback แล้ว
step1.visible = true
step2.visible = false
step3.visible = false
สิ้นสุดถ้า
สิ้นสุดย่อย
sub button1_click (ผู้ส่งเป็น Object, e as eventargs)
Dim Connstr, SqlQuery เป็นสตริง
Dim I เป็นจำนวนเต็ม = 0
connstr = driver = {sql server};
sqlQuery = เลือก vcname, vctel, vcaddr จาก tb_user โดยที่ vcuserid = '& userid.text &' และ vcpassword = '& password.text &'
Dim Cmd เป็น adodatasetCommand = ใหม่ adodatasetCommand (SqlQuery, Connstr)
Dim Rs เป็นชุดข้อมูล = ชุดข้อมูลใหม่ ()
CMD.FillDataset (RS, TB_USER)
dim dt เป็น dataTable = rs.tables (tb_user)
i = dt.rows.count
ถ้าฉัน = 1 แล้ว
name.text = dt.rows (0) .item (0)
tel.text = dt.rows (0) .item (1)
addr.text = dt.rows (0) .item (2)
step1.visible = false
step2.visible = true
step3.visible = false
อื่น
step1.visible = true
step2.visible = false
step3.visible = false
div1.innerhtml = เข้าสู่ระบบล้มเหลว!
สิ้นสุดถ้า
สิ้นสุดย่อย
sub button2_click (ผู้ส่งเป็น Object, e as eventargs)
step1.visible = false
step2.visible = false
step3.visible = true
div3.innerhtml = หมายเลขบัญชี: & userId.Text & <br>
div3.innerhtml & = name: & name.text & <br>
div3.innerhtml & = โทรศัพท์: & tel.text & <br>
div3.innerhtml & = ที่อยู่: & addr.text & <p>
สิ้นสุดย่อย
sub button3_click (ผู้ส่งเป็น Object, e as eventargs)
Dim Connstr, SqlQuery เป็นสตริง
connstr = driver = {sql server};
sqlQuery = อัปเดต tb_user set vcname = '& name.text &', vctel = '& tel.text &', vcaddr = '& addr.text &'
Dim Cmd เป็น Adocommand = Adocommand ใหม่ (SQLQuery, Connstr)
cmd.activeconnection.open ()
cmd.execute ()
ถ้า cmd.recordsaffected = 1 แล้ว
div4.innerhtml = โปรไฟล์ของคุณได้รับการแก้ไขอย่างถูกต้อง!
อื่น
div4.innerhtml = ข้อผิดพลาดเกิดขึ้น!
สิ้นสุดถ้า
สิ้นสุดย่อย
</script>