موصى به: يجب أن يتعلم صفحات الويب الديناميكية ASP: 38 وظائف شائعة الاستخدام 1. دالة صفيف () الوظيفة: قم بإنشاء تنسيق متغير صفيف: Array (List) المعلمة: القائمة هي كل عمود رقمي في متغير الصفيف ، مع مثال تباعد الفاصلة: <٪ i = array (1،2،3 & quo
نظرًا لأن مساحتي محدودة ، لا يمكنني إنشاء جميع الصفحات الثابتة على دفعات في وقت واحد ، لذلك كتبت برنامجًا صغيرًا لمشاركته معك. البرنامج بسيط للغاية ، لذلك لا تضحك على الخبراء! هذا الرمز مضيعة للوقت. الرمز كما يلي
<!-#تضمين ملف = conn.asp-> <html> <head> <title> إنشاء صفحة </title> <meta http-equiv = content-type content = text/html ؛ charset = gb2312> <link href = style.css type = text/css rel = stylesheet> <meta content = mshtml 6.00.2900.3020 name = generator> </head> <body bottommargin = 0 leftMargin = 0 topmargin = 0 rightMargin = 0> <br style = overflow: Hidden ؛ خط الارتفاع: 3px> <٪ معرف قاتم id = cint (request.querystring (id)) إذا هوية = ثم معرف = 1 آخر id = cint (request.querystring (id)) إنهاء إذا العدد الإجمالي خافت SQL = حدد معرف من ترتيب الجدول بواسطة معرف DESC تعيين rs = server.createBject (adodb.recordset) Rs.Open SQL ، Conn ، 1،1 Rs.Movefirst إذا لم يكن rs.eof ثم TotalNumber = Rs.RecordCount إنهاء إذا للحصول على العدد الإجمالي ، يمكنك استخدام رمز بدلاً من ذلك. أعتقد أن الأصدقاء يمكنهم حل هذه المشكلة بأنفسهم. Rs.close تعيين روبية = لا شيء reponse.write <br> <br> استجابة. write <table width = '400' border = '0' align = 'center' cellpadding = '0' cellpacing = '0'> & vbnewline استجابة. write <tr> & vbnewline Response.write <td height = '50 '> total color =' blue '> <b> & totalNumber & </b> </font> يتم إنشاء صفحات ... </td> & vbnewline Response.write </r> و VbNewLine استجابة. write </table> & vbnewline استجابة إذا كان معرف> TotalNumber ثم الرد. تهنئة على عمليتك الناجحة! استجابة إنهاء إذا صانع (معرف) معرف = معرف 1 استجابة. write <meta http-equiv = تحديث المحتوى = 1 ؛ url =؟ id = & id &> ٪> </body> </html> <٪ وظيفة الكون (معرف) SQL = حدد * من الجدول حيث معرف = ومعرف تعيين rs = conn.execute (SQL) الاسم الخافت الاسم = RS (الاسم) conn.execute (SQL) Rs.close تعيين روبية = لا شيء قاتمة FSO قاتمة Znwl الفن الخافت قاتمة FW set fso = createObject (scripting.filesystemObject) تعيين ZnWL = fso.opentextFile (server.mappath (صفحة القالب))) الفن = Znwl.Readall Znwl.Close art = استبدال (الفن ، {$ name $} ، الاسم) اضبط fw = fso.createTextFile (server.mappath (موقع تخزين الصفحة الذي تم إنشاؤه واسم الصفحة) ، صحيح) FW.Writeline Art fw.close تعيين fso = لا شيء وظيفة نهاية ٪> |
هناك طريقة أخرى أسرع من الطريقة أعلاه ، لكنها تحتل الكثير من وحدة المعالجة المركزية. لدي مشاكل في مساحتي باستخدام الطريقة التالية.
<!-#تضمين ملف = conn.asp-> <html> <head> <title> إنشاء صفحة </title> <meta http-equiv = content-type content = text/html ؛ charset = gb2312> <link href = style.css type = text/css rel = stylesheet> <meta content = mshtml 6.00.2900.3020 name = generator> </head> <body bottommargin = 0 leftMargin = 0 topmargin = 0 rightMargin = 0> <br style = overflow: Hidden ؛ خط الارتفاع: 3px> <جدول الجدول = عرض 1 = 100 ٪ معرف = table1> <tr> <td> <٪ قاتمة أليد ، PPP ، ID ، TotalNum SQL = حدد * من ترتيب الجدول بواسطة معرف DESC تعيين rs = server.createBject (adodb.recordset) Rs.Open SQL ، Conn ، 1،1 إذا لم يكن rs.eof ثم افعل بينما لا rs.eof إذا allid = ثم allid = rs (id) allid = allid & ؛ & RS (معرف) Rs.Movenext حلقة آخر إذا كان Rs.Bof و Rs.eof ثم استجابة. اكتب لم يتم العثور على مقالات حتى الآن! إنهاء إذا إنهاء إذا Rs.close تعيين روبية = لا شيء allid = ؛ allid PPP = انقسام (allid ،؛) TotalNum = Ubund (PPP) لمعرف = 1 إلى TotalNum الجلسة (معرف) = الجلسة (معرف) 1 صانع (معرف) Response.write يولد Znwl_ & id & .htm ... <br> التالي ٪> </td> </r> </table> </body> </html> <٪ وظيفة الكون (معرف) SQL = حدد * من الجدول حيث معرف = ومعرف تعيين rs = conn.execute (SQL) الاسم الخافت الاسم = RS (الاسم) conn.execute (SQL) Rs.close تعيين روبية = لا شيء قاتمة FSO قاتمة Znwl الفن الخافت قاتمة FW set fso = createObject (scripting.filesystemObject) تعيين ZnWL = fso.opentextFile (server.mappath (صفحة القالب))) الفن = Znwl.Readall Znwl.Close ٪> art = استبدال (الفن ، {$ name $} ، الاسم) اضبط fw = fso.createTextFile (server.mappath (موقع تخزين الصفحة الذي تم إنشاؤه واسم الصفحة) ، صحيح) FW.Writeline Art fw.close تعيين fso = لا شيء وظيفة نهاية |
هذه الطريقة سريعة ، ولكن يجب أن تكون مساحتك غير محدودة!-شبكة ذكية
الطريقة المذكورة أعلاه هي للرجوع إليها فقط وليس الإصدار الأخير الذي قمت بتعديله ، لكنه بالتأكيد سهل الاستخدام.
مشاركة: مثال نصيحة ASP: عدة أسطر من التعليمات البرمجية تحل مشكلة منع تقديم النماذج المتكررة في كثير من الحالات ، من الضروري منع تقديم نفس النموذج عدة مرات. تعتبر أساليب تنفيذ العديد من الأشخاص معقدة نسبيًا (يتجاوز عدد الكود العشرات من الأسطر !!) يوفر ما يلي طريقة لا تتطلب سوى بضعة أسطر من التعليمات البرمجية ، مما يمنع المستخدمين بسهولة من تحديث التقديمات المتعددة واستخدام زر العودة لإعادة فحص النموذج.