WHILE... WEND

6 svar · 336 visningar · startad av Eclipse 18 aug. 2004

EclipseMedlem sedan juli 20003 825 inlägg

Frågan18 aug. 2004 09:41#1

Min loop stannar på 2! Det blir server buffer limit exceed...

' ## CHECK IF FILE EXISTS
DIM fso, myFileName, myArray
DIM strFileName, strExt, intCounter

SET fso = CreateObject("Scripting.FileSystemObject")
myFileName = mySmartUpload.Files.Item(1).FileName

IF fso.fileExists( server.MapPath("\files\" & myFileName ) ) THEN
	myArray = split( myFileName, ".", -1, 1)

	strFileName = myArray(0)& "_"
	intCounter  = 1
	strExt      =  "." & myArray(1)
	myFileName = strFileName & intCounter & strExt

	' ## CHECK FOR DUPLICATES
	WHILE (fso.fileExists(server.MapPath("\files\" & myFileName)))
		[b]myFileName = strFileName & CInt(intCounter) +1 & strExt[/b]
	WEND
END IF

EclipseMedlem sedan juli 20003 825 inlägg

18 aug. 2004 09:53#2

Detta felmeddelandet får jag...

Response object error 'ASP 0251 : 80004005' 

Response Buffer Limit Exceeded 

/admin/newsSE/aspSmart_insert.asp, line 0 

Execution of the ASP page caused the Response Buffer to exceed its configured limit.

M.CheraghiMedlem sedan juli 20015 107 inlägg

18 aug. 2004 09:57#3

Är filen du försöker ladda upp 200Kb+ och det körs under IIS 6?
Eller får du samma felmess med allla filer, jag hade ett liknande problem, och det var med filer som var 200Kb+

EclipseMedlem sedan juli 20003 825 inlägg

18 aug. 2004 10:00#4

Nej. Filerna jag testat med har varit små ikoner på några byte.

Testade precis med en annan liten pluttefil och jag kan ladda dessa:
trash.gif
trash_1.gif
trash_2.gif
view.gif
view_1.gif
view_2.gif

När jag försöker ladda upp ytterligare en fil, oavsett vilken, så går det inte!

SebbeMedlem sedan jan. 20032 285 inlägg

18 aug. 2004 10:16#5

Du har glömt bort att öka på intCounter varje varv.

WHILE (fso.fileExists(server.MapPath("\files\" & myFileName)))
	myFileName = strFileName & CInt(intCounter) +1 & strExt
	[b]intCounter = intCounter + 1[/b]
WEND

EclipseMedlem sedan juli 20003 825 inlägg

18 aug. 2004 10:40#6

Hmm... Tack!

***
Hur tar jag bort en fil? Det står inget om det i dokumentationen...

(Kod från annan komponent. Fungerar ej.)

' ## CREATE OBJECT
Set mySmartUpload  = Server.CreateObject("aspSmartUpload.SmartUpload")
[b]mySmartUpload.DeleteFile[/b] Server.MapPath("\files\") & "/" & mySQL(1)

SebbeMedlem sedan jan. 20032 285 inlägg

18 aug. 2004 10:42#7

Det får du nog använda FSO till.

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile(Server.MapPath("\files\") & "/" & mySQL(1))
Set objFSO = Nothing