aspJpeg -- ladda upp bara jpg filer

ASP

3 svar · 439 visningar · startad av preben 27 sep. 2009

prebenMedlem sedan mars 2009452 inlägg

Frågan27 sep. 2009 13:37#1

I min kod går det att ladda upp lite vad som helst och det är fel.

I instruktionen står:
http://www.aspjpeg.com/manual_03.html

' Is this a valid image file?
If File.ImageType <> "UNKNOWN" Then

Men när jag skriver blir det fel:
IF NOT File IS NOTHING AND File.ImageType = "JPG" THEN

Jag tycker detta är svårt!!

voigtann1Medlem sedan juni 20019 519 inlägg

27 sep. 2009 14:34#2

IF NOT (File IS NOTHING AND File.ImageType = "JPG") THEN

If Not File.ImageType="JPG" Then
'Är inte en JPEG fil
End If

prebenMedlem sedan mars 2009452 inlägg

27 sep. 2009 15:44#3

Tack, men det fungerar faktiskt inte.... !!

Jag kunde ladda upp en .DOC -fil som sen givetvis inte kunde skalas om... (bilderna skalas om. det hör inte hit, men så är det...)

prebenMedlem sedan mars 2009452 inlägg

27 sep. 2009 16:02#4

OK, detta verkar fungera:

	IF NOT File IS NOTHING THEN
		IF File.ImageType = "JPG" THEN
	  ' ## NEW POST
SQL = .............................. dra in data i databas
  	Conn.Execute(SQL)
 ' 	Response.Write "File saved."
 		myFileName = File.Filename
		ELSE
		' ## DELETE FILE
		Set fso = Server.CreateObject("Scripting.FileSystemObject")
		IF fso.fileExists( server.MapPath("\images\" & File.Filename ) ) THEN
			fso.DeleteFile(Server.MapPath("\images\") & "\" & File.Filename)
		END IF
		Set fso = Nothing
		END IF
	ELSE
	'  Response.Write "File not selected."
	END IF ' ## CHECK FOR VALID FILENAME = "JPG"

Kanske inte Universums snyggaste lösning, men det funkar. Jag lyfter på hatten och ger dig cred för detta svaret! Kanske itne hela svaret, men väl en god väg dit!

Skål!