שלח תשובה

זירת השאלות

504
צפיות
9
תשובות

בעיה עם ASP Upload

,‏ 14 באוגוסט, 2005

Microsoft VBScript compilation  error '800a0401'

Expected end of statement

/pages/editor.asp, line 349

Count = Upload.Save UploadBWPtarget
——————–^



        Set Upload = Server.CreateObject("Persits.Upload.1")
        Count = Upload.Save UploadBWPtarget
        Upload.OverwriteFiles = False
        FileName = File.Name

מה הבעיה?

תגיות:

9 תשובות

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

    זאת פונקציה,
    ולכן אתה צריך לקרוא לה עם סוגריים (VBS היא שפה דפוקה והיא מבדילה בין פונקציה לפרוצדורה)

    זה:


      Count = Upload.Save UploadBWPtarget
    צ"ל
      Count = Upload.Save(UploadBWPtarget)

  2. PhoenixBoy הגיב:

    אבל אז הוא אומר שיש כאן שגיאה:
    זה כמה שורות לפני:
        If not isempty(Upload.Form("savehtml")) Then
    savehtml זה כפתור וככה אני בודק אם לחצו עליו…. זאת השגיאה שאני מקבל:
    Object required: 'Upload'

  3. BuildHome הגיב:

    תבדוק אם יצרת
    את האובייקט לפני התנאי שכתבת.

  4. PhoenixBoy הגיב:

    לא…
    כי אני רוצה קודם לבדוק אם לחצו על savehtml אם כן הוא יעשה משהו. אם לא אז הוא יעשה אפלאווד. איך עושים את זה?

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

    נו איזה ליצן אתה… אם לא יצרת את
    האובייקט איך אתה יכול להתייחס אליו בקוד?
    חוצמזה שבשביל להתייחס לשדות של הטופס אתה חייב לבצע קודם כל save. ככה בנוי האובייקט. אם אתה רואה שהתנאים שבהם אתה רוצה לאפשר שמירה של קובץ לא התמלאו, אתה יכול להשתמש ב delete (מתודה ששיכת לאובייקט file שאתה יוצר מתוך upload.files – קוד לדוגמא:

    Set Upload = Server.CreateObject("Persits.Upload.1")
    Upload.OverwriteFiles = False ' do not overwrite

    'create path to save the file
    saveFolder = Server.mapPath("foderToSaveFilesInto")

    'save the file
    Upload.Save saveFolder

    ' set the file object
    Set File = Upload.Files("FileBoxName")

    If Not File Is Nothing Then
       ' get the file name
       CVFileName = File.ExtractFileName
       ' get the file size
       CVFileSize = File.Size
    End If

    if CVFileName="" or CVFileSize=0 then
        ' delete the file
        File.delete
    end if
    Set File = Nothing

  6. PhoenixBoy הגיב:

    בעיה מוזרה
    זה הקוד:


        do until r.eof or okContinue = "False"
            If IP = r.fields("IP") Then
                okContinue = "False"
            End If
            r.movenext
        loop
        
        If r.eof Then
            r.close
            Set r = Server.CreateObject("ADODB.RecordSet")
            SQLstr = "SELECT * From logins"
            r.open SQLstr,c
                r.movelast
                If IP<>r.fields("IP") Then
                okContinue = "True"
                End If
        End If

    הוא אומר שהשגיאה היא ב- r.movelast


    Microsoft JET Database Engine (0x80040E24)
    Rowset does not support fetching backward.

    איך אפשר לסדר את זה?!

  7. PhoenixBoy הגיב:

    בעיה אחרת… גם מוזרה…
    זה הקוד:


            Set r = Server.CreateObject("ADODB.Recordset")
            r.CursorType = 3
            SQLstr = "SELECT * From countme"
            r.open SQLstr,c

    והוא נותן שגיאה:
    Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

    למה זה?

  8. PhoenixBoy הגיב:

    ובחזרה ל-Upload ASP שלא עובד עדיין.
    זהר, רשמתי את הקוד שהבאת לי והוא לא העלה את זה לשרת אבל גם לא הציג שגיאה.
    אתה יכול בבקשה להראות לי קוד עם תיבת טקסט ותיהת קובץ שמעלה את הקובץ ורושם את הערך של תיבת הטקסט?
    ככה אני בטוח אבין איך משתמשים באובייקט.

  9. PhoenixBoy הגיב:

    איך אני משתמש בזה?
    כשאני מנסה להעלות רשום:

    This feature has been disabled by system administrator. Use SaveVirtual instead.

    אז דיברתי עם זה שנתן לי חסות בשרת אז הוא אמר שהוא ביטל את האפשרות הזאת ואני צריך להשתמש באפשרויות אחרות. איך אני משתמש בהן?

שלח תשובה