Åsikt om Upload

Jag gillar aspsmartupload, eftersom den är gratis och funkar tillräckligt bra.

Det tråkiga med aspsmartupload är att den är "discontinued" och inte går att ladda ner längre :(

headbug skrev:

Det tråkiga med aspsmartupload är att den är "discontinued" och inte går att ladda ner längre :(

Det var som fan! Det var nyheter för mig, det var inte många veckor sedan jag var där senaste gången och laddade hem... :(

w3Upload har jag aldrig hört talas om. AspUpload och AspSmartUpload är förvillande lika. En av skillnaderna är att den ena skriver över filer om de finns (samma dokumentnamn) den andra finns en funktion att inte skriva över filer med samma namn.

Databasen blir yr i huvudet om flera filer bara finns en gång...! :-)

Jag har skrivit en egen funktion som löser detta problem:

*letar*... *hittar inte...*

aspJpeg finns också. Den använder jag på några webbplatser.

Om jag inte minns fel så var det AspUpload som hanterade bilder så himla kasst att de inte gick att använda. Det blev moarée effekt i bilderna på hemsidan! Inte så sexigt...! :-)

[redigera]

Nej, du. Tyvärrr... jag hittar inte den koden just nu. Jag ber att få återkomma. Däremot kan jag bidra med kod som även är användbart med w3Upload (som jag alltså inte känner till). När du ska ta bort filer är det bättre och enklare att göra det med fso, fileSystemObject. Jag hoppas du kan läsa koden:

	SQL = "SELECT intID, strFileName FROM [" & myTable & "] WHERE intID = " & myVar & ""
	set mySQL = Conn.Execute(SQL)

	' ## DELETE FILE
	Set fso = Server.CreateObject("Scripting.FileSystemObject")
	IF fso.fileExists( server.MapPath("\images\" & mySQL(1) ) ) THEN
		fso.DeleteFile(Server.MapPath("\images\") & "\" & mySQL(1))
	END IF
	IF fso.fileExists( server.MapPath("\images\large_" & mySQL(1) ) ) THEN
		fso.DeleteFile(Server.MapPath("\images\") & "\large_" & mySQL(1))
	END IF
	IF fso.fileExists( server.MapPath("\images\medium_" & mySQL(1) ) ) THEN
		fso.DeleteFile(Server.MapPath("\images\") & "\medium_" & mySQL(1))
	END IF
	IF fso.fileExists( server.MapPath("\images\small_" & mySQL(1) ) ) THEN
		fso.DeleteFile(Server.MapPath("\images\") & "\small_" & mySQL(1))
	END IF
	Set fso = Nothing