الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

إظهار جزء من مقال و بعده للمزيد تابع هنا

مغلق
بدأه محمد خليل أبو صلاح في 25 أكتوبر 2002 · 10 رد · 786 مشاهدة · في منتدى تصميم صفحات الويب
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

طلب أحد الإخوة و اعتقد انه asp2asp شرح كيفية اظهار جزء من المقال كما هو منتشر في المواقع الاخبارية حيث نرى جزءا من الخبر و بعده وصلة لمتابعة المزيد .. قبل أن اشرح كيفية ذلك أو د أن أبين للجميع مدى أهمية ال ADO و أنه للأسف الكثير لا يهتم بها خاصة المبتدئين .. بل إن بعضهم ينشيء كائن للاتصال و غيره للسجلات دون ان يعلم أن ذلك ADO و يعتقد بأن لغة ال ASP تقوم بذلك لوحدها كما هو معرف في بنيتها .. لذا اتمنى من الجميع ان يهتم بها و أنا سأقوم بطرح دروس لها في القريب ان شاء الله .. على العموم دعونا نعود للشرح .. الكود كالتالي:

    Set rs=cn.execute("SELECT * FROM tbl")
    Response.write rs("article")
    Response.write rs("article").GetChunk(20)
    Response.write rs("article").GetChunk(rs("article").ActualSize)

%>

سيظهر الحقل كاملا بأول جملة و بالثانية سيظهر 20 حرف فقط و الثالثة ستظهر كل الحقل و لا لازم لها لأن الاولى هي الاصل و تغني عنها ..

بالتوفيق ..(f)

You can fly while you can touch the sky

#2

جزاك الله خير استاذي .. أبو صلاح

وياريت دائماً .. تعلمنا على هذه الدوال التي يصعب الوصول إليها أحيانا

#3

هذه الطريقة هي ابسط ما وجدت في هذا المجال وتتيح فرصة التحكم التام بما يظهر ...

<%

Dim objConn

DBPath = "driver={Microsoft Access Driver (*.mdb)};dbq=YourDatabase.mdb"

set objConn=server.CreateObject("ADODB.Connection")

objConn.open DBPath

'The String Starts At 1 To Your String Length

Start_From=1

End_At=150

set CNewsP=objConn.Execute("select * from Table_News")

while not CNewsP.EOF

response.write CNewsP("News_Title")&"

"

response.write Mid(CNewsP("News_Content"),Start_From,End_At)&"...

"

CNewsP.MoveNext

wend

CNewsP.close

objConn.close

%>

إن شاء الله تكون ذات فائدة لكم

#4

شكرا على إجابتك لكن الا تعتقد أن الطريقة الأولى أسهل ؟؟ :)

You can fly while you can touch the sky

#5

طريقة جيدة

لكن يوجد احتمال كبير بأن تكون اخر كلمة غير كاملة

كيف تعالج هذه المشكلة؟

#6

نحن نتكلم بشكل عام .. طبعا هاي قدرات برمجية الباقي مثل اذا كانت الكلمة مو كاملة ..

مثلا انت تعمل شرط يتأكد هل قيمة الحرف لا تساوي فراغ .. غير ذلك اعمل دوارة حتى تساوي فراغ ..

بعدين من قال لك أن معظم مواقع الأخبار تنتهي الجمل بكلمات كاملة ؟؟ :) ;)

You can fly while you can touch the sky

#7

ممكن

شوف الموقع هذا

http://www.alsahwa-yemen.net

#8

لم أفهم ما تقصد .. لكن عالعموم أنا ما قلت كلها كما تصورت لكن هناك ألف بل مليون طريقة برمجية و هذا أمر يعود لك و انت تختار .. ألأيس هذا هو الجواب االصحيح ؟؟

You can fly while you can touch the sky

#9

ما فهمتني:)

كنت اريد رأيك بس في الموقع;)

#10

انا اسف لأنيي فهمتك غلط .. عالعموم شكرا على الوصلة

و الموقع حلو

You can fly while you can touch the sky

#11

ممكن تتحكم يا أخ باسم في اظهار الكلمة الأخيرة كاملة بأن تتأكد من انوا اخر حرف هو "empty space" و إلا تدخل في لوب و فيها تزود أو تنقص طول المقطع المختار "example : if you are using a counter i then control TemString=Mid(News_Content,1,i)"

هذا الموضوع مغلق.

مواضيع مشابهة