Notifikationer

Markér alle som læst Log ud

Jman Praktikant

31. juli 2003 - 00:08 Der er 5 kommentarer og
1 løsning

Vil gerne bed om en simpel kode med AspUpload

Heysan!
Jeg ville høre om der var en venlig sjæl, der kunne give mig en kodestump, som jeg sev kan bygge videre på - det jeg er ude efter er en komplet kode med AspUpload. Det skal være så det hele blive gemt i en accesDB.
Resten klarer jeg selv. Så derfor:

En kode hvor man kan indtaste navn og vælge en fil til upload.
Navn og filnavn gemmes i DB. Uploaden gemmes i en "Upload"-mappe (stien til filen skal selvfølgelig ligge i AccessDB'en).
På en asp-side skal man så kunne kalde navnet samt et link til det uploadede.
Bemærk. Der skal kunne uploades såvel screendumps, som tekstfiler :)

På forhånd tak!

Synes godt om

eagleeye Praktikant

31. juli 2003 - 00:24 #1

Din form kunne se sådan her ud:

<HTML>
<BODY>
<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="upload.asp">
Fil<input type="file" name="FILE1"><br>
Navn<input type="text" name="navn"><br>
<input type="submit" value="Upload">
</FORM>
</BODY>
</HTML>

Filen upload.asp, der skal lige rettes connection string til databasen og stien til hvor filen skal gemmen så det passer med dit.:

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
relativSti = "/upload/"

Upload.Save Server.MapPath(relativSti)

Set File = Upload.Files("FILE1")
If Not File Is Nothing Then
filStiNavn = relativSti & file.Name

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\inetpub\wwwroot\DB.mdb"

SQL = "INSERT INTO tabelnavn (navn, sti) VALUES("
SQL = SQL & "'" & replace(upload.Form("navn"),"'","''") & "', "
SQL = SQL & "'" & filStiNavn & "'"
SQL = SQL & ")"

Conn.Execute(SQL)
Conn.Close
Set Conn = Nothing

Response.Write "Filen er gemt."
Else
Response.Write "Ingen fil valgt."
End If
%>

Synes godt om

eagleeye Praktikant

31. juli 2003 - 00:25 #2

Du kan også finde meget mere omkring ASPupload her:
http://www.aspupload.com/manual.html

Synes godt om

Jman Praktikant

31. juli 2003 - 00:53 #3

ok - jeg vil kigge lidt på det i morgen :)
kan denne form også benyttes selv om brugeren ikke vælger at uploade noget, men indtaster resterende felter ?

Synes godt om

eagleeye Praktikant

31. juli 2003 - 01:06 #4

Nej så skal koden laves lidt om, lige nu skal man vælge et billede for at den gemmer i databasen, men så kommer koden bare til at se sådan her ud:
Så skal du bare huske at sætte den kolonne som stien gemmes i til at kunne tillade nullængde strenge.

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
relativSti = "/upload/"

Upload.Save Server.MapPath(relativSti)

Set File = Upload.Files("FILE1")
If Not File Is Nothing Then
filStiNavn = relativSti & file.Name
Else
filStiNavn = ""
End If

'Hendt form felter:
navn = replace(upload.Form("navn"),"'","''")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\inetpub\wwwroot\DB.mdb"

SQL = "INSERT INTO tabelnavn (navn, sti) VALUES("
SQL = SQL & "'" & navn & "', "
SQL = SQL & "'" & filStiNavn & "'"
SQL = SQL & ")"

Conn.Execute(SQL)
Conn.Close
Set Conn = Nothing

Response.write "Data gemt"
%>

Synes godt om

Jman Praktikant

14. august 2003 - 10:18 #5

tak for hjælpen

Synes godt om

Jman Praktikant

22. august 2003 - 13:14 #6

Jeg forsøger at benytte dit eksempel i en formular, hvor folk anmoder om hjælp
Hvorledes skal jeg henvise til filen på den side, der viser opgaven ?

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
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
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

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