موصى به: ملفات ملفات ملفات في رمز العينة الموضح في هذا القسم ، يتم توفير أمثلة واقعية لتوضيح العديد من الميزات المتوفرة في نمط كائن نظام الملفات. يعرض هذا الرمز جميع ميزات كيفية استخدام أنماط الكائنات معًا ، وكيفية استخدامها بفعالية في الكود الخاص بك
أولاً ، إنشاء قاعدة بيانات وصول. يوجد جدول urlindex في المكتبة ، حيث يتم فهرسة حقول عنوان URL والكلمات الرئيسية على التوالي ، على النحو التالي:
| ما يلي هو المحتوى المقتبس: نص عنوان URL (فهرس: مع (بدون ازدواج)) نص العنوان وصف وصف نص موجز نص الكلمات الرئيسية (الفهرس: مع (لا ازدواجية)) |
ملف البرنامج doquery.asp ، رمز:
| ما يلي هو المحتوى المقتبس: <html> <head> <title> محرك بحث بسيط </title> </head> <body bgcolor =#ffffff marginwidth = 0 marginheight = 0 LeftMargin = 0 topmargin = 0> <method method = post action = doquery.asp؟ Act = Search> الاستعلام: <إدخال نوع = اسم النص = QueryString> <br> <نوع الإدخال = إرسال القيمة = إرسال> </form> </center> <٪ الفعل الخافت ACT = طلب (قانون) إذا (ACT = البحث) ثم QueryString = request.form (QueryString) كلمات الاستعلام = انقسام (QueryString) strindent = إذا كان البحث فارغًا ، فأعد إذا كان QueryString = إذن استجابة. إنهاء إذا Session.Timeout = 2 إذا isObject (الجلسة (sitesearch_conn)) ثم تعيين conn = جلسة (sitesearch_conn) آخر تعيين conn = server.createBject (adodb.connection) conn.open driver = {Microsoft Access Driver (*.mdb)} ؛ dbq = & server.mappath (database/sitesearch.mdb) ،، تعيين الجلسة (sitesearch_conn) = conn إنهاء إذا بيان الاستعلام SQL = حدد * من [urlindex] حيث حقل وصف البحث SQL = SQL و ([الوصف] مثل "٪ و Querywords (0) و ٪" "أولاً لـ i = lbound (كلمات الاستعلام) 1 إلى Ubound (كلمات الاستعلام) إذا كانت كلمات الاستعلام (i) <> و ucase (كلمات الاستعلام (i)) <> أو و Ucase (كلمات الاستعلام (i)) <> ثم إذا كان Ucase (كلمات الاستعلام (I-1)) = أو بعد ذلك SQL = SQL & أو [الوصف] مثل "٪ و Querywords (i) و ٪ ' آخر SQL = SQL & و [الوصف] مثل "٪ و Querywords (i) و ٪ ' إنهاء إذا إنهاء إذا التالي ابحث عن حقل الكلمات الرئيسية SQL = SQL &) أو ([الكلمات الرئيسية] مثل "٪ و Querywords (0) و ٪ ' لـ i = lbound (كلمات الاستعلام) 1 إلى Ubound (كلمات الاستعلام) إذا كانت كلمات الاستعلام (i) <> و ucase (كلمات الاستعلام (i)) <> أو و Ucase (كلمات الاستعلام (i)) <> ثم إذا كان Ucase (كلمات الاستعلام (I-1)) = أو بعد ذلك SQL = SQL & أو [الكلمات الرئيسية] مثل "٪ و Querywords (i) و ٪ ' آخر SQL = SQL & و [الكلمات الرئيسية] مثل "٪ و Querywords (i) و ٪ ' إنهاء إذا إنهاء إذا التالي ابحث عن حقول العنوان SQL = SQL &) أو ([العنوان] مثل "٪ و Querywords (0) و ٪ ' لـ i = lbound (كلمات الاستعلام) 1 إلى Ubound (كلمات الاستعلام) إذا كانت كلمات الاستعلام (i) <> و ucase (كلمات الاستعلام (i)) <> أو و Ucase (كلمات الاستعلام (i)) <> ثم إذا كان Ucase (كلمات الاستعلام (I-1)) = أو بعد ذلك sql = sql & أو [title] مثل "٪ و Querywords (i) و ٪ ' آخر SQL = SQL & و [TITLE] مثل "٪ و Querywords (i) و ٪ ' إنهاء إذا إنهاء إذا التالي ابحث عن حقول موجزة SQL = SQL &) أو ([ملخص] مثل "٪ و Querywords (0) و ٪ ' لـ i = lbound (كلمات الاستعلام) 1 إلى Ubound (كلمات الاستعلام) إذا كانت كلمات الاستعلام (i) <> و ucase (كلمات الاستعلام (i)) <> أو و Ucase (كلمات الاستعلام (i)) <> ثم إذا كان Ucase (كلمات الاستعلام (I-1)) = أو بعد ذلك sql = sql & أو [ملخص] مثل "٪ و Querywords (i) و ٪ ' آخر sql = sql & و [ملخص] مثل "٪ و Querywords (i) و ٪ ' إنهاء إذا إنهاء إذا التالي SQL = SQL &) ' تعيين rs = server.createBject (adodb.recordset) Rs.Open SQL ، Conn ، 3 ، 3 Response.write <br> <b> أنت تبحث عن: </b> & querystring استجابة. write <br> <b> ابحث عن الكلمات الرئيسية: </b> لـ i = lbound (كلمات الاستعلام) إلى Ubound (كلمات الاستعلام) Response.write <br> & strindent & i &: & querywords (i) التالي 'اطبع سلسلة SQL Response.write <br> <b> sql بيان: </b> & sql 'اطبع النتائج استجابة. write <br> <b> النتيجة: </b> <ul> عند استئناف الخطأ التالي Rs.Movefirst افعل بينما لا rs.eof Response.write <br> & <a href = 'openpage.asp؟ indexurl = & rs.fields (url) .value &'> & rs.fields (title) & </a> - استجابة. write rs.fields (الوصف) و <br> استجابة. write <font size = 2> url: & rs.fields (url) & </font> استجابة. write <hr size = 1 width = 200 align = left> Rs.Movenext حلقة استجابة. write </ul> إنهاء إذا ٪> </body> </html> |
المشاركة: كيفية إنشاء صفحة التحقق من تسجيل الدخول البرنامج النصي للتحقق من تسجيل الدخول المستخدم ، chkpwd.asp ما يلي هو المحتوى المشار إليه: ٪ '============ المستخدم تسجيل الدخول إلى البرنامج النصي ======='