Hej! Har fixat det själv!Asp upload
Jag använder denna kod, problemet är att den skickar upp va 17:singen som helst även fast det inte är en bild! Jag vill ju inte att den skall skicka upp filen om det inte är en bild!
<code>
<!--#include file="AspUpload.inc"-->
<HTML>
<BODY>
<%sokvag = Server.MapPath("\bilder\files\imgs\")
Set Upload = Server.CreateObject("Persits.Upload")
' Capture and save uploaded image
Upload.Save(sokvag)
For Each File in Upload.Files
If File.ImageType = "UNKNOWN" Then
Response.Write "This is now an image."
Response.End
End If
Response.Write File.Path & "<BR>"
Response.Write "Type: " & File.ImageType & "<BR>"
Response.Write "Size: " & File.ImageWidth & " x " & File.ImageHeight & " pixels"
Next
%>
</BODY>
</HTML>
</code>
Går det att komma åt det "problemet" Helst skulle jag också vilja bestämma filnamnet själv när den skickar upp bilden, hur göra?
MVH Jesper TSv: Asp upload
<code>
<HTML>
<BODY>
<%sokvag = Server.MapPath("\bilder\files\imgs\")
Set Upload = Server.CreateObject("Persits.Upload.1")
'-- Inga stora filer här inte ( MAX 25k ).
Upload.SetMaxSize 25000, True
'On Error Resume Next
'-- Ladda upp skiten.
Upload.Save(sokvag)
For Each File in Upload.Files
strFileName = File.ExtractFileName
If ( Instr(strFileName, ".jpg") > 0 ) Then _
bolImageOk = "TRUE"
If ( Instr(strFileName, ".gif") > 0 ) Then _
bolImageOk = "TRUE"
If Not ( bolImageOK = "TRUE" ) Then _
File.Delete
Next
If ( bolImageOK = "TRUE" ) Then
Response.Write (strFileName & " är uppladdad, klicka här för att komma tillbaka.")
Else
Response.Write "Bilden är för stor (max 25kb) eller har fel format. Du kan bara ladda upp JPEG eller GIF bilder."
End If
%>
</code>
En sak kvarstår!
Hur ändrar man namnet på bilden som skall laddas upp!
Snälla någon som vet?!
MVH Jesper T