قم أولاً ببناء قاعدة بيانات وصول.
| ما يلي هو المحتوى المرجعي: نص عنوان URL (الفهرس: هناك (لا يوجد ازدواج)) نص العنوان نص Discripting نص موجز نص الكلمات الرئيسية (الفهرس: هناك (لا يوجد ازدواج)) |
ملف البرنامج doquery.asp ، رمز:
| ما يلي هو المحتوى المرجعي: <html> <head> <title> محرك بحث بسيط </title> </head> <BodyBgColor =#ffffffffmmarginwidth = 0marginheight = 0 LeftMargin = 0topmargin = 0> <formmethod = postaction = doquery.asp؟ الاستعلام: <inputType = textName = QueryString> <br> <inpectType = submitValue = submit> </form> </center> <٪ قاتمة ACT = طلب (قانون) إذا (ACT = البحث) ثم QueryString = request.form (QueryString) كلمات الاستعلام = انقسام (QueryString) strindent = إذا كان البحث فارغًا ، فأعد If QuarquerString = ثم استجابة. Endif Session.Timeout = 2 ifisObject (الجلسة (sitesearch_conn) ثم) ثم) setConn = الجلسة (sitesearch_conn) آخر setConn = server.createObject (adodb.connection) conn.opendriver = {microsoftAckessDriver (*. mdb)} ؛ setSession (sitesearch_conn) = conn Endif بيان الاستعلام SQL = حدد*من [urlindex] حيث ابحث في حقل الوصف SQL = SQL و ([الوصف] مثل "٪ و Querywords (0) و ٪" أولاً fori = lbound (كلمات الاستعلام)+1Toubound (كلمات الاستعلام) ifquerywords (i) <> anducase (Querywords (i)) <> Orangewords (i)) Ifucase (كلمات الاستعلام (I-1)) = orthen SQL = SQL & أو [الوصف] مثل "٪ و Querywords (i) و ٪ ' آخر SQL = SQL & و [الوصف] مثل "٪ و Querywords (i) و ٪ ' Endif Endif التالي ابحث في حقل الكلمات الرئيسية SQL = SQL &) أو ([الكلمات الرئيسية] مثل "٪ و Querywords (0) و ٪ ' fori = lbound (كلمات الاستعلام)+1Toubound (كلمات الاستعلام) ifquerywords (i) <> anducase (Querywords (i)) <> Orangewords (i)) Ifucase (كلمات الاستعلام (I-1)) = orthen SQL = SQL & أو [الكلمات الرئيسية] مثل "٪ و Querywords (i) و ٪ ' آخر SQL = SQL & و [الكلمات الرئيسية] مثل "٪ و Querywords (i) و ٪ ' Endif Endif التالي حقل عنوان البحث SQL = SQL &) أو ([العنوان] مثل "٪ و Querywords (0) و ٪ ' fori = lbound (كلمات الاستعلام)+1Toubound (كلمات الاستعلام) ifquerywords (i) <> anducase (Querywords (i)) <> Orangewords (i)) Ifucase (كلمات الاستعلام (I-1)) = orthen sql = sql & أو [title] مثل "٪ و Querywords (i) و ٪ ' آخر SQL = SQL & و [TITLE] مثل "٪ و Querywords (i) و ٪ ' Endif Endif التالي حقل ملخص البحث SQL = SQL &) أو ([ملخص] مثل "٪ و Querywords (0) و ٪ ' fori = lbound (كلمات الاستعلام)+1Toubound (كلمات الاستعلام) ifquerywords (i) <> anducase (Querywords (i)) <> Orangewords (i)) Ifucase (كلمات الاستعلام (I-1)) = orthen sql = sql & أو [ملخص] مثل "٪ و Querywords (i) و ٪ ' آخر sql = sql & و [ملخص] مثل "٪ و Querywords (i) و ٪ ' Endif Endif التالي SQL = SQL &) ' setRs = server.createBject (adodb.oldset) Rs.Opensql ، Conn ، 3،3 Response.write <br> <b> ما بحثته هو: </b> & QueryString استجابة. write <br> <b> البحث عن الكلمات الرئيسية: </b> fori = lbound (كلمات الاستعلام) toubnsnd (كلمات الاستعلام) Response.write <br> & strindent & i &: & querywords (i) التالي 'printTheSqlString Response.write <br> <b> sql بيان: </b> & sql 'printTheresults استجابة. write <br> <b> النتيجة: </b> <ul> onerrersumenext Rs.Movefired dowhilenotrs.eof Response.write <br> & <ahref = 'OpenPage.asp؟ استجابة. writers.fields (الوصف) و <br> استجابة. write <FontSize = 2> url: & rs.fields (url) & </font> استجابة. write <hrsize = 1width = 200align = left> Rs.Movenext حلقة استجابة. write </ul> Endif ٪> </body> </html> |