Tja allihop! Har lite problem (Som vanligt)! Så här är det! Jag försöker fixa "Ladda upp en bild" men som vanligt för mig blir det fel! Så här lyder felmeddelandet:
Persits.Upload.1 error '800a003d'
Wrong Content-Type. Make sure you have included the attribute ENCTYPE="multipart/form-data" in your form.
/community/Laddaupp.asp, line 24
Vet att det har med sök vägen att göra! För jag vet inte hur man skriver!
Så här ser koderna ut runt 24:
<%Set Upload = Server.CreateObject("Persits.Upload.1")
' Upload files
Upload.OverwriteFiles = False 'Generate unique names
Upload.SetMaxSize 148576 ' Truncate files above 150kb
Upload.Save "upload"
For Each File in Upload.Files
bilden=File.ExtractFileName
Next
Om ni vill så får ni hela koden att mixtra med om det behövs!
hmmmm fixade det felet genom att göra så här: /upload/
Men nu är det så här istället:
Microsoft VBScript runtime error '800a0035'
File not found
/community/laddaupp.asp, line 51
Koderna runt:
if not rspres2.eof then
'om det är en riktig bild, plocka bort den!
if rspres2("pic")<>"profilbild.jpg" then
strPath=server.mapPath(rspres2("pic"))
Set objFSO=CreateObject("Scripting.FileSystemObject")
51----> objFSO.DeleteFile "" & strpath & ""
Set ObjFSO=Nothing
bilden="upload/" & bilden
rspres2("pic")=bilden
rspres2.Update
else
bilden="upload/" & bilden
rspres2("pic")=bilden
rspres2.Update
end if
end if
%>
1. I tabellen presentation finns det en kollumn som talar om vart bilden finns! Jag har tittat på det och den fyller i rätt!
2. Mappen finns på servern!
3. Hur menar du???
if not rspres2.eof then
'om det är en riktig bild, plocka bort den!
if rspres2("pic")<>"profilbild.jpg" then
strPath=server.mapPath(rspres2("pic"))
response.write strpath
'Set objFSO=CreateObject("Scripting.FileSystemObject")
'objFSO.DeleteFile "" & strpath & ""
'Set ObjFSO=Nothing
bilden="upload/" & bilden
rspres2("pic")=bilden
rspres2.Update
else
bilden="upload/" & bilden
rspres2("pic")=bilden
rspres2.Update
end if
end if
%>
g:\home\admax.net\users\firegamez.com\community\upload\Back(16).jpg
Ladda upp foto
Ditt foto har blivit upladdat.
Klicka på ditt användarnamn till vänster för att se hur din presentation ser ut.
Den kod du visar, som jag förstår den kollar den först om bildnamnet i databasen (rspres2("pic")) är något annat än "profilbild.jpg".
I så fall skall den bilden raderas!
Detta görs sen med FSO, det är här det blir fel, scriptet säger att det inte finns någon fil med det namnet på den platsen!?!
Sen lägger du in det nya bildnamnet i databasen. (bilden)
För övrigt kan du väl skriva den kod du visar så här:
if not rspres2.eof then
'om det är en riktig bild, plocka bort den!
if rspres2("pic")<>"profilbild.jpg" then
strPath=server.mapPath(rspres2("pic"))
Set objFSO=CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile "" & strpath & ""
Set ObjFSO=Nothing
end if
bilden="upload/" & bilden
rspres2("pic")=bilden
rspres2.Update
end if
%>
Denna kodbit har väl eg. ingenting med den egentliga filuppladdningen att göra.
Böt ut den! Inga ändringar hände! Det blev samma fel iaf......."File not found"!
Finns det inget sätt att fixat detta???? Eller ska jag spola denna kod!???
Men det är inge fel på sök vägen i databasen! Den är rätt! Det om jag laddar upp bilden manuelt så fungerar det! Det får rätt sök väg! Ända felet med denna kod är att filen inte dyker upp! Men den tror det....... eftersom om jag "Laddar upp" samma fil flera gånger så nummrerar den! Blir det lättare om jag sänder in hela koden!??!?!
Alltså, den kod du visar nu har inget med upplddningen av bilden att göra, den kod du postat ser till att radera en eventuell befintlig bild på servern samt att lägga in namnet på den nya bilden i databasen.
Eftersom att du inte har en bild på servern där databasen säger att det ska vara en bild säger "delete-scriptet" ifrån och du får ditt felmeddelande.
jaha! Det vara bara det att felmeddelandet kom vid rad 50! så då postade jag raderna runt! Men här e hela koden:
<%
Option Explicit
Dim username, upload, se, file, bilden, SQL2, Rs2, SQLPRES2, Rspres2, strPath, objFSO
username = Request.Cookies("username")
if username = "" then
Response.Redirect("nologin.asp?page=laddaupp.asp")
end if
%>
<!--#include file="conn.asp"-->
<%
se=request("se")
if se="" then
se=username
end if
%>
<%Set Upload = Server.CreateObject("Persits.Upload.1")
' Upload files
Upload.OverwriteFiles = False 'Generate unique names
Upload.SetMaxSize 148576 ' Truncate files above 150kb
Upload.Save "/upload/"
For Each File in Upload.Files
bilden=File.ExtractFileName
Next
if bilden="" Then
response.redirect("foto.asp")
else
SQL2="SELECT * FROM users WHERE username='" & se & "'"
Conn.execute(SQL2)
Set Rs2=Server.CreateObject("ADODB.Recordset")
Rs2.open SQL2, Conn, 3,3
SQLPRES2="SELECT * FROM presentation WHERE who='" & se & "'"
Conn.execute(SQLPRES2)
Set Rspres2=Server.CreateObject("ADODB.Recordset")
Rspres2.open SQLpres2, Conn, 3,3
if not rspres2.eof then
'om det är en riktig bild, plocka bort den!
if rspres2("pic")<>"profilbild.jpg" then
strPath=server.mapPath(rspres2("pic"))
Set objFSO=CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile "" & strpath & ""
Set ObjFSO=Nothing
end if
bilden="upload/" & bilden
rspres2("pic")=bilden
rspres2.Update
end if
%>
Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'Server.mappaht'
/community/laddaupp.asp, line 23
Den andra vart det samma fel med! Jag tog deras mapp adress! Som stod där uppe!...
servern stödjer upload via ASP har prövat förut! Då jag inte hade några användare och så!(Alltiallo sida)
