Notifikationer

Markér alle som læst Log ud

kiwankow Nybegynder

24. oktober 2007 - 11:31 Der er 26 kommentarer og
1 løsning

upload script som laver ny mappe

Hej jeg har allerede et udemærket upload script som fungerer alletiders. nu kunne jeg godt tænke mig at scriptet kan oprette en ny mappe så hvis der er to forskellige personer der uploader får de hver sin mappe..

håber nogen kan hjælpe..!!

Synes godt om

w13 Novice

24. oktober 2007 - 12:01 #1

Ja. Hvis vi må se dit script. Ellers kan vi ikke rigtig udbygge det.

Der er masser af ASP-image-komponenter og endnu flere måder at bruge dem på, så vi kan umuligt vide, hvordan du gør.

Synes godt om

w13 Novice

24. oktober 2007 - 13:46 #2

Du kan oprette en ny mappe med koden:

Server.CreateObject("Scripting.FileSystemObject").CreateFolder("\upload\nymappe")

Synes godt om

w13 Novice

24. oktober 2007 - 13:46 #3

Hov, du skal have hele stien med:

Server.CreateObject("Scripting.FileSystemObject").CreateFolder("c:\upload\nymappe")

Synes godt om

kiwankow Nybegynder

24. oktober 2007 - 16:44 #4

skal det placeres inden for <% ... %> i uploadscriptet

Synes godt om

kiwankow Nybegynder

24. oktober 2007 - 16:56 #5

sådan ser min kode ud:

<%
Server.ScriptTimeout=2000
if Request.querystring("mode") = "upload" then
Set Upload = Server.CreateObject("Persits.Upload")
Upload.Savevirtual ("/upload")
felt1 = Upload.form("felt1")
felt2 = Upload.form("felt2")
felt3 = Upload.form("felt3")
felt4 = Upload.form("felt4")
felt5 = Upload.form("felt5")
felt6 = Upload.form("felt6")
felt7 = Upload.form("felt7")
felt8 = Upload.form("felt8")

Set File = Upload.Files("FILE1")
If File Is Nothing Then
Response.write "Ingen fil valgt"
response.end
else
filename = File.Filename
body = "Filnavn: "& filename &vbcrlf
body = body & "-----------------------------------"& vbcrlf
body = body & "Genre: "& felt3 &vbcrlf
body = body & "Navn: "& felt1 &vbcrlf
body = body & "-----------------------------------"& vbcrlf
body = body & "Titel: " &vbcrlf
body = body & "("& felt2 &") af " & felt1 &vbcrlf
body = body & "-----------------------------------"& vbcrlf
body = body & "Beskrivelse: " &vbcrlf
body = body & felt7 &vbcrlf
body = body & ""& vbcrlf
body = body & "Dimensioner: "& felt4 &vbcrlf
body = body & ""& vbcrlf
body = body & "Pris: "& felt5 &vbcrlf
body = body & ""& vbcrlf
body = body & "Kontaktinformation: "& vbcrlf
body = body & felt6 &vbcrlf
body = body & "-----------------------------------"& vbcrlf
body = body & "Søgeord: "& vbcrlf
body = body & felt8 &vbcrlf

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Nyt upload"
Mailer.FromAddress= "tilmelding@kunstzonen.dk"
Mailer.RemoteHost = "mail.kunstzonen.dk"
Mailer.AddRecipient "Nyt upload", "tilmelding@kunstzonen.dk"
Mailer.Subject = "Der er uploaded en fil"
Mailer.BodyText = body
if not Mailer.SendMail then
Response.Write "Mail send failure. Error was " & Mailer.Response
response.end
end if
end if %>
<center>
<img src="/images/newlogo4.jpg"><br>
<br>
Filen er uploaded og dit værk vil blive synligt på Kunstzonen.dk så snart det er valideret.<br>
<br>
Vil du uploade en fil mere <a href="<%= Request.ServerVariables("SCRIPT_NAME") %>">klik her</a><br>
<br>
Vil du uploade et portrætfoto og en galleribeskrivelse til dit galleri <a href="profileupload.asp">klik her</a><br>
<br>
ellers<br>
<br>
<input type="button" value="Luk vinduet" onClick="self.close()"></center>

<% response.end
end if
%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>
<head>
<title>Untitled</title>
<style type="text/css">

</style>
</head>
<body>
<table width="511" border="0" align="center" cellpadding="0" cellspacing="4">
<tr><td width="503"><div align="center"><img src="/images/newlogo4.jpg" align="center"></div>
<div align="center"><em><br>
<span class="style8"><span class="style7">(Felter markeret med</span></span></em><span class="style6"> * </span><span class="style8"><span class="style10">SKAL udfyldes</span></span> ) </div></td>
</tr>
<tr>
<td>
<form method="post" ENCTYPE="multipart/form-data" ACTION="<%= Request.ServerVariables("SCRIPT_NAME") %>?mode=upload">
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="30%"><div align="left" class="style2"><span class="style5">1:</span> Fil</div></td>
<td width="70%"><INPUT TYPE="FILE" SIZE="31" NAME="FILE1"></td>
</tr>
<tr>
<td><div align="left" class="style2"><span class="style5">2:</span> Deres navn <span class="style11">*</span></div></td>
<td><input name="felt1" type="Text" size="31"></td>
</tr>
<tr>
<td><div align="left" class="style2"><span class="style5">3:</span> Værkets navn</div></td>
<td><p>
<input name="felt2" type="Text" value="" size="31">
</p> </td>
</tr>
<tr>
<td><div align="left" class="style2"><span class="style5">4:</span> Kategori <span class="style11">*</span></div></td>
<td><p>
<input name="felt3" type="Text" size="31">
</p> </td>
</tr>
<tr>
<td><div align="left" class="style2"><span class="style5">5:</span> Dimensioner <span class="style11">*</span></div></td>
<td><p>
<input name="felt4" type="Text" size="31">
</p> </td>
</tr>
<tr>
<td><div align="left" class="style2">
<div align="left"><span class="style5">6:</span> Pris <span class="style11">*</span></div>
</div></td>
<td><p>
<input name="felt5" type="Text" size="31">
</p> </td>
</tr>
<tr>
<td><div align="left" class="style2"><span class="style5">7:</span> Kontaktinformation<span class="style11"> *</span></div></td>
<td><p>
<textarea name="felt6" cols="24" rows="4"></textarea>
</p> </td>
</tr>
<tr>
<td><div align="left" class="style2"><span class="style5">8:</span> Beskrivelse</div></td>
<td><p>
<textarea name="felt7" cols="24" rows="4" id="felt7"></textarea>
</p></td>
</tr>
<tr>
<td><div align="left" class="style2"><span class="style5">9:</span> Søgeord</div></td>
<td><p>
<textarea name="felt8" cols="24" rows="4" id="felt8"></textarea>
</p> </td>
</tr>
<tr>
<td> </td>
<td><INPUT TYPE=SUBMIT VALUE="Upload"></td>
</tr>
</table>
<br>

</form>
</td>
</tr>
</table>

<table width="503" border="0" align="center">
<tr>
<td width="539"><p class="style4"><strong>1:</strong> Her vælger du det billede du ønsker uploadet til Kunstzonen.dk. <em>(Vi ser gerne at dimensionen på billedet holder sig inden for 600*600 pixels)</em></p> </td>
</tr>
<tr>
<td><span class="style4"><strong>2:</strong> Udfyld dette felt med deres navn. </span></td>
</tr>
<tr>
<td><span class="style4"><strong>3:</strong> Udfyld dette felt med navnet på det værk du ønsker udstillet. </span></td>
</tr>
<tr>
<td><p class="style4"><strong>4:</strong> Udfyld dette felt med den kategori du ønsker værket udstillet i. </p> </td>
</tr>
<tr>
<td><span class="style4"><strong>5:</strong> Udfyld dette felt med dimensionerne på det udstillede værk. <em>(eks. 80*60cm, Ø30cm H20cm)</em> </span></td>
</tr>
<tr>
<td><span class="style4"><strong>6:</strong> Udfyld dette felt med den pris du forlanger for det udstillede værk.</span></td>
</tr>
<tr>
<td><span class="style4"><strong>7:</strong> Dette felt udfyldes med den kontaktinformation du ønsker at få vist sammen med dit værk.</span></td>
</tr>
<tr>
<td><p class="style4"><strong>8:</strong> I dette felt kan du lave en kort beskrivelse/tekst som vil blive vist sammen med værket. </p>
</td>
</tr>
<tr>
<td><span class="style4"><strong>9:</strong> Dette felt udfylder du med såkaldte søgeord som knytter sig til værket. <em>(blomster, huse, osv.)</em></span></td>
</tr>
</table>
</body>
</html>

Synes godt om

soerenlyn Nybegynder

24. oktober 2007 - 18:02 #6

Ja du kan bare bruge W13's løsning, dog mener jeg den skal være:

Server.CreateObject("Scripting.FileSystemObject").CreateFolder(Server.MapPath("/upload")&"/nymappe")

Synes godt om

kiwankow Nybegynder

24. oktober 2007 - 20:58 #7

ok men hvor skal det placres henne

Synes godt om

soerenlyn Nybegynder

24. oktober 2007 - 21:02 #8

Før du vælger hvor den skal uploades.

Server.CreateObject("Scripting.FileSystemObject").CreateFolder(Server.MapPath("/upload")&"/navnpånymappe")
Set Upload = Server.CreateObject("Persits.Upload")
Upload.Savevirtual ("/upload/navnpånymappe")

Synes godt om

kiwankow Nybegynder

25. oktober 2007 - 00:31 #9

det virker umiddelbart fint nu.
men jeg kunne godt tænke mig at navnet på den nye mappe ikke var givet på forhånd men blev taget fra det der bliver indtastet i felt1. altså hvis man skriver sit navn kommer mappen til at hedde det samme, så alle får hver deres egen mappe

Synes godt om

w13 Novice

25. oktober 2007 - 01:35 #10

Server.CreateObject("Scripting.FileSystemObject").CreateFolder(Server.MapPath("/upload")&"/"&felt1)
Set Upload = Server.CreateObject("Persits.Upload")
Upload.Savevirtual ("/upload/navnpånymappe")

Synes godt om

kiwankow Nybegynder

25. oktober 2007 - 08:17 #11

hvad skal der stå i den nederste linie?

Synes godt om

soerenlyn Nybegynder

25. oktober 2007 - 11:27 #12

If Not Folder.Exist(Server.MapPath("/upload")&"/"&Request.Querystring("felt1")) Then Server.CreateObject("Scripting.FileSystemObject").CreateFolder(Server.MapPath("/upload")&"/"&Request.Querystring("felt1"))
Set Upload = Server.CreateObject("Persits.Upload")
Upload.Savevirtual ("/upload/"&Request.Querystring("felt1"))

Synes godt om

soerenlyn Nybegynder

25. oktober 2007 - 11:27 #13

Så tjekker den også lige om den findes i forvejen :) Og hvis du har lagt din querystring i en string, så erstatter du bare Request.Querystring("felt") med navnet på din string, fx sFelt1...

Synes godt om

soerenlyn Nybegynder

25. oktober 2007 - 11:29 #14

Der skal faktisk

Ind foran Folder.Exist, og så et 's' på så det bliver

Server.CreateObject("Scripting.FileSystemObject").FolderExists(Server.MapP...

Synes godt om

kiwankow Nybegynder

27. oktober 2007 - 18:47 #15

nu er jeg helt rundt på gulvet..

kan du skrive det nøjagtig som det skal være..??

Synes godt om

soerenlyn Nybegynder

27. oktober 2007 - 19:43 #16

If Not Server.CreateObject("Scripting.FileSystemObject").FolderExists(Server.MapPath("/upload")&"/"&Request.Querystring("felt1")) Then Server.CreateObject("Scripting.FileSystemObject").CreateFolder(Server.MapPath("/upload")&"/"&Request.Querystring("felt1"))
Set Upload = Server.CreateObject("Persits.Upload")
Upload.Savevirtual ("/upload/"&Request.Querystring("felt1"))

Sådan burde det vidst være .)

Synes godt om

kiwankow Nybegynder

28. oktober 2007 - 00:24 #17

og helt nøjatig hvor skal det placers og skal der fjerne noget fra det oprindelige script

Synes godt om

soerenlyn Nybegynder

28. oktober 2007 - 08:04 #18

Server.ScriptTimeout=2000
if Request.querystring("mode") = "upload" then
If Not Server.CreateObject("Scripting.FileSystemObject").FolderExists(Server.MapPath("/upload")&"/"&Request.Querystring("felt1")) Then Server.CreateObject("Scripting.FileSystemObject").CreateFolder(Server.MapPath("/upload")&"/"&Request.Querystring("felt1"))
Set Upload = Server.CreateObject("Persits.Upload")
Upload.Savevirtual ("/upload/"&Request.Querystring("felt1")))
felt1 = Upload.form("felt1")

Synes godt om

kiwankow Nybegynder

01. november 2007 - 07:28 #19

får nu bare at vide at siden ikke kan vises

www.kunstzonen.dk/itemupload2.asp

Synes godt om

soerenlyn Nybegynder

01. november 2007 - 10:26 #20

Så er der et lille trick :)

1) Du går ind på siden så det står "Siden kan ikke vises"
2) Du sletter filen på ftp-servern.
3) Du trykker opdater igen. Nu findes filen ikke.
4) Du lægger filen ud på ftp'en igen.
5) Du trykker opdater.

Så kommer der frem hvilken linje fejlen er i :)

Synes godt om

kiwankow Nybegynder

01. november 2007 - 21:50 #21

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/itemupload2.asp, line 6

Upload.Savevirtual ("/upload/"&Request.Querystring("felt1")))
------------------------------------------------------------^

Synes godt om

kiwankow Nybegynder

01. november 2007 - 21:53 #22

fjernede den sidste parantes og så kom siden frem.....

men får denne fejl når jeg forsøger at uploade:

Persits.Upload.1 error '800a003d'

Wrong Content-Type. Make sure you have included the attribute ENCTYPE="multipart/form-data" in your form.

/itemupload2.asp, line 6

Synes godt om

soerenlyn Nybegynder

01. november 2007 - 22:34 #23

Ja ok.

Hvordan ser din HTML-kode ud for den form, og det felt hvor man vælger hvilken fil der skal uploades?

Synes godt om

kiwankow Nybegynder

01. november 2007 - 23:35 #24

helekoden ses foroven

Synes godt om

soerenlyn Nybegynder

02. november 2007 - 02:25 #25

PRøv at erstat din

<form method="post" ENCTYPE="multipart/form-data" ACTION="<%=Request.ServerVariables("SCRIPT_NAME") %>?mode=upload">

med

<form name="fileupload" method="POST" enctype="multipart/form-data" action="<%=Request.ServerVariables("SCRIPT_NAME") %>?mode=upload"><input type="file" name="file1"></form>

Synes godt om

w13 Novice

24. november 2007 - 07:42 #26

Fundet ud af noget her?

Synes godt om

kiwankow Nybegynder

26. juni 2008 - 06:07 #27

lukket

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS