På vilket sätt fungerar det inte? Felmeddelande?
Kommer du in i if-satserna?
Lägg in testutskrifter av de viktiga värdena, på vettiga ställen.
18 svar · 343 visningar · startad av webbSAJTEN
For Each file In mySmartUpload.Files
If NOT file.IsMissing Then
If InStr(strAllowed, file.FileExt) Then
strFilename = strFilename & "." & file.FileExt
strUrl = "dokument/" & strFilename
file.SaveAs(Server.MapPath(strUrl))
intGodkand = true
Else
Set mySmartUpload = Nothing
Connect.Close
Set Connect = Nothing
session("felform")="Tyvärr stödjer vi inte det filformatet som du försökte ladda upp, vi stödjer endast " & strAllowed &""
response.Redirect "start.asp?sida=admin&do=doku"
End If
End If
Next
Är de något fel på koden?
På vilket sätt fungerar det inte? Felmeddelande?
Kommer du in i if-satserna?
Lägg in testutskrifter av de viktiga värdena, på vettiga ställen.
Får inga felmess alls. Allt går som de ska bara de att filen inte tankas upp.. Allt sparas klokt i databasen..
Hela Uploadkoden:
strAllowed = "doc,pdf,txt,DOC,PDF,TXT"
MAX_UPLOAD_SIZE = 200000
If CLng(Request.ServerVariables("CONTENT_LENGTH")) < CLng(MAX_UPLOAD_SIZE) then
mySmartUpload.Upload()
strFilename = strUser & intAntal
strUser = strUser
strRubrik = mySmartUpload.Form("xxx")
strKat = mySmartUpload.Form("kat")
strDatum = now()
For Each file In mySmartUpload.Files
If NOT file.IsMissing Then
If InStr(strAllowed, file.FileExt) Then
strFilename = strFilename & "." & file.FileExt
strUrl = "dokument/" & strFilename
file.SaveAs(Server.MapPath(strUrl))
intGodkand = true
Else
Set mySmartUpload = Nothing
Connect.Close
Set Connect = Nothing
session("felform")="Tyvärr stödjer vi inte det filformatet som du försökte ladda upp, vi stödjer endast " & strAllowed &""
response.Redirect "start.asp?sida=admin&do=doku"
End If
End If
Next
Ok det var i alla fall svar på första hälften av mitt inlägg. ;)
Borde inte databas-sparandet ligga i den koden du visar?
Nej.. Jag tänkte att eftersom att den funkar klokt så kanske inte den var så viktig..
Jag vet inte riktigt vad de är som du vill ha utskriver tyvärr..
Det är inte jag som vill ha saker utskrivet, det är du.
Det är du som vill veta var saker och ting pajar, och då är det vettigt att lägga in testutskrifter här och där.
Exempel:
if 1=2 then
' En massa fjukig kod
Response.write "jepp, denna if-sats kom vi in i"
end if
If lngFjuk > 0 then
Response.write "lngFjuk: " & lngFjuk
End if
Jag la en såndär och kollade om vi kom in i den första Ifsatsen, den som sparar allt och de gjorde vi utan problem..
vad innehåller mySmartUpload.Files.Count då?
Ingenstans. Jag ber dig kontrollera innehållet bara.
Kommer du in i for-slingan?
joda, där kommer jag in utan problem..
Har du on error resume next i koden?
Nej, de har jag icke..
Ok, exakt vad i koden är det som inte utförs då?
Jo, jag förstår det. Men; nyckeln heter testutskrifter. Testutskrifter, Testutskrifter, Testutskrifter. Inne i alla slingor, i alla if-satser. Kontrollera så alla variabler och objekt innehåller det du tror.
Hur går det om du tar bort kontrollen av filändelse?
Hur går det om du tar bort kontrollen av filstorlek?
etc...
Okej! Jag ska kika runt lite, tack så jättemycket för hjälpen!
Förlåt alla!, mest dig Anders!
Mitt FTP är väldigt efter märkte jag nu. Alla filer hade tankats upp, fast de syntest inte!
tack!!