/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord? 		Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
1  smorch 9259
2  Harlekin 1866
3  molokyle 1040
4  Steffanst.. 758
5  gandalf 657
6  smilly 564
7  gibson 560
8  cumano 530
9  MouseKeep.. 480
10  Random 410
Hjælp til asp filupload
Fra : Jørgen Nielsen

Dato : 28-02-10 10:53
Jeg vil gerne have lavet så bestyrelsen kan uploade klubbladet på
vores medlems side og har fundet et scripts der skulle kunne
bruges men kan ikke få det til at virke har sat ? hvor jeg er i
tvivl om hvad der skal stå.

fil 1

<html>
<body>

<form method="POST" enctype="multipart/form-data"
action="Upload1.asp">
<input type=file size=50 name="file1"><br>
<input type=file size=50 name="file2"><br>
<input type=submit value=" Upload ">
</form>

</body>
</html>

fil 2
<html>
<body>

<%
Set Upload = Server.CreateObject("Persits.Upload.1???")
Count = Upload.Save("c:/log/???")
%>

<%=Count%> files uploaded.


</body>
</html>

Håber der er nogle der kan hjælpe.

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

 
 
Stig Johansen (28-02-2010)
Kommentar
Fra : Stig Johansen

Dato : 28-02-10 13:32
"Jørgen Nielsen" <jorgen-v@nielsen.mail.dk> wrote in message
news:4b8a3d12$0$277$14726298@news.sunsite.dk...
> Jeg vil gerne have lavet så bestyrelsen kan uploade klubbladet på
> vores medlems side og har fundet et scripts der skulle kunne
> bruges men kan ikke få det til at virke har sat ? hvor jeg er i
> tvivl om hvad der skal stå.
>

Jeg bruger følgende kode til upload:
.....
<%@ LANGUAGE = VBScript%><%Option Explicit%><%
Dim pagetitle
pagetitle = "W.O.P.R Gallery - Add image to library"

%><!--#include virtual="/include_files/doctype.inc.asp"-->
</head>

<body>
<!--#include virtual="/include_files/body.start.inc.asp"-->
<!--#include file="gallerydb.inc.asp"--><!--#include
virtual="/include_files/sql.inc.asp"-->
<%
Dim SQL
Dim Parameters(30)
Dim Rowsaffected
Dim rs
SQL = "SELECT GalleryOwner FROM GalleryOwners WHERE GalleryOwner = ? "
Parameters(0) = Session("Loginuser")
Set rs= Query(oConn,SQL,Parameters,1)
if rs.eof then
Response.Write "Not logged in"
Response.End
end if
rs.close
set rs = nothing

if Request.Servervariables("REQUEST_METHOD") = "GET" then
%>
<h3>Opret image for bruger: <%=session("Loginuser")%></h3>
<form enctype="multipart/form-data" method="POST">
<div>
<label>image fil<input type="file" name="image"/></label><br/>
<label>navn på serveren(blank=samme)<input type="text" name="filename"
value=""/></label><br/>
<input type="submit" value="Opload"/>
</div>
</form>
<%
Response.End
end if

Dim Upload
Dim Path
Dim Filename
Set Upload = Server.CreateObject("Persits.Upload")
Upload.SetMaxSize 64000, True
Upload.Save ' Server.MapPath("uploadfiles")
Response.Write "File: " + Upload.Files("image").path + " size: " +
cStr(Upload.Files("image").Size) + " type: " +
Upload.Files("image").ContentType

path = Server.MapPath(replace(session("Loginuser")," ","_")+ "\")
if Upload.Form("filename") > "!" then
Filename = Upload.Form("filename")
else
Filename = Upload.Files("image").Path
end if
Upload.Files("image").SaveAs Path + "\images\" + Filename

%>
</body>
</html>
.....

Det er så baseret på upload af billeder, og ikke rådata som sådan.

--
Med venlig hilsen/Best regards
Stig Johansen




Jørgen Nielsen (28-02-2010)
Kommentar
Fra : Jørgen Nielsen

Dato : 28-02-10 16:08
Det er pdf filer jeg skal uploade til en mappe på webhotelet.

Stig Johansen wrote in dk.edb.internet.webdesign.serverside.asp:
> "Jørgen Nielsen" <jorgen-v@nielsen.mail.dk> wrote in message
> news:4b8a3d12$0$277$14726298@news.sunsite.dk...
> > Jeg vil gerne have lavet så bestyrelsen kan uploade klubbladet på
> > vores medlems side og har fundet et scripts der skulle kunne
> > bruges men kan ikke få det til at virke har sat ? hvor jeg er i
> > tvivl om hvad der skal stå.
> >
>
> Jeg bruger følgende kode til upload:
> .....
> <%@ LANGUAGE = VBScript%><%Option Explicit%><%
&gt; Dim pagetitle
&gt; pagetitle = "W.O.P.R Gallery - Add image to library"
&gt;
&gt; %><!--#include virtual="/include_files/doctype.inc.asp"-->
> </head>
>
> <body>
> <!--#include virtual="/include_files/body.start.inc.asp"-->
> <!--#include file="gallerydb.inc.asp"--><!--#include
&gt; virtual="/include_files/sql.inc.asp"-->
> <%
&gt; Dim SQL
&gt; Dim Parameters(30)
&gt; Dim Rowsaffected
&gt; Dim rs
&gt; SQL = "SELECT GalleryOwner FROM GalleryOwners WHERE GalleryOwner = ?
"
&gt; Parameters(0) = Session("Loginuser")
&gt; Set rs= Query(oConn,SQL,Parameters,1)
&gt; if rs.eof then
&gt; Response.Write "Not logged in"
&gt; Response.End
&gt; end if
&gt; rs.close
&gt; set rs = nothing
&gt;
&gt; if Request.Servervariables("REQUEST_METHOD") = "GET" then
&gt; %>
> <h3>Opret image for bruger: <%=session("Loginuser")%></h3>
> <form enctype="multipart/form-data" method="POST">
> <div>
> <label>image fil<input type="file" name="image"/></label><br/>
> <label>navn på serveren(blank=samme)<input type="text" name="filename"
> value=""/></label><br/>
> <input type="submit" value="Opload"/>
> </div>
> </form>
> <%
&gt; Response.End
&gt; end if
&gt;
&gt; Dim Upload
&gt; Dim Path
&gt; Dim Filename
&gt; Set Upload = Server.CreateObject("Persits.Upload")
&gt; Upload.SetMaxSize 64000, True
&gt; Upload.Save ' Server.MapPath("uploadfiles")
&gt; Response.Write "File: " + Upload.Files("image").path + " size: " +
&gt; cStr(Upload.Files("image").Size) + " type: " +
&gt; Upload.Files("image").ContentType
&gt;
&gt; path = Server.MapPath(replace(session("Loginuser")," ","_")+ "\")
&gt; if Upload.Form("filename") > "!" then
&gt; Filename = Upload.Form("filename")
&gt; else
&gt; Filename = Upload.Files("image").Path
&gt; end if
&gt; Upload.Files("image").SaveAs Path + "\images\" + Filename
&gt;
&gt; %>
> </body>
> </html>
> .....
>
> Det er så baseret på upload af billeder, og ikke rådata som sådan.
>
> --
> Med venlig hilsen/Best regards
> Stig Johansen
>
>
>


--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

Stig Johansen (01-03-2010)
Kommentar
Fra : Stig Johansen

Dato : 01-03-10 04:57
Jørgen Nielsen wrote:

> Det er pdf filer jeg skal uploade til en mappe på webhotelet.

Jeg skrev forkert.
Den kode jeg sendte er til alle slags filer, og ikke kun billeder.

Hvis du fjerner det overflødige, burde du kunne få det til at virke, eller
se hvordan komponenten bruges.

--
Med venlig hilsen
Stig Johansen

Jørgen Nielsen (04-03-2010)
Kommentar
Fra : Jørgen Nielsen

Dato : 04-03-10 20:41
Jeg er ikke den store nørd til hjemmeside koder så håber på at kunne få lidt
hjælp/forklaring til hvad der skal fjernes og hvad der skal tilføjes for at
få det til at virke.

Venlig hilsen
Jørgen Nielsen

Stig Johansen wrote in dk.edb.internet.webdesign.serverside.asp:
> Jørgen Nielsen wrote:
>
> > Det er pdf filer jeg skal uploade til en mappe på webhotelet.
>
> Jeg skrev forkert.
> Den kode jeg sendte er til alle slags filer, og ikke kun billeder.
>
> Hvis du fjerner det overflødige, burde du kunne få det til at virke, eller
> se hvordan komponenten bruges.
>
> --
> Med venlig hilsen
> Stig Johansen


--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

Stig Johansen (04-03-2010)
Kommentar
Fra : Stig Johansen

Dato : 04-03-10 22:38
Jørgen Nielsen wrote:

> Jeg er ikke den store nørd til hjemmeside koder så håber på at kunne få
> lidt
> hjælp/forklaring til hvad der skal fjernes og hvad der skal tilføjes for
> at få det til at virke.

Hvis vi tager udgangspunkt i den kode jeg dendte, så skal du fjerne alle de
<!--#include..

Derefter skal du sætte en passende doctype m.m. ind før </head>.

'Databaseblokken' fjerner du også:
.....
Dim SQL
Dim Parameters(30)
Dim Rowsaffected
Dim rs
   SQL = "SELECT GalleryOwner FROM GalleryOwners WHERE GalleryOwner = ? "
   Parameters(0) = Session("Loginuser")
   Set rs= Query(oConn,SQL,Parameters,1)
   if rs.eof then
      Response.Write "Not logged in"
      Response.End
   end if
   rs.close
   set rs = nothing
.....

Du skal også være opmærksom på, at der i disse indlæg bliver lavet uøskede
linieskift, så de skal også rettes.

Når du har gjort det, burde det fungere, men du skal nok have rettet
mappenavnet til.

Hvis du rettet
   path = Server.MapPath(replace(session("Loginuser")," ","_")+ "\")
til
   path = Server.MapPath(".")
er det den mappe din asp-fil ligger i.

Jeg har lavet en undermappe 'images', som bliver brugt her:
   Upload.Files("image").SaveAs Path + "\images\" + Filename

Hvis du vil have filerne til at ligge i en undermappe, retteer du "\images\
til det du synes, eller fjern den hvis filerne skal ligge samme sted som
asp-filen.

Prøv at se om ikke du kan få det til at køre, så tager vi den derfra.

--
Med venlig hilsen
Stig Johansen
Søg
Reklame
Statistik
Spørgsmål : 177739
Tips : 31970
Nyheder : 719565
Indlæg : 6410329
Brugere : 218904
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2025 kandu.dk. Alle rettigheder forbeholdes.