<!-أول برنامج ASP+>
<!-إذا كان هناك إعادة طبع ، يرجى الإشارة إلى المصدر! المؤلف: Nature Homepage: http://zhanzhen.wayall.com مرحبًا
<!-كتبها المؤلف بشكل أعمى: مثل هذا البرنامج أخذني لفترة طويلة. جوهر حسنًا. جوهر السبب الرئيسي هو أنني لا أعرف الكثير عن ADO+. جوهر بعد استخدام وضع ADO الأصلي ، كان من غير المريح حقًا في وقت واحد: (، وهذا VS7 ، على الرغم من أنه من المريح كتابة ASP+، يبدو أنه من السهل الانهيار ، لكن من الجيد بعض الشيء بدء البرنامج فورًا بعد الانهيار ) --->
<!-وظيفة البرنامج: استخدم اللوحة في لوحة ASP + ، والتحكم في الويب لتحقيق تبديل ثلاثة نوافذ ، بحيث تكون وظيفة المدعي الخاصة بنا لتنفيذ ثلاث صفحات في ASP (إذا كان من الصعب صنع صورة ، فلا بأس بذلك ، لكن لا تكون معقدًا للغاية) الآن يمكنك إنهاءها طالما صفحة واحدة. ثم استخدم مجموعة بيانات ADO+والتحكم في البيانات لإكمال تشغيل قاعدة البيانات->
<!-
العمل الأولي: إنشاء قاعدة بيانات myTest في SQL Server ، ثم ضع هذا القسم في محلل استعلام SQL
إنشاء جدول [DBO].
[intid] [int] الهوية (1 ، 1) ليس فارغًا ،
[vcuserid] [varchar] (20) ليس فارغًا ،
[vcpassword] [varchar] (20) ليس فارغًا ،
[vcname] [varchar] (20) NULL ،
[vctel] [varchar] (20) NULL ،
[VCADDR] [varchar] (50) NULL
) على [الابتدائية]
يذهب
ثم يمكنك إدراج بعض بيانات الاختبار.
->
<٪@ استيراد المساحة = system.data.ado ٪>
<٪@ استيراد المساحة = 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 = panelsc method = post runat = server>
<!-تسجيل الدخول إلى النافذة>
<ASP: معرف اللوحة = Step1 Runat = Server>
الخطوة 1: (الرجاء إدخال الحساب وكلمة المرور) <p>
<blockquote>
رقم الحساب: <asp: idbox text = userid runat = server> </asp: textbox> <p>
كلمة المرور: <ASP: معرف TextBox = password runat = server textMode = password> </asp: textbox> <p>
<input id = button1 type = button value = log in runat = server onServerClick = button1_click> </p>
</blockquote>
<div id = div1 runat = server> </iv>
</asp: لوحة>
<!-تعديل النافذة->
<ASP: معرف اللوحة = 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>
<input id = button2 type = button value = modify the runat = server onServerClick = button2_click>
</blockquote>
<div id = div2 runat = server> </iv>
</asp: لوحة>
<!-تأكيد نافذة->
<ASP: معرف اللوحة = Step3 Runat = Server>
الخطوة 3: (يرجى تأكيد البيانات التي أدخلتها <p>
<blockquote>
<div id = div3 runat = server> </iv>
<input id = button3 type = button value = ok runat = server onServerClick = button3_click>
</blockquote>
</asp: لوحة>
<!-نافذة ناجحة->
<ASP: معرف اللوحة = Step4 Runat = Server>
<blockquote>
<div id = div4 runat = server> </iv>
</blockquote>
</asp: لوحة>
</form>
</body>
</html>
<لغة البرنامج النصي = vb runat = server>
sub page_load (المرسل ككائن ، e كـ eventArgs)
إذا لم يكن page.ispostback ثم
Step1.visible = صحيح
Step2.visible = خطأ
Step3.visible = خطأ
إنهاء إذا
نهاية الفرعية
sub button1_click (المرسل ككائن ، e كـ eventArgs)
Dim Connstr ، sqlquery كسلسلة
خافتة أنا عدد صحيح = 0
connstr = {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 = صحيح
Step3.visible = خطأ
آخر
Step1.visible = صحيح
Step2.visible = خطأ
Step3.visible = خطأ
Div1.innerhtml = فشل تسجيل الدخول!
إنهاء إذا
نهاية الفرعية
sub button2_click (المرسل ككائن ، e كـ eventArgs)
Step1.visible = false
Step2.visible = خطأ
Step3.visible = صحيح
div3.innerhtml = رقم الحساب: & userid.text & <br>
div3.innerhtml & = name: & name.text & <br>
div3.innerhtml & = tel: & tel.text & <br>
div3.innerhtml & = العنوان: & addr.text & <p>
نهاية الفرعية
sub button3_click (المرسل ككائن ، e كـ eventArgs)
Dim Connstr ، sqlquery كسلسلة
connstr = {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>