שלח תשובה

זירת השאלות

543
צפיות
3
תשובות

העלת קבצים לשרת + תוכן לDB

,‏ 11 במאי, 2004

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



זה הקוד של הכנסה לדיבי

cdname = Upload.Form("cdname")
Singer_id = Upload.Form("Singer_id")
singername = Upload.Form("singername")
cat_id = Upload.Form("cat_id")
info = Upload.Form("info")
price_CD = Upload.Form("price_CD")
price_tape = Upload.Form("price_tape")
price_video = Upload.Form("price_video")
price_dvd = Upload.Form("price_dvd")
indate = Upload.Form("indate")
image = sFilename
onsale = Upload.form("onsale")


rs.AddNew
rs("cdname") = cdname
rs("singername") = singername
rs("image") = image
rs("indate") = indate
rs("cat_id") = cat_id
rs("Singer_id") = Singer_id


iF info <> "" THEN
rs("info") = info
ELSE
end if

dim onsale

iF onsale = False THEN
else
rs("onsale") = True
end if

iF price_CD <> "" THEN
rs("price_CD") = price_CD
ELSE
end if
iF price_dvd <> "" THEN
rs("price_dvd") = price_dvd
ELSE
end if
iF price_video <> "" THEN
rs("price_video") = price_video
ELSE
end if
iF price_tape <> "" THEN
rs("price_tape") = price_tape
ELSE
end if
iF image <> "" THEN
rs("image") = image
ELSE
end if
rs.update


כמובן שהוספתי פתיחה וכו'

ומראה לי את השגיאה הבאה:



Microsoft VBScript runtime error '800a01a8'

Object required: "

/israel/admin/ADDCD2.asp, line 602



שורה 602
cdname = Upload.Form("cdname")

תגיות:

3 תשובות

  1. המשתנה Upload לא מוגדר
    אתה אמור להציב בתוכו רפרנס לאובייקט העלאת הקבצים שלך.

  2. יוסיש הגיב:

    ואיך בדיוק אני מגדיר אותו?
    את מוכנה לעזור לי זה די דח*ף (לא רציתי לכתוב את מה שכותבים על דלתות) צירפתי קובץ של העלת קבצים שלי שמצאתי.
    תודה.

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

    כך מגדירים ריפרנס


    SET upload = Server.CreateObject()

    ותעשה טובה מי יתחיל לחפש מתוך מאה שורות את הבעייה שלך? תראה רק את הקוד הרלוונטי

שלח תשובה