كيف أعمل Search

السلام عليكم

بالنسبه لسؤالك حول عمل بحث

فان العملية ستتم على قاعدة بيانات

اي ان البحث سيكون داخل هذه القاعدة ومن ثم اظهار النتائج

وان شاءالله يكون هذا الكود واضح

<%


'Dimension variables
Dim adoCon    'Holds the Database Connection Object
Dim rsUpdateEntry  'Holds the recordset for the record to be updated
Dim strSQL 	 'Holds the SQL query for the database
Dim strUserName 	 'Holds the record number to be updated
Dim strUserName1 	 'Holds the record number to be updated

'*************** HERE WE CHANGE THE NAME OF THE FORM ********************
'Read in the record number to be updated
strUserName = Request.Form("NAM")
strUserName1 = Request.Form("NUM")

'Create an ADO connection odject
Set adoCon = Server.CreateObject("ADODB.Connection")

'Set an active connection to the Connection object using a DSN-less connection
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("NEW.mdb")

'Set an active connection to the Connection object using DSN connection
'adoCon.Open "DSN=telephone"

'Create an ADO recordset object
Set rsUpdateEntry = Server.CreateObject("ADODB.Recordset")

'****************** HERE WE PUT THE NAME OF FIELD LIKE NAME BELOW ********************
'Initialise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT * FROM TAB WHERE NAME like '" & strUserName & "%'  AND NUMBER like '" & strUserName1 & "%'"
'Set the cursor type we are using so we can navigate through the recordset
rsUpdateEntry.CursorType = 2

'Set the lock type so that the record is locked by ADO when it is updated
rsUpdateEntry.LockType = 3

rsUpdateEntry.Open strSQL, adoCon

If rsUpdateEntry.EOF And rsUpdateEntry.BOF Then

response.write "الشخص الذي تستعلم عنه لا توجد له مذكرات"


else


'Open the tblComments table using the SQL query held in the strSQL varaiable

'Update the record in the recordset

rsUpdateEntry.MoveFirst
While Not rsUpdateEntry.EOF

'**************** HERE WE PUT THE NAME OF FIELD OF THE NAME TO BE APPEAR ON THE PAGE ****************
Response.Write rsUpdateEntry.Fields ("COMMENT")
Response.Write rsUpdateEntry.Fields ("DATE")
'Response.Write rsUpdateEntry.Fields ("MAIL")



%>

واي سؤال ان شاءالله اكون مستعد

عــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــلاء فلسطين

السلام عليكم

انا أعرف بعض الاساليب المتبعة لعمل بحث داخل الموقع ولكني لا اعرف الكود *-)

الطريقة الاولي باستخدام الجافا سكريبت وإنشاء فهارس

الطريقة الثانية هي تخزين محتويات الصفحة في قاعدة البيانات (واعتقد انها ليست جيدة)

والله أعلم

اذا رادت ان ارسل لك ملف يحتوي على صفحة html مربوطة بasp والتي هي مربوطة بقاعدة بيانات

ومن خلال صفحة الهتمل يستطيع الشخص ان يدخل اسمه ويكون الناتج رقم تلفون المنزل الخاص به

فما رايك

عــــــــــــــــــــــــــــــــــــــــــــــــــــــلاء فلسطين

اخي الكريم.

هذا قسم ASP.NET وليس ASP.

كلام الأخ عمار غفار صحيح ..

أغلب طرق البحث الان تعتمد على طريقة ال Regular Expressions و هي مدعمة في الدوت نت و ال ASP من خلال ال VbScript وال Jscript

و أعتقد أيضا ان ال Free Text تستخدم كطريقة واسعة الانتشار في عمليات البحث في قواعد البيانات

اقتباس

كلام الأخ عمار غفار صحيح ..

عمار جعفر :D

ممكن الكود بال C#

يا ليت يا أخي علاء جادالله ترفق الملف حتى يستفيد الإخوان ولك الأجر