مشكل جستجوي درون سايت به فارسي اساتيد كمك

[mehdi25]

سلام دوستان
من يه سرس ASP دارم كه درون سايت خودمو سرچ ميكنه اگه تو تكس باكس اون فارسي بنويسيم كلمات فارسي رو جستجو نميكنه . كلمات رو اينجوري ط´ط±ظƒطھ مينويسه
جكارش بايد بكنم
البته از charset=utf-8 هم استفاده كردم نميشه
كسي ميتونه به من كمك كنه

اينم جوابش كه سرويسكرده منو >>>>>>>>>>>

جستجو براي پيدا كردن ط´ط±ع©طھ.    سندي يافت نشد. 

Your Search - ط´ط±ع©طھ - did not match any files on this site. 

Suggestions: 

Make sure all words are spelled correctly.
Try different keywords.
Try more general keywords.
Try fewer keywords.
 



 جستجو در 136 سند پايان يافت  شركت منشور ارتباط طراح انواع سايت هاي كاملا پويا

راستي نمونشو اينجا گزاشتم ميتونين ببينين
كلييييييييييييييييييييييييك كنيد

:blush:

 

[mazoolagh]

اينكه مربوط به encoding هست.
ضمنا سورس صفحه ات هم خيلي نامرتب هست. بيشتر tag ها يا درست بسته نشده يا در جاي نادرست هست. احتمالا بخاطر copy-paste هاي متعدد.

 

[nima178]

دليلش اينه كه

آقا وقتي شما تو يه تكس باكس فارسي مي نويسي سپس به سمت سرور مي فرستي

اين فارسي ها به يونيكد تبديل مي شن

شما بانك اطلاعاتيتون فارسيه درسته؟

بايد اونو اسكي يا يونيكد كنيد يا به طور دستي يا برنامه ي mdbconvertor من

كه يك بانك اطلاعاتي رو اسكي يا يونيكد مي كنه آدرسشو رو از اينجا پيدا كنيد

www.greatempire.tk

 

[mehdi25]

mazoolagh جان درست ميگي مشكل من از UNICODE .
ولي نميدونم چطوري اونو درست كنم كه همون نوشته هايي كه تو تسك باكس هست رو با همون حالت يعني Unicode مربوطه برداره و جستجو كنه .
اون نوشته ها رو بر ميداره و تو يه زيربرنامه ديگه ميبره اون زيربرنامه دوميه كه گند ميزنه .





البته اين سورس تو بانك دنبال چيزي نميگرده مياد تو تمام صفحات سايت دنبال موضوع مورد نظر ميگرده .

 

[mazoolagh]

همونطور كه nima178 گفت بهتره encoding صفحه اي رو كه فرم جستجو درش هست به ascii تبديل كني

<meta http-equiv="Content-Type" content="text/html; charset=us-ascii">

دراينصورت اطلاعات شما موقع ارسال به صفحه جستجو htmlencode ميشن (مثلا حرف ي كه كد اسكي اون 1610 هست بصورت &#1610# در مياد). در صفحه جستجو با يك تابع مثل كد زير مقدار عبارت مورد جستجو رو كه با request.form خوندي تبديلش كن و بعد ازش استفاده كن. اميدوارم مشكلت حل بشه!

Function FX(X)
Z=""
Dim RX, MTC, MTCS
Set RX = New RegExp
RX.Pattern = "&#....;"
RX.Global = True
Set MTCS = RX.Execute(X)
For EACH MTC In MTCS
	Y = Mid(MTC.Value,3,4)
	X = Replace(X,MTC.Value,Chrw(Y))
Next
FX = X
End Function