แนะนำ: การเขียนโปรแกรมขั้นสูง ASP 3.0 (38) 8.3.3 การใช้สถานะการเชื่อมต่อเพื่อบันทึกสตริงการเชื่อมต่อลงในตัวแปรแอปพลิเคชันเป็นเคล็ดลับทั่วไปและมีประสิทธิภาพเท่ากับการใช้ไฟล์ที่รวมอยู่ ตัวอย่างเช่นคุณสามารถเพิ่มรหัสต่อไปนี้ในไฟล์ global.asa: sub application_onstart () stronn = "
ด้านล่างนี้เป็นตาราง URLINDEX ในไลบรารี: ฟิลด์ URL และคำหลักได้รับการจัดทำดัชนีตามลำดับ
| ข้อความ URL (ดัชนี: ด้วย (ไม่มีการทำซ้ำ)) ข้อความชื่อเรื่อง ข้อความคำอธิบาย ข้อความสรุป ข้อความคำหลัก (ดัชนี: ด้วย (ไม่มีการทำซ้ำ)) |
doquery.asp
| <Html> <head> <title> เครื่องมือค้นหาง่าย ๆ </title> </head> <body bgcolor =#ffffff marginWidth = 0 marginheight = 0 leftmargin = 0 topMargin = 0> <วิธีการฟอร์ม = โพสต์การกระทำ = doQuery.asp? act = การค้นหา> แบบสอบถาม: <อินพุตประเภท = ชื่อข้อความ = QueryString> <br> <ประเภทอินพุต = ส่งค่า = ส่ง> </form> </enter> - สลัว Act = คำขอ (พระราชบัญญัติ) if (act = search) จากนั้น QueryString = request.form (QueryString) querywords = split (querystring) strindent = 'หากการค้นหาว่างเปล่าให้กลับมา ถ้า QueryString = จากนั้น Response.redirect (default.asp) สิ้นสุดถ้า session.timeout = 2 ถ้า isObject (เซสชัน (siteSearch_conn)) แล้ว Set Conn = เซสชัน (siteSearch_conn) อื่น SET Conn = Server.CreateObject (ADODB.Connection) conn.open driver = {microsoft access driver (*.mdb)}; dbq = & server.mappath (ฐานข้อมูล/siteSearch.mdb) ,, ตั้งค่าเซสชัน (siteSearch_conn) = Conn สิ้นสุดถ้า คำสั่งค้นหา sql = select * จาก [urlindex] ที่ไหน 'ฟิลด์คำอธิบายการค้นหา sql = sql & ([คำอธิบาย] เช่น ' % & Querywords (0) & %' 'ก่อน สำหรับ i = lbound (querywords) 1 ถึง Ubound (Querywords) ถ้า querywords (i) <> และ ucase (querywords (i)) <> หรือและ ucase (querywords (i)) <> จากนั้น ถ้า ucase (querywords (i-1)) = หรือจากนั้น sql = sql & หรือ [คำอธิบาย] เช่น ' % & Querywords (i) & %' อื่น SQL = SQL & และ [คำอธิบาย] เช่น ' % & Querywords (i) & %' สิ้นสุดถ้า สิ้นสุดถ้า ต่อไป 'ค้นหาฟิลด์คำหลัก sql = sql &) หรือ ([คำหลัก] เช่น ' % & Querywords (0) & %' สำหรับ i = lbound (querywords) 1 ถึง Ubound (Querywords) ถ้า querywords (i) <> และ ucase (querywords (i)) <> หรือและ ucase (querywords (i)) <> จากนั้น ถ้า ucase (querywords (i-1)) = หรือจากนั้น SQL = SQL & หรือ [คำหลัก] เช่น ' % & Querywords (i) & %' อื่น SQL = SQL & และ [คำหลัก] เช่น ' % & Querywords (i) & %' สิ้นสุดถ้า สิ้นสุดถ้า ต่อไป 'ค้นหาฟิลด์ชื่อเรื่อง sql = sql &) หรือ ([ชื่อ] เช่น ' % & Querywords (0) & %' สำหรับ i = lbound (querywords) 1 ถึง Ubound (Querywords) ถ้า querywords (i) <> และ ucase (querywords (i)) <> หรือและ ucase (querywords (i)) <> จากนั้น ถ้า ucase (querywords (i-1)) = หรือจากนั้น sql = sql & หรือ [title] เช่น ' % & Querywords (i) & %' อื่น sql = sql & และ [title] เช่น ' % & Querywords (i) & %' สิ้นสุดถ้า สิ้นสุดถ้า ต่อไป 'ค้นหาฟิลด์สรุป sql = sql &) หรือ ([สรุป] เช่น ' % & Querywords (0) & %' สำหรับ i = lbound (querywords) 1 ถึง Ubound (Querywords) ถ้า querywords (i) <> และ ucase (querywords (i)) <> หรือและ ucase (querywords (i)) <> จากนั้น ถ้า ucase (querywords (i-1)) = หรือจากนั้น SQL = SQL & หรือ [สรุป] เช่น ' % & Querywords (i) & %' อื่น SQL = SQL & และ [สรุป] เช่น ' % & Querywords (I) & %' สิ้นสุดถ้า สิ้นสุดถ้า ต่อไป SQL = SQL &) - ตั้งค่า rs = server.createObject (adodb.recordset) Rs.Open SQL, Conn, 3, 3 Response.write <br> <b> คุณกำลังค้นหา: </b> & QueryString Response.write <br> <b> ค้นหาคำหลัก: </b> สำหรับ i = lbound (querywords) ถึง ubound (querywords) Response.write <br> & strindent & i &: & querywords (i) ต่อไป 'พิมพ์สตริง SQL Response.write <br> <b> คำสั่ง SQL: </b> & sql 'พิมพ์ผลลัพธ์ Response.write <br> <b> ผลลัพธ์: </b> <ul> เมื่อเกิดข้อผิดพลาดต่อไป Rs.movefirst ทำในขณะที่ไม่ใช่ RS.EOF Response.write <br> & <a href = 'openPage.asp? indexurl = & rs.fields (url) .Value &'> & rs.fields (ชื่อ) & </a> - Response.write Rs.Fields (คำอธิบาย) & <br> Response.write <font size = 2> url: & rs.fields (url) & </font> response.write <hr size = 1 width = 200 allign = ซ้าย> Rs.Movenext วง Response.write </ul> สิ้นสุดถ้า - </body> </html> |
แบ่งปัน: ตัวอย่างคำแนะนำของ ASP: เกี่ยวกับโปรแกรมสำหรับการดำเนินการแบบฟอร์ม ต่อไปนี้เป็นเนื้อหาอ้างอิง: การแทรกเนื้อหาฟอร์มลงในฐานข้อมูลด้วย ASP <% ' - loader.asp -' - เวอร์ชัน 1.5.2