הצגת משפטים ותמונות באופן רנדומלי ללא שימוש בקבצים חיצוניים

OpyuM ‏ • 14 בספטמבר, 2002

קורה שברצוננו להציג תמונות או משפטים באופן רנדומלי בגוף האתר שלנו.
יש לכך כמה שיטות ב ASP כגון AdRotator (להצגת תמונות), ContentRotator (להצגת משפטים) וכיו"ב.
אלו הם רכיבים מובנים של ASP אשר יש לוודא שהם מותקנים לנו על השרת בכדי שנוכל להשתמש בהם. בנוסף לכך בכדי שהם יעבדו יש ליצור קבצים נוספים שבהם יש חשיבות רבה לפרטים שרשמנו בתוכם.
הדוגמא הזו מראה איך ניתן לעשות זאת באופן פשוט ללא צורך בקבצים נוספים או בסיס נתונים כלשהו.
תחילה עלינו לבנות את הפונקציה שבוחרת את המשתנים באופן רנדומלי:

1
2
3
4
5
6
7
8
9
10
11
12
13
14

<%
function RandomText()
    Randomize
    intChoice = Int(Rnd*6)
    Select Case intChoice
        Case 0 RandomText = "סתם משפט רנדומלי"
        Case 1 RandomText = "הפעם זה יצא"
        Case 2 RandomText = "גם אני משפט רנדומלי"
        Case 3 RandomText = "זה משפט שיצא עכשיו"
        Case 4 RandomText = "<img src='https://www.mymonolog.com/images/monolog.gif'>"
        Case 5 RandomText = "זה יהיה משפט רנדומלי מספר 6"
    End Select
End function
%>

שילבתי בפונקציה גם תמונה אחת בכדי להראות שאין זה משנה אם מדובר במשפט או מקור של תמונה כלשהי.

1
2
3

<%
Int(Rnd*6)
%>

מציין שיש לנו 6 משפטים/תמונות לבצע עליהם קריאה רנדומלית. מיותר לציין שאם נשנה את כמות המשפטים נאלץ גם לשנות את הפעולה הנ"ל בהתאם.
עכשיו כל שנותר לנו לעשות הוא פשוט לבנות את הדף ולקרוא לפונקציה בכל פעם שנרצה. כך:

1
2

<%Tip =RandomText()%>

ולהציג את התוצאה:

1
2
3

<%=Tip%>

להרצת הדוגמא
להורדת הדוגמא
למען הנוחיות בדוגמה עשיתי טבלה קטנה אשר בה מוצגות בכל פעם 3 אפשרויות.כמובן שאפשר לעשות גם תנאי שאם נבחר כבר משפט אחד אז בקריאה הבאה לא נקרא לו עוד פעם (זה כבר תלוי בכם).

בהצלחה.

www.mymonolog.com

תגיות: random, אקראי, ראנדומלי

הצגת משפטים ותמונות באופן רנדומלי ללא שימוש בקבצים חיצוניים

עוד בנושא זה

תגובות בפייסבוק

תגיות