שלח תשובה

זירת השאלות

535
צפיות
16
תשובות

בעיה ב ASPupload

,‏ 30 בדצמבר, 2004

אני עובד לפי המאמר הזה – https://www.webmaster.org.il/showArticle.asp?id=6
ואני נתקל בשגיאה:


Microsoft VBScript compilation error '800a0401'

Expected end of statement

/dkpics/up.asp, line 7

Count = Upload.Save "C:Inetpubwebpointwww.spoinks.comhtmldkpics"
——————–^


למרות שהנתיב שלי נכון מאוד… יש לכם מושג מה הבעיה?

תגיות:

16 תשובות

  1. Just-Tal הגיב:

    אז ככה:
    א. פעם הבאה תשים את הקוד… חשוב כדי להבין את השגיאה.

    ב. לפי השגיאה אני חושב שיש לך תנאי שלא סגרת אותו כלומר אולי


    If
    בלי
    End If

    שים קצת קוד…

  2. Wazzap הגיב:

    אם היית מסתכל במאמר היית רואה את
    הקוד… אני הרי עובד על פיו….
    אז זה הקוד –


    <HTML>
    <BODY>
        
    <%
        Set Upload = Server.CreateObject("Persits.Upload.1")
        Upload.OverwriteFiles = False
        Count = Upload.Save "C:Inetpubwebpointwww.spoinks.comhtmldkpics"
    %>

    Files:<BR>

    <%
       For Each File in Upload.Files
          Response.Write File.Name &"= "& File.Path &" ("& File.Size &" bytes)<BR>"
       Next
    %>
      
    </BODY>
    </HTML>

  3. Just-Tal הגיב:

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

    אני מאמר ואומר אולי תשים בסוף השורה

    Count = Upload.Save "C:Inetpubwebpointwww.spoinks.comhtmldkpics"

    מבין? תנסה.

  4. Wazzap הגיב:

    צודק אחי… מצטער
    ועשיתי את מה שהצעת – לא עזר… אני מקבל את אותה שגיאה

  5. ניר טייב הגיב:

    תוקן B-|
    הנתיב שונה והוכנס לסוגריים…

  6. Wazzap הגיב:

    — אוקי חבר'ה יש לי שאלה נוספת —
    אני מנסה לעשות Replace לרווחים בשם הקובץ שמשתמשים בוחרים להעלות.
    זה הקוד הרלוונטי:


        for each File in Upload.Files
            if lcase(File.ImageType)="unknown" then
                Response.Write("<b><center>הקובץ "& File.fileName &" אינו תמונה ולכן אין ביכולתך להעלות אותו לשרת PiX.</b><br><a href=index.asp>חזור חזרה</a></center>")
                agree = false
                exit for
            end if
            File.SaveAs path&""&File.fileName

    לפי דעתי צריך לשים את הריפלייס בשורה הבאה:


    File.SaveAs path&""&File.fileName

    אך כשאני מוסיף את הפקודה זה לא עושה כלום… למישהו יש רעיון?

  7. ניר טייב הגיב:

    נסה…

    File.SaveAs path&""&Replace(File.fileName," ","_")

  8. Wazzap הגיב:

    וואלה ניר אתה גדול!
    זה עובד.. תודה רבה רבה!
    ניר אתה גדול!!
    חבר'ה – ניר עוזר לי כבר למעלה משנה בכל מה שאני צריך! מגיע לו הרבה!

  9. prince01 הגיב:

    ניר ..
    אני כבר זמן רב בפורום וכבר זמן רב רואה ולומד את הידע שלך בתכנות ואת האופי החרוץ שלך וההסתקנות בלמידה על בסיס קבוע.

    אני עכשיו מצטרף לחברת עיצוב גדולה ללא מתכנתים, שמבקשת ממני לדבר עם המתכנת הכי טוב וזמין שאני מכיר.
    בתקווה שאתה זמין, אשמח אם תדבר איתי : [email protected] .
    – סליחה על הניצול של האשכול למטרות אחרות –

  10. זהר פלד הגיב:

    בוא נאמר שניר בהחלט
    התקדם אצלנו מאוד מאז שהוא התחיל ב webmaster….

    הייתי נותן לינקים להודעות הראשונות שלו, אבל למה לעשות לו פדיחות?

  11. prince01 הגיב:

    ……
    כמו שהמורה לנהיגה שלי היה נוהג לומר: 'אף אחד לא נולד עם רישיון ביד' .
    ככה גם ניר, התחיל מ0 – והגיע לרמה שהרבה מאוד כאן בפורום יגיעו אליה בזמן מאוחר יותר (ובטח שלא בגיל שלו).

    ישר כח !

    אגב, כמה צריך אמוטיקון של OFF-Topic זה לא יאמן
    לטיפולכם

  12. אוריקס הגיב:

    בוא נאמר שלא צריך לציין את זה
    כי הוא קיבל מספיק מכוניות בתמורה

  13. זהר פלד הגיב:

    זה הכל מקנאה…
    בגלל שלי אתה נותן את המכוניות הפארשיות…

שלח תשובה