Just nu i M3-nätverket
Jump to content
Eforum upphör 20 juni, klicka för att läsa vad som händer och om alternativ

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

bamse

By bamse,
in Webbutveckling

Recommended Posts

bamse

bamse

Posted
Posted

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%>

 

Link to comment
Share on other sites
Anjuna Moon

Anjuna Moon

Posted
Posted

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"

 

 

Link to comment
Share on other sites
bamse

bamse

Posted
  • Author
Posted

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

 

Link to comment
Share on other sites
bamse

bamse

Posted
  • Author
Posted
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

 

Link to comment
Share on other sites
Anjuna Moon

Anjuna Moon

Posted
Posted
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.

 

Link to comment
Share on other sites
Anjuna Moon

Anjuna Moon

Posted
Posted

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.

 

Link to comment
Share on other sites
bamse

bamse

Posted
  • Author
Posted
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

 

Link to comment
Share on other sites
bamse

bamse

Posted
  • Author
Posted

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

 

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

Go to topic listing


×
×
  • Create New...