11 svar · 322 visningar · startad av Jesper T
Ja det var ju det!
Undrar hur man definerar egna namn på bilder som skall laddas upp med aspupload, jag har kollat deras manual(säkert fuskkollat) och sökt på det i webforum, men icke!
MVH Jesper
Byt namn på filen med FSO efter det att du laddat upp den istället.
Har gjort så här men är helt ute och virrar kanske, byter inte namn i alla fall (till test. och "orginaländelsen")!
Microsoft VBScript compilation error '800a0414'
Cannot use parentheses when calling a Sub
/ner.asp, line 32
fso.movefile (right(strFileName),4), (right(ny),4)
Och hela koden är:
<%sokvag = Server.MapPath("\files\imgs\")
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.SetMaxSize 25000, True
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
ny ="test"
If ( bolImageOK = "TRUE" ) Then
Set fso = Server.CreateObject("Scripting.FileSystemObject")
fso.movefile (right(strFileName),4), (right(ny),4)
Response.Write (strFileName & " är uppladdad, klicka <a href=up.asp>här</a> 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
%>
MVH Jesper T
eller är det något typ detta?
fso.MoveFile strFileName,"test." & right(strFileName),3
Verkar inte heller funka:
Microsoft VBScript runtime error '800a01c2'
Wrong number of arguments or invalid property assignment: 'right'
/ner.asp, line 32
Detta blir också fel:
Microsoft VBScript runtime error '800a0035'
File not found
/ner.asp, line 33
Med:
nytt = ""& strFileName
nytt = Left(nytt,(len(nytt)-3))
[b]fso.MoveFile strFileName,"test." & nytt[/b]
??????????????????
Help!! 
Verkar inte som om du har filändelsen i variabeln nytt.
fso.movefile sokvag&"\"&strFileName,sokvag&"\"&ny & right(strFileName,4)
Red.
Fast nu får ju alla filer samma namn!?! Det kanske inte riktigt var meningen?
nytt = ""& strFileName
nytt = Left(nytt,(len(nytt)-3))
fso.MoveFile strFileName,"test." & nytt
Nej detta ger ju: test.gamlanamnet.
det skall ju bli test.nyändelse
Jag vet inte hur man skall plocka ut .ändlesen!!
MVH Jesper T
Fast nu får ju alla filer samma namn!?! Det kanske inte riktigt var meningen?
Ok, men test skall jag byta ut till co(o)kies("användarnamn")
Tack skall kolla! 
right(strFileName,4)
Fast det spricker om det är en filändelse på fyra bokstäver, sök så hittar du något bättre sätt.
Pröva annars min redigerade variant, tror det fungerar. (Ovan)
Nej, du är ju en PÄRLA! Du måste då ha en riktig bullmamma!!
Tack! Pssst du skulle inte kunna kika på vad @nders menar här också är du snäll? Jag har försökt med nåt sånt här men jag är inte riktigt 100, vad jag skall lägga in det, och vad som skall kompletteras?:
SQL = "SELECT username FROM users WHERE username = "& username
http://cgi.webforum.nu/wf/Forum11/HTML/008914.html
MVH Jesper T