17. august 2004 - 19:15Der er
14 kommentarer og 1 løsning
Chili!Upload med ASP - Fejl: (Object required: 'upload')
Object required: 'upload' Er hvad jeg får oplyst når det er at jeg prøver at uploade et billede til min server. Serveren understøttere de forskellige Chili!-komponenter inklusiv Chili!Upload. Jeg er MEGET MEGET ny i faget omkring uploading af filer da jeg først lige har skaffet mig adgang til en server...
Koden, til hvis man er interesseret:
<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Set fbase = Server.CreateObject("Chili.Upload.1") fbase.SizeLimit = 1000000
Typ = fbase.SourceFileExtension Cat = upload.form("img_cat") Nam = upload.form("Name") SQL = "INSERT INTO images (img_cat, name, img_type) VALUES ('" & Cat & "', '" & Nam & "', '"& Typ &"')" set rs = my_conn.execute(SQL)
filnavn = fbase.SourceFileName t = inStrRev(filnavn,"\") if t > 0 then filnavn = Mid(filnavn,t+1) fbase.SaveToFile(Server.mapPath(""& Cat &"/"& rs("id") &"" & filnavn)) Set fbase = Nothing
' Trap errors If Err Then UploadError = 1 End If
end if
SQL = "SELECT * from images_cat" set rs = my_conn.execute(SQL) %>
I dette særtema om aspekter af AI ser vi på skiftet fra sprogmodeller til AI-agenter, og hvordan virksomheder kan navigere i spændet mellem teknologisk hastighed og behovet for menneskelig kontrol.
ADO Could not find the object in the collection corresponding to the name or ordinal reference requested by the collection. /cms_media_upload_img.asp, line 15 NB: Det er et billede jeg prøver at uploade hvis det er DET der er problemet...?!
<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Set fbase = Server.CreateObject("Chili.Upload.1") fbase.SizeLimit = 1000000
Typ = fbase.SourceFileExtension Cat = fbase.formData("img_cat") Nam = fbase.formData("Name") SQL = "INSERT INTO images (img_cat, name, img_type) VALUES ('" & Cat & "', '" & Nam & "', '"& Typ &"')" set rs = my_conn.execute(SQL)
filnavn = fbase.SourceFileName <-------------- Linie 15 ----------- fbase.SaveToFile(Server.mapPath(""& Cat &"/"& rs("id") &"" & filnavn)) Set fbase = Nothing
response.write "filen er nu gemt og hedder " & filnavn
' Trap errors If Err Then UploadError = 1 End If
end if
SQL = "SELECT * from images_cat" set rs = my_conn.execute(SQL) %>
Meningen med last_insert_id var at den skulle være sikker, så længe man ikke lukkede connection. Jeg tror ikke der er garanti for max(id) vil give det rigtige Id hvis to indsætter på samme tid.
Der er lige et problem mere, du skal nok få dine point men vil være sikker på du vil hjælpe; Kan det lade sig gøre at lave en funktion der automatisk opretter en mappe hvis en af undermapperne i server.mapPath'en ikke findes? DVS: Fil til /img/Dennis/1.jpg Men på serveren findes mappen Dennis ikke, så derfor skal den automatisk lave den mappe!!!
Ja det man. Man kan med FSO bruge CreateFolder dog kun en sub folder ad gangen så havis man vil oprette /img/Dennis/folder/1.jpg skal det kodes lidt. Jeg har dette som kan oprette foldere også med flere under hinanden:
nyefolder = "/img/Dennis" Set fso = CreateObject("Scripting.FileSystemObject") if right(nyefolder,1)="/" then nyefolder = left(nyefolder,len(nyefolder)-1) nyfolderArr = Split(nyefolder, "/") for i = 0 to ubound(nyfolderArr) sti = sti & nyfolderArr(i) & "/" if sti <> "/" then if fso.FolderExists(Server.Mappath(sti)) = false then Set rootFolder = fso.CreateFolder(Server.Mappath(sti)) end if end if next
Hmm den bliver jeg lidt forvirret over når jeg prøver på at tyde den.... Altså;
Det hele foregår i et CMS-system. Derinde har man nogle Kategorier hvilket billederne bliver opdelt efter. Men det skal kunne være muligt at oprette nye kategorier og dermed skal den tjekke om "mappestien" findes, for gør den ikke det så skal der oprettes mapper som man har indtastet som sti... NB: Man indtaster i en Type=Text hvilken sti man ønsker....
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.