בולנט - דברים מיוחדים...     פרוטו - בניית אתרים

Israeli ASP Organization

ארגון ה-ASP הישראלי

מאמרים/דוגמאות קוד
קישורים
ספרות
חיפוש כללי:

חפש!
כלליHTMLASPASP.NETSQLמסדי נתוניםJavaScriptXML * XSLDHTML * CSSעיצוב וגרפיקהשרתיםComponentsפרסום ושיווקקידום אתריםקופירייטינגPHP
פרסומת
דף ראשי מדורים דרושים הרשמה למועדון אודותינו צור קשר
מיקום: מאמרים ודוגמאות קוד > Components

איסוף מידע משרתים אחרים (AspTear)

רכיב ASPTear הוא דבר אדיר שמאפשר לנו להריץ קוד ASP שנמצא על שרת אחר, לקבל את הפלט ולעשות איתו מה שבא לנו.
ישנו רכיב נוסף המאפשר פעולה זו ונקרא: AspHTTP אבל הרשיון שלו הוא בשביל מחשב בודד ועולה $49.95, אבל בתור ישראלי השאלה שאני חייב לשאול את עצמי היא: למה לשלם כשאפשר בחינם?
להורדה חינם של של ASPTear לחץ כאן.
בכדי לבצע את פעולת ההורדה בשרת אחר כל מה שאנו צריכים לעשות זה לספק את שם השרת והקובץ אותו אנו רוצים להריץ והמשתנים שישלחו ב-POST או ב-GET במידה ואנו רוצים לשלוח משתנים אל הסקריפט.
להלן דוגמא אשר מריצה את קובץ הסקריפט msft.asp שנמצא ב-www.stockquotes.com ומחזירה לנו את הפלט של הסקריפט, אותו נכתוב למסך בדף שלנו.

AspTear constants Const Request_POST = 1 Const Request_GET = 2 Set objTear = CreateObject("SOFTWING.ASPtear") Response.ContentType = "text/html" On Error Resume Next Dim strRetval URL, action, payload, username, password strRetval = objTear.Retrieve("http://www.stockquotes.com/msft.asp", Request_GET, "", "", "") If Err.Number <> 0 Then Response.Write "<b>" If Err.Number >= 400 Then Response.Write "Server returned error: " & Err.Number Else Response.Write "Component/WinInet error: " & Err.Description End If Response.Write "</b>" Response.End End If Response.Write "Microsoft currently selling at " & FormatCurrency(strRetval, 2)

נראה פשוט? זה פשוט!
במידה והסקריפט שלנו אמור לקבל משתנים, כל מה שעלינו לעשות זה להגדיר את צורת השליחה GET / POST ולאחר מכן להגדיר ערך לכל משתנה שאנו שולחי.
לפניכם דוגמא שמריצה את קובץ הסקריפט getquote.asp ב-www.stockquotes.com ושולחת לו ב-GET את משתנה symbol עם ערך MSFT:

AspTear constants Const Request_POST = 1 Const Request_GET = 2 Set objTear = CreateObject("SOFTWING.ASPtear") Response.ContentType = "text/html" On Error Resume Next Dim strRetval URL, action, payload, username, password strRetval = objTear.Retrieve("http://www.stockquotes.com/getquote.asp",Request_GET,"symbol=MSFT","","") ... Error checking code omitted ... Response.Write "Microsoft currently selling at " & FormatCurrency(strRetval, 2)

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

רק שתדעו שאתם לא רק מוגבלים להרצת סקריפטים של ASP. ניתן אף לקבל כפלט דף Html רגיל או אף להוריץ סקריפטים של Perl או CGI.
דוגמא טובה לשימוש ברכיב AspTear ניתן לראות במאמר שמראה כיצד ניתן להגדיל את מהירות דפי ה-ASP ע"י הפיכתם לדפי HTML.
לקישור אל המאמר, לחץ כאן

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



         

מחבר: אלעד רחמילוביץרמת קושי: 2  ||  ציון: (3.81818181818182)כל הזכויות שמורות ל-IAO ©

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