موصى به: عشاق الويب الديناميين: تصفية وظيفة ASP HTML رمز HTML Filtering ASP هو المحتوى المرجع التالي: وظيفة removeHtml (strhtml) dim objregexp ، مطابقة ، يطابق تعيين objregexp = جديد regexp obj
مثال على الإنتاج الإحصائي الذي يمكنه ترقيم الزوار ، وعدد الزيارات ، و IP ، والوقت
أنا آخذ مكتبة الوصول كمثال. في الواقع ، إذا كنت تستخدم مكتبة SQL Server ، فما عليك سوى تغيير عبارات مكتبة الارتباط. هيكل المكتبة كما يلي
اسم ملف المكتبة: cont.asp كان في الأصل cont.mdb ، ولكن بعد الإنشاء ، تم تغيير الامتداد إلى ASP لمنع تنزيل المكتبة.
اسم الجدول: علامة التبويب
اسم الحقل نوع البيانات الوصف
معرف ترقيم رقم الزائر تلقائيًا
يتم استخدام نص IP لتسجيل IP للزائر
يتم استخدام وقت تاريخ DAT1 لتسجيل آخر زوار زائر
يتم استخدام وقت تاريخ DAT لتسجيل الوقت الذي يزور فيه الزائر الأول
رقم CS ، يتم استخدام نوع عدد صحيح لتسجيل الزيارات من قبل الزوار
البرنامج بسيط للغاية ، مع ملفين فقط. يتم استخدام dispcont.asp لعرض النتائج الإحصائية ، ويتم استخدام contpage.asp لعرض المعلومات الإحصائية.
دعونا أولاً نلقي نظرة على إحصائيات contpage.asp ، الرمز هو كما يلي:
| ما يلي هو المحتوى المقتبس: <٪ تعيين conn = server.createBject (adodb.connection) connstr = dbq = server.mappath (cont.asp) ؛ defaultDir = ؛ driver = {microsoft access driver (*.mdb)} ؛ conn.open connstr '' *** يتم استخدام البيان أعلاه للاتصال بالمكتبة ، و cont.asp هو اسم ملف المكتبة. keren = request.cookies (keren) '' قراءة ملفات تعريف الارتباط ، اسم ملفات تعريف الارتباط هو: Keren ، Haha. . الشيء نتن عن أدب أيو e هو أنه يعرف فقط كيفية استخدام Pinyin. إذا كان keren = ثم "الحكم على ما إذا كانت ملفات تعريف الارتباط فارغة. إذا كانت فارغة ، فيجب أن يكونوا أصدقاء جدد ، وإلا فهي أصدقاء قديمون. SQL = SELECT * من علامة التبويب حيث معرف = -1 تعيين rs = server.createBject (adodb.recordset) Rs.Open SQL ، Conn ، 1 ، 3 Rs.Addnew "إذا كان زائرًا جديدًا ، أضف سجلًا جديدًا في المكتبة. RS (CS) = 1 '' لاحظ أن عدد الزيارات هو 1 rs (IP) = request.servervariables (Remote_addr) '' أخبرني IP ، rs (dat) = الآن '' أخبر التاريخ والوقت الحاليين ، Rs (dat1) = Date '' أخبر التاريخ الحالي ، وتاريخ استخدامه للزيارة الأولى في المستقبل. Response.cookies (keren) = rs (id) '' اكتب ملف تعريف ارتباط والمحتوى هو نفسه المعرف. Response.cookies (Keren) .expires = Date 365 '' قم بتعيين التاريخ الصحيح لملفات تعريف الارتباط من الآن فصاعدًا ، 365 يومًا ، آخر "ما سبق هو الطريقة للتعامل مع الأصدقاء الجدد. ماذا يجب أن أفعل مع الأصدقاء القدامى؟ انظر إلى ما يلي: SQL = SELECT * من علامة التبويب WHERE ID = & KEREN '' انتقل إلى المكتبة للعثور على سجلات أصدقائنا القدامى تعيين rs = server.createBject (adodb.recordset) Rs.Open SQL ، Conn ، 1 ، 3 rs (cs) = rs (cs) 1 '' حسنًا ، وجدت ، أضف 1 زيارات RS (IP) = request.servervariables (Remote_Addr) '' انظر ما هو IP الخاص به واكتبه. rs (dat) = الآن 'أخبرني الوقت الحالي ، أي وقت الزيارة الأخيرة ، Response.cookies (keren) = rs (id) '' ثم اكتب ملفات تعريف الارتباط فيها. لا أعرف ما إذا كانت هذه الجملة زائدة عن الحاجة ، لذلك لم أجربها. Response.cookies (Keren) .expires = Date 365 '' حدد وقت انتهاء صلاحية ملفات تعريف الارتباط حتى لا أتعرف عليه إذا جاءت سنة واحدة. إنهاء إذا Rs.update '' لقد سجلت كل ما يجب أن أتذكره ، وتحديث المكتبة. Rs.Close "أغلق كائن مجموعة السجلات. قم بتعيين Conn = Nothing '' release conn ، ما زلت أعتقد أنه ينبغي تشغيل الاتصال وإيقاف تشغيله في أقرب وقت ممكن. أعتقد أنه من غير المرغوب فيه وضعه في الجلسة. 4 ٪> |
حسنًا ، يتم السجل ، هناك أكثر من عشرين سطرًا من التعليمات البرمجية ، وهو برنامج صغير بسيط للغاية. بعد كتابة البرنامج ، كيف يمكن وضعه على الصفحة؟ الأمر بسيط للغاية. ما عليك سوى العثور على مكان على الصفحة الرئيسية وأضف خط الرمز هذا: <img src = contpage.asp width = 0 height = 0>.
والخطوة التالية هي عرض السجل.
اسم الملف: dispcont.asp ، يرجى الاطلاع على الرمز:
| ما يلي هو المحتوى المقتبس: <٪ تعيين conn = server.createBject (adodb.connection) connstr = dbq = server.mappath (cont.asp) ؛ defaultDir = ؛ driver = {microsoft access driver (*.mdb)} ؛ conn.open connstr '' *** يتم استخدام البيان أعلاه للاتصال بالمكتبة ، و cont.asp هو اسم ملف المكتبة. Page3 = طلب (PAG) إذا كان الصفحة 3 = ثم صفحة 3 = الجلسة (contpag) '' 'عدد الصفحات ، الصفحة الحالية إذا كان الصفحة 3 = ثم صفحة 3 = 1 PA = طلب (PA) إذا كان pa = ثم pa = الجلسة (contpa) '' 'عدد العرض لكل صفحة إذا كانت السلطة الفلسطينية = PA = 15 '' بشكل افتراضي ، يتم عرض 15 عنصرًا لكل صفحة ، ويمكن تغييرها حسب الرغبة الجلسة (contpag) = page3 الجلسة (contpa) = PA صفحات = pa '' عدد العرض لكل صفحة ******************* يتم استخدام البرنامج أعلاه لتنفيذ وظيفة ترقيم الصفحات sql = حدد * من ترتيب علامة التبويب بواسطة -dat ، -id قاتمة روبية تعيين rs = server.createBject (adodb.recordset) Rs.Open SQL ، Conn ، 1،1 CSI = 0 CS1 = 0 CS100 = 0 CSDAT1 = 0 افعل بينما لا rs.eof CSI = CSI RS (CS) إذا كان RS (CS) = 1 ثم CS1 = CS1 1 إذا كان RS (CS)> = 100 ثم CS100 1 إذا كان DateValue (rs (dat)) = التاريخ ثم CSDAT1 = CSDAT1 1 إنهاء إذا Rs.Movenext حلقة ZS = Rs.RecordCount '' ******************************************** 8 يتم استخدام البرنامج التالي لعرض الصفحات ٪> <head> <title> إحصائيات عبر الإنترنت </title> </head> <style body = font-size: 9pt bgcolor =#d8edf8> هناك ما مجموعه <٪ استجابة. سجل zs ٪> ، والآن <٪ response.write page3 ٪> تعرض الصفحة كل صفحة: [<a href = dispcont.asp؟ pag = <٪ = page3 ٪> & pa = 15> 15] ، [<a href = dispcont.asp؟ href = dispcont.asp؟ pag = <٪ = page3 ٪> & pa = 30> 30] ، [<a href = dispcont.asp؟ pag = <٪ = page3 ٪> & pa = 40> 40] [<a href = dispcont.asp> تحديث] <div align = left> <table border = 0 cellpadding = 0 style = font-size: 9pt> <tr> <td> رقم الصفحة </td> <٪ page2 = 1 ل I = 1 إلى ZS Pages إذا كان Page3 = CSTR (Page2) ثم ٪> <td> [<٪ response.write page2 ٪>] </td> <٪ آخر ٪> <td> <a href = dispcont.asp؟ pag = <٪ response.write page2 ٪ >> [<٪ response.write page2 ٪>] </td> <٪ نهاية إذا Page2 = Page2 1 التالي SN = Pages * (Page3-1) '' رقم السجل الحالي = عدد العرض لكل صفحة * عدد الصفحات - عدد العرض لكل صفحة إذا SN> ZS ثم SN = 0 Rs.Move SN ، 1 '' ******************************** الفقرة أعلاه تستخدم للترحيل ٪> </tr> </table> </viv> <table style = font-size: 9pt width = 100 ٪ borderColorlight =#000000 border = 1 borderColorDark =#fffff bgcolor =#a4d1e8 cellpacing = 0 cellpadding = 3> <tr> <td> الرقم </td> <td> آخر زيارة للصفحة الرئيسية </td> <td> آخر زيارة إلى ip </td> <td> عدد الصفحة الرئيسية </td> <td> عدد تاريخ الزيارة الأول </td> </tr> <٪ لأني = 1 إلى الصفحات استجابة. write </tr> Response.write <td> & rs (id) & </td> Response.write <td> & rs (dat) & </td> استجابة. write <td> & rs (IP) & </td> Response.write <td> & rs (cs) & </td> استجابة. write <td> & rs (dat1) & </td> استجابة. write </tr> Rs.Movenext إذا كان rs.eof ثم الخروج من أجل التالي Rs.close ٪> <tr> <td> المجموع <٪ = zs ٪> </td> <td> عدد الزيارات أكثر من 100 مرة <٪ = cs100 ٪> </td> <td> عدد الزيارات هو 1: <٪ = cs1 ٪> </td> <٪ = CSDAT1 ٪> </td> </tr> </table> |
'' **************************** ما ورد أعلاه هو عرض الصفحة الكامل. كلهم متاحون. لا يوجد سجل ولا أي موقف.
مشاركة: لعبة Tetris مكتوبة في ASP ما يلي هو المحتوى المشار إليه: <٪ إذا لم يكن الطلب