4 svar · 258 visningar · startad av illusion
Jag vill byta namn på bilden när jag laddar upp den till tex "<Mappnamn>_2372198398" eller ngt liknande hur byter man namn på en bild som man laddar upp?
Hmmpf, hur laddar du upp bilden?
Någon upload komponent? t.ex ASPupload, AspSmartUpload?
Lite kod kring det hela?
M.Cheraghi skrev:
Hmmpf, hur laddar du upp bilden?
Någon upload komponent? t.ex ASPupload, AspSmartUpload?
Lite kod kring det hela?
<%
If (Request.ServerVariables("REQUEST_METHOD") = "POST") Then
Set Upload = get_upload_files()
fcontent = Upload("upload").Item("content")
extension = right(extract_filename(Upload("upload").Item("filename")),4)
If objFSO.FileExists(Files_upload & "\" & extract_filename(Upload("upload").Item("filename"))) Then
Session("mess") = "Det finns redan en fil med det namnet, byt namn på filen !!!"
Response.Redirect strPageName
Else
If instr(strAllow,extension) then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("../Dbase/gallery_db.mdb")
SQL = "Insert Into files(category,name) Values('" & Request.Cookies("5days") & "','" & Request.Form("url") & "')"
Conn.Execute(SQL)
Set File = objFSO.CreateTextFile(Files_upload & "\" & extract_filename(Upload("upload").Item("filename")))
Else
Session("mess") = "Filen är ej godkänd. Endast <b>" & strAllow & "</b> är godkända."
Response.Redirect strPageName
End If
End If
For i = 1 to LenB(fcontent)
File.Write chr(AscB(MidB(fcontent, i, 1)))
Next
File.Close: Set File = Nothing
Session("mess") = "Du har gjort en lyckad uppladdning !!!"
Response.Redirect strPageName
End If
%>
Jag vill döpa bilden till "<Mappnamn>_Now()_102902"
Först mappen den ligger i sen det aktuella datumet och tid och sist random nummer.
Och till slut, går det inte att skicka upp alla filer i en mapp?
hmmmpf, Har du löst problemet?
Eller markerade du som 'accepterat' för skojjs skull?
Om du löste det själv, skriv hur du löste det, och acceptera det som svar istället!