CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

oyderke Nybegynder

23. september 2004 - 22:15 Der er 10 kommentarer og
1 løsning

upload og sql

Hej

Jeg har en side hvor jeg skal bruge aspuload til at uploade en fil og samtidig submitte noget data fra nogle textboxes.

Hvorfor lader det sig ikke gøre?

Mvh
oyderke

Synes godt om

oyderke Nybegynder

23. september 2004 - 22:17 #1

dataen skal forresten gemmes i en db med sql

Synes godt om

eagleeye Praktikant

23. september 2004 - 22:17 #2

Du kan havde alle de form felter du vil samme med fil upload når du bruger ASPupload. Du skal bare bruge nanvet på upload objectet når du henter form data:
upload.form("xxx") og ikke rewquest.form("xxx")

Synes godt om

eagleeye Praktikant

23. september 2004 - 22:27 #3

Eks, 1 fil og 2 input felter:

<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then

Set Upload = Server.CreateObject("Persits.Upload.1")

'ret denne hvor filen skal gemmes:
str = "/images/"
Count = Upload.Save (server.mappath(sti))

if Count>0 then
set file1=Upload.Files("file1")
end if

navn = Upload.form("navn")
email = Upload.form("email")

Set conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("db.mdb") & "; UID=Administrator; PWD="
conn.open DSN

sql = "insert into tabelnavn (billede, navn, email) values ('" & sti & file1.name & "', "
sql=sql & "'" & navn & "', "
sql=sql & "'" & email & "', "
sql=sql & ")"
Conn.Execute(sql)
Conn.Close
set conn=nothing
set upload=nothing

Response.write "Filen uploaded og data gemt i databasen"
end if
%>
<html>
<head></head>
<body>
<form action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method="POST" ENCTYPE="multipart/form-data">
<br>Navn: <input type="text" name="navn">
<br>Email: <input type="text" name="email">
<br>Fil: <input type="file" name="file1">
<br><input type="submit" name="upload" value="upload">
</form>
</body>
</html>

Synes godt om

oyderke Nybegynder

23. september 2004 - 22:28 #4

Hvad så hvis jeg har noget validering som gør at indtaste-siden bliver reloaded hvis det forkerte er indtastet?

Synes godt om

eagleeye Praktikant

23. september 2004 - 22:34 #5

Man bliver nød til at kalde .Save før det virker så kan man skrive det lidt om:

<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then

Set Upload = Server.CreateObject("Persits.Upload.1")
Count = Upload.Save

'henter form input
navn = Upload.form("navn")
email = Upload.form("email")

'valider form input her
if navn = "admin" then response.redirect "fejlside.asp"

'Gem filen ret denne hvor filen skal gemmes:
sti = "/images/"
filnavn=""
for each file in upload.files
file.SaveAs Server.Mappath(sti & file.name)
filnavn = sti & file.name
next

'Gem i databasen
Set conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("db.mdb") & "; UID=Administrator; PWD="
conn.open DSN

sql = "insert into tabelnavn (billede, navn, email) values ('" & filnavn & "', "
sql=sql & "'" & navn & "', "
sql=sql & "'" & email & "', "
sql=sql & ")"
Conn.Execute(sql)
Conn.Close
set conn=nothing
set upload=nothing

Response.write "Filen uploaded og data gemt i databasen"
end if
%>

Synes godt om

oyderke Nybegynder

23. september 2004 - 22:43 #6

Jeg bruger dette. Den gemmer filen men gemmer ikke i databasen. Min textbox hedder TxtNavn.
------------------
Dim objUpload
Set objUpload = Server.CreateObject("Persits.Upload")
On Error Resume Next
Dim strUploadPath
strUploadPath = "Dokumenter/"
objUpload.Save(Server.MapPath(strUploadPath))

Set DBConn = Server.CreateObject("ADODB.Connection")
DBConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=D:\Inetpub\Dh\Data.mdb"
SQL = "INSERT INTO Test " &_
"VALUES ('" & objUpload.Form("TxtNavn") & "')"
DBConn.Execute(SQL)
DBConn.close
Set DBConn = Nothing

Set objUpload = Nothing

Synes godt om

eagleeye Praktikant

23. september 2004 - 22:45 #7

Prøv at udkommenter linjen: On Error Resume Next
'On Error Resume Next

Så skulle du få en fejl hvis der kommer en fejl på siden.

Men prøv at angive det kolonnenavn teskten skal lægges i:
SQL = "INSERT INTO Test " &_

Eks:
SQL = "INSERT INTO Test (navn) " &_

Synes godt om

oyderke Nybegynder

23. september 2004 - 23:03 #8

Kan det være at forskellen er om jeg putter: enctype="multipart/form-data" i <form>?
for den kan ikke uploade hvis den ikke er der, og den kan ikke gemme i db hvis den er der..

Synes godt om

eagleeye Praktikant

23. september 2004 - 23:08 #9

Ja det kan gøre en forskel.
enctype="multipart/form-data skal være i <form> tagen for det virker.

Synes godt om

oyderke Nybegynder

23. september 2004 - 23:21 #10

Skidegodt så virker det. Mange tak for hjælpen. Svar lige for point

Synes godt om

eagleeye Praktikant

23. september 2004 - 23:22 #11

Ok her et svar :)

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	0	07/11/202415:34	-
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