504
צפיות
צפיות
9
תשובות
תשובות
בעיה עם ASP Upload
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 תשובות
זאת פונקציה,
ולכן אתה צריך לקרוא לה עם סוגריים (VBS היא שפה דפוקה והיא מבדילה בין פונקציה לפרוצדורה)
זה:
Count = Upload.Save UploadBWPtarget
צ"ל
Count = Upload.Save(UploadBWPtarget)
אבל אז הוא אומר שיש כאן שגיאה:
זה כמה שורות לפני:
If not isempty(Upload.Form("savehtml")) Then
savehtml זה כפתור וככה אני בודק אם לחצו עליו…. זאת השגיאה שאני מקבל:
Object required: 'Upload'
תבדוק אם יצרת
את האובייקט לפני התנאי שכתבת.
לא…
כי אני רוצה קודם לבדוק אם לחצו על savehtml אם כן הוא יעשה משהו. אם לא אז הוא יעשה אפלאווד. איך עושים את זה?
נו איזה ליצן אתה… אם לא יצרת את
האובייקט איך אתה יכול להתייחס אליו בקוד?
חוצמזה שבשביל להתייחס לשדות של הטופס אתה חייב לבצע קודם כל 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
בעיה מוזרה
זה הקוד:
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.
איך אפשר לסדר את זה?!
בעיה אחרת… גם מוזרה…
זה הקוד:
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.
למה זה?
ובחזרה ל-Upload ASP שלא עובד עדיין.
זהר, רשמתי את הקוד שהבאת לי והוא לא העלה את זה לשרת אבל גם לא הציג שגיאה.
אתה יכול בבקשה להראות לי קוד עם תיבת טקסט ותיהת קובץ שמעלה את הקובץ ורושם את הערך של תיבת הטקסט?
ככה אני בטוח אבין איך משתמשים באובייקט.
איך אני משתמש בזה?
כשאני מנסה להעלות רשום:
This feature has been disabled by system administrator. Use SaveVirtual instead.
אז דיברתי עם זה שנתן לי חסות בשרת אז הוא אמר שהוא ביטל את האפשרות הזאת ואני צריך להשתמש באפשרויות אחרות. איך אני משתמש בהן?