Just nu i M3-nätverket
Gå till innehåll
Eforum är stängt för nya inlägg och svar sedan 20 juni 2022. Klicka för att läsa vad som hände och om alternativ.

Upload och byta namn på fil (SoftArtisans.FileUp)

bamse

Startad av bamse,
i Webbutveckling

Rekommendera Poster

bamse

bamse

Postad
Postad

När filen (bilden) skickas upp till servern så skall den heta

(senaste_bild.jpg). Oavsett vad filen (bilden) heter i bläddrings rutan..

 

tacksam för hjälp

thommy

 

koden enl nedan

 

[MÄRK]<%[/MÄRK] [color="#0000ff"]Set[/color] upl = [b]Server[/b].[color="#0000ff"]CreateObject[/color]([GRÅ]"SoftArtisans.FileUp"[/GRÅ]) [MÄRK]%>[/MÄRK]
[MÄRK]<%[/MÄRK] upl.Path = [GRÅ]"c:\Inetpub\wwwroot\uppbild\"[/GRÅ] [MÄRK]%>[/MÄRK]
[MÄRK]<%[/MÄRK] upl.Save [MÄRK]%>[/MÄRK]<BR>
[MÄRK]<%[/MÄRK] bilden = [color="#0000ff"]Mid[/color](upl.UserFilename, [color="#0000ff"]InStrRev[/color](upl.UserFilename, [GRÅ]"\"[/GRÅ]) + 1)
  FCONT = upl.ContentType 

  	   [color="#0000ff"]Select[/color] [color="#0000ff"]Case[/color] [color="#0000ff"]LCase[/color](FCONT) 
   [color="#0000ff"]Case[/color] [GRÅ]"image/pjpeg"[/GRÅ] 
	upl.Save 
	[b]Response[/b].Write [GRÅ]"<P>Filen "[/GRÅ] & bilden & [GRÅ]"<BR>har blivit uppskickad"[/GRÅ]

[color="#0000ff"]Case[/color] [color="#0000ff"]Else[/color]
	upl.delete
	[b]Response[/b].Write  [GRÅ]"<P>"[/GRÅ] & [GRÅ]"Bara filer av typ [Jpg] får skickas.<BR>"[/GRÅ]
	[b]Response[/b].[color="#0000ff"]End[/color] 
[color="#0000ff"]End[/color] Select%>

 

Länk till kommentar
Dela på andra webbplatser
Anjuna Moon

Anjuna Moon

Postad
Postad

Istället för att använda upl.Save vilket sparar filen med samma namn som ursprungsfilen så använder du:

 

upl.SaveAs "senaste_bild.jpg"

 

 

Länk till kommentar
Dela på andra webbplatser
bamse

bamse

Postad
  • Trådskapare
Postad

Okey..

Funkar inte.

 

kod enl nedan

 

	[MÄRK]<%[/MÄRK] [color="#0000ff"]Set[/color] upl = [b]Server[/b].[color="#0000ff"]CreateObject[/color]([GRÅ]"SoftArtisans.FileUp"[/GRÅ]) [MÄRK]%>[/MÄRK]
[MÄRK]<%[/MÄRK] upl.Path = [GRÅ]"c:\Inetpub\wwwroot\uppbild\"[/GRÅ] [MÄRK]%>[/MÄRK]
<%upl.SaveAs [GRÅ]"senaste_bild.jpg"[/GRÅ][MÄRK]%>[/MÄRK]<BR>
[MÄRK]<%[/MÄRK]
    f1 = [color="#0000ff"]Mid[/color](upl.UserFilename, [color="#0000ff"]InStrRev[/color](upl.UserFilename, [GRÅ]"\"[/GRÅ]) + 1)
        FCONT = upl.ContentType 
        [color="#0000ff"]Select[/color] [color="#0000ff"]Case[/color] [color="#0000ff"]LCase[/color](FCONT) 
   [color="#0000ff"]Case[/color] [GRÅ]"image/pjpeg"[/GRÅ] 
	upl.Save 
	[b]Response[/b].Write [GRÅ]"<P>Filen "[/GRÅ] & f1 & [GRÅ]"<BR>have been upload"[/GRÅ]

[color="#0000ff"]Case[/color] [color="#0000ff"]Else[/color]
	upl.delete
	[b]Response[/b].Write  [GRÅ]"<P>"[/GRÅ] & [GRÅ]"Must be a [jpg] to upload.<BR> Press [back] key in web browser <BR>to return to upload page"[/GRÅ]
	[b]Response[/b].[color="#0000ff"]End[/color] 
[color="#0000ff"]End[/color] Select%>

 

mvh

thommy

 

Länk till kommentar
Dela på andra webbplatser
bamse

bamse

Postad
  • Trådskapare
Postad
På vilket sätt fungerar det inte? Felmeddelanden eller?

 

Det blir inget felmedelande..

Bilden skickas iväg men den byter inte namn.

 

det står i webläsaren.

 

 

Filen pfizer.jpg

have been upload

 

/thommy

 

Länk till kommentar
Dela på andra webbplatser
Anjuna Moon

Anjuna Moon

Postad
Postad
Bilden skickas iväg men den byter inte namn.

 

det står i webläsaren.

 

Ja, det du skriver ut är ju ursprungsnamnet. Men SaveAs har sparat filen under det nya namnet.

 

Länk till kommentar
Dela på andra webbplatser
Anjuna Moon

Anjuna Moon

Postad
Postad

För att förtydliga:

 

Det du skriver ut på webbsidan med

f1 = [color="#0000ff"]Mid[/color](upl.UserFilename, [color="#0000ff"]InStrRev[/color](upl.UserFilename, [GRÅ]"\"[/GRÅ]) + 1)
        FCONT 
[b]Response[/b].Write [GRÅ]"<P>Filen "[/GRÅ] & f1 & [GRÅ]"<BR>have been upload"[/GRÅ]

 

är namnet som filen hade när den skickades upp till servern från klienten. Det är vad upl.UserFilenamn returnerar. Även om du sparat filen med upl.SaveAs "NågotAnnatNamn.xxx" så kommer denna sträng inte förändras.

 

Länk till kommentar
Dela på andra webbplatser
bamse

bamse

Postad
  • Trådskapare
Postad
För att förtydliga:

 

När jag tittar i katalogen där filen lagras, så

finns bara filen (pfizer.jpg), efter vart test

så raderar jag filen, men den lagras igen

som (pfizer.jpg) inte som (senaste_bild.jpg)

 

/thommy

 

Länk till kommentar
Dela på andra webbplatser
bamse

bamse

Postad
  • Trådskapare
Postad

Så här ser hela koden ut som jag använder

 

(file_bild_T.asp)

 

<html>
<head>
<title>Tunneltork</title>
</head>
<body bgcolor=[GRÅ]"#ffffff"[/GRÅ] topmargin=[GRÅ]"0"[/GRÅ] leftmargin=[GRÅ]"0"[/GRÅ]>
<br>
<font face=[GRÅ]"Verdana"[/GRÅ] size=[GRÅ]"2"[/GRÅ]>
OBS!!!!<br>
The image you upload here must be a jpg [color="#0000ff"]And[/color] have<br> 
the same name as you assigned [color="#0000ff"]To[/color] it [color="#0000ff"]In[/color] the post
</font>
<br>
<br>
<table border=[GRÅ]"0"[/GRÅ] cellspacing=[GRÅ]"0"[/GRÅ] cellpadding=[GRÅ]"0"[/GRÅ]>
<tr>
<td height=[GRÅ]"0"[/GRÅ] align=[GRÅ]"left"[/GRÅ]>
<form enctype=[GRÅ]"multipart/form-data"[/GRÅ] method=[GRÅ]"post"[/GRÅ] action=[GRÅ]"send_bild_t.asp"[/GRÅ]>
<font face=[GRÅ]"Verdana"[/GRÅ] size=[GRÅ]"2"[/GRÅ] color=[GRÅ]"#000000"[/GRÅ]>[color="#0000ff"]Select[/color] a image (jpg,) [color="#0000ff"]To[/color] upload:</font><br>
<input type=[GRÅ]"file"[/GRÅ] name=[GRÅ]"f1"[/GRÅ]><br>
<br>
<input type=[GRÅ]"submit"[/GRÅ] value=[GRÅ]"Upload screenshots"[/GRÅ]>
</form>
</td>
</tr>
</table>
</body>
</html>

 

 

(send_bild_T.asp)

 

[MÄRK]<%[/MÄRK]@ LANGUAGE=[GRÅ]"VBScript"[/GRÅ] [MÄRK]%>[/MÄRK]
<html>
<head>
<title>Tunneltork</title>
</head>
<body bgcolor=[GRÅ]"#ffffff"[/GRÅ] topmargin=[GRÅ]"0"[/GRÅ] leftmargin=[GRÅ]"0"[/GRÅ]>

<table border=[GRÅ]"0"[/GRÅ] cellspacing=[GRÅ]"0"[/GRÅ] cellpadding=[GRÅ]"0"[/GRÅ]>
<tr>
<td height=[GRÅ]"0"[/GRÅ] align=[GRÅ]"left"[/GRÅ]>

<font face=[GRÅ]"Verdana"[/GRÅ] size=[GRÅ]"2"[/GRÅ] color=[GRÅ]"#000000"[/GRÅ]>
[MÄRK]<%[/MÄRK] [color="#0000ff"]Set[/color] upl = [b]Server[/b].[color="#0000ff"]CreateObject[/color]([GRÅ]"SoftArtisans.FileUp"[/GRÅ]) [MÄRK]%>[/MÄRK]
[MÄRK]<%[/MÄRK] upl.Path = [GRÅ]"c:\Inetpub\wwwroot\uppbild\"[/GRÅ] [MÄRK]%>[/MÄRK]
[MÄRK]<%[/MÄRK] 
upl.SaveAs [GRÅ]"senaste_bild.jpg"[/GRÅ][MÄRK]%>[/MÄRK]<BR>
[MÄRK]<%[/MÄRK]


    f1 = [color="#0000ff"]Mid[/color](upl.UserFilename, [color="#0000ff"]InStrRev[/color](upl.UserFilename, [GRÅ]"\"[/GRÅ]) + 1)


        FCONT = upl.ContentType 


        [color="#0000ff"]Select[/color] [color="#0000ff"]Case[/color] [color="#0000ff"]LCase[/color](FCONT) 
   [color="#0000ff"]Case[/color] [GRÅ]"image/pjpeg"[/GRÅ] 
	upl.Save 
	[b]Response[/b].Write [GRÅ]"<P>Filen "[/GRÅ] & f1 & [GRÅ]"<BR>have been upload"[/GRÅ]

[color="#0000ff"]Case[/color] [color="#0000ff"]Else[/color]
	upl.delete
	[b]Response[/b].Write  [GRÅ]"<P>"[/GRÅ] & [GRÅ]"Must be a [jpg] to upload.<BR> Press [back] key in web browser <BR>to return to upload page"[/GRÅ]
	[b]Response[/b].[color="#0000ff"]End[/color] 
[color="#0000ff"]End[/color] Select%>
</td>
</tr>
</table>
</body>
</html>

 

/thommy

 

 

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

Gå till ämneslista


×
×
  • Skapa nytt...