Notifikationer

Markér alle som læst Log ud

sesam Nybegynder

01. juli 2001 - 19:48 Der er 19 kommentarer og
2 løsninger

Upload vs. Database

Jeg har en database hvor jeg trækker nogler informationer ud det virker fint koden ser sådan her ud:

<%

Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"varer.mdb\")
Conn.Open DSN
strSQL = \"Select * From varer where varenr = \" & Request.Querystring(\"id\")
Set rs = Conn.Execute(strSQL)
Response.Write\"<table border=0 cellspacing=5 width=520><tr><td valign=top><font size=2 face=Verdana, Arial, Helvetica, sans-serif><b>\" & rs(\"Titel\") &\"</b>\"
Response.Write \"<font size=1 face=Verdana, Arial, Helvetica, sans-serif><li>\" & rs(\"Beskrivelse\") & \"\"
Response.Write \"<font size=1 face=Verdana, Arial, Helvetica, sans-serif><li>Varenr: <b><br>     \" & rs(\"varenummer1\") & \"<br>     \" & rs(\"varenummer2\") & \"\"
Response.Write \"<td align=right>\"
Response.Write \"<img src=\" & rs(\"Images\")& \"> \"
Response.Write \"</td>\"
Response.Write \"</td></tr></table>\"
Conn.Close
Set Conn = Nothing
%>

Her der henter jeg stien til billedet som så derfor bliver vist sammen med den rigtige vare.

Jeg har også fundet udaf hvordan jeg uploader billeder fra browseren med AspUpload billederne ligger i den rigtige mappe men problemet er bare hvordan gemmer jeg stien til billedet i databasen?

Synes godt om

plexx Nybegynder

01. juli 2001 - 20:04 #1

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\") & \";UID=admin;PWD=;\"

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"Select * From Tabel\"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

rs.AddNew
rs(\"sti\") = request.form(\"sti\")
rs.Update

rs.Close
Set rs = Nothing

Conn.Close
set Conn = Nothing

Synes godt om

plexx Nybegynder

01. juli 2001 - 20:07 #2

okey lige et par rettelser:

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"varer.mdb\") & \";UID=admin;PWD=;\"

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"Select * From varer\"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

rs.AddNew
rs(\"images\") = request.form(\"sti\")
rs.Update

rs.Close
Set rs = Nothing

Conn.Close
set Conn = Nothing

Synes godt om

plexx Nybegynder

01. juli 2001 - 20:17 #3

vireker det???

Synes godt om

sesam Nybegynder

01. juli 2001 - 20:20 #4

kAN DU IKKE LIGE FORKLARE

Synes godt om

plexx Nybegynder

01. juli 2001 - 20:23 #5

2sec laver lige et bedre script

Synes godt om

plexx Nybegynder

01. juli 2001 - 20:30 #6

Prøv denne kode, filen skal gemmes som billeder.asp

<%
if request.form(\"B1\") = \"Tilføj\" Then
Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"varer.mdb\") & \";UID=admin;PWD=;\"

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"Select * From varer\"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

rs.AddNew
rs(\"images\") = request.form(\"T1\")
rs.Update

rs.Close
Set rs = Nothing

Conn.Close
set Conn = Nothing
End if
%>
<html>

<head>
<title>Ny side 1</title>
</head>

<body>
<center>
<form method=\"POST\" action=\"billeder.asp\">
<table border=\"1\" cellspacing=\"0\" width=\"400\" bordercolor=\"#000000\" bordercolorlight=\"#000000\" bordercolordark=\"#000000\">
<tr>
<td bgcolor=\"#0099CC\" colspan=\"2\">Tilføj billede til database:</td>
</tr>
<tr>
<td bgcolor=\"#C0C0C0\" width=\"50%\"><input type=\"text\" name=\"T1\" size=\"20\"></td>
<td bgcolor=\"#C0C0C0\" width=\"50%\"><input type=\"submit\" value=\"Tilføj\" name=\"B1\"></td>
</tr>
</table>

</form>

</body>

</html>

Synes godt om

sesam Nybegynder

01. juli 2001 - 20:31 #7

Er det så stien til billedet der bliver gemt eler er det billedet?

Synes godt om

sesam Nybegynder

01. juli 2001 - 20:34 #8

så skal man jo skrive stien det er ikke så smart...

Synes godt om

plexx Nybegynder

01. juli 2001 - 20:34 #9

det er stien så skal du bruge AspUpload til at uploade billedet

Synes godt om

sesam Nybegynder

01. juli 2001 - 20:35 #10

så skal jeg selv skrive stien ik?

Synes godt om

plexx Nybegynder

01. juli 2001 - 20:36 #11

Så skal jeg bruge dit script du bruger til at uploade billederne med.
så indbygger jeg det deri

Synes godt om

plexx Nybegynder

01. juli 2001 - 20:37 #12

Synes godt om

sesam Nybegynder

01. juli 2001 - 20:38 #13

Kommer her:

<%
Set Upload = Server.CreateObject(\"Persits.Upload.1\")
Count = Upload.Save(\"c:\\inetpub\\wwwroot\\ep\\images\")
%>

<% = Count %> files uploaded.

<%
If Upload.Expires <> CDate(\"9/9/9999\") Then Response.Write \"<HR>AspUpload expires on \" & Upload.Expires
%>

Synes godt om

sesam Nybegynder

01. juli 2001 - 20:39 #14

(\"c:\\inetpub\\wwwroot\\ep\\images\")
skal selvfølgelig laves om...

Synes godt om

plexx Nybegynder

01. juli 2001 - 20:41 #15

Prøv at komme med det script hvor du vælger din billed fil

Synes godt om

sesam Nybegynder

01. juli 2001 - 20:43 #16

--side1--
<HTML>
<BODY BGCOLOR=\"#FFFFFF\">
<h2>Sample 1: Simple Uploading</h2>

<FORM METHOD=\"POST\" ENCTYPE=\"multipart/form-data\" ACTION=\"UploadScript1.asp\">
<INPUT TYPE=FILE SIZE=60 NAME=\"FILE1\"><BR>
<INPUT TYPE=FILE SIZE=60 NAME=\"FILE2\"><BR>
<INPUT TYPE=FILE SIZE=60 NAME=\"FILE3\"><BR>
<INPUT TYPE=SUBMIT VALUE=\"Upload!\">
</FORM>

</BODY>
</HTML>
--Side2--
<HTML>
<BODY BGCOLOR=\"#FFFFFF\">

<%
Set Upload = Server.CreateObject(\"Persits.Upload.1\")
Count = Upload.Save(\"c:\\inetpub\\wwwroot\\ep\\images\")
%>

<% = Count %> files uploaded.

<%
If Upload.Expires <> CDate(\"9/9/9999\") Then Response.Write \"<HR>AspUpload expires on \" & Upload.Expires
%>
</BODY>
</HTML>

Synes godt om

sesam Nybegynder

01. juli 2001 - 20:45 #17

kan du bruge det

Synes godt om

plexx Nybegynder

01. juli 2001 - 20:50 #18

Så er du desværre nød til først at uploade billedet og så bagefter bruge mit script.
GEN DENNE SIDE SOM billeder.asp

<%
if request.form(\"B1\") = \"Tilføj\" Then
Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"varer.mdb\") & \";UID=admin;PWD=;\"

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"Select * From varer\"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

rs.AddNew
rs(\"images\") = \"c:\\inetpub\\wwwroot\\ep\\images\\\" & request.form(\"T1\")
rs.Update

rs.Close
Set rs = Nothing

Conn.Close
set Conn = Nothing
End if
%>
<html>

<head>
<title>Ny side 1</title>
</head>

<body>
<center>
<form method=\"POST\" action=\"billeder.asp\">
<table border=\"1\" cellspacing=\"0\" width=\"400\" bordercolor=\"#000000\" bordercolorlight=\"#000000\" bordercolordark=\"#000000\">
<tr>
<td bgcolor=\"#0099CC\" colspan=\"2\">Tilføj billede til database:</td>
</tr>
<tr>
<td bgcolor=\"#C0C0C0\" width=\"50%\"><input type=\"text\" name=\"T1\" size=\"20\"></td>
<td bgcolor=\"#C0C0C0\" width=\"50%\"><input type=\"submit\" value=\"Tilføj\" name=\"B1\"></td>
</tr>
</table>

</form>

</body>

</html>

NU SKAL DU KUN SKRIVE NAVNET PÅ FILEN´.

Synes godt om

keysersoze Ekspert

01. juli 2001 - 20:56 #19

jeg ved ikke om det er lykkedes - men jeg har et script med aspupload du kan låne - lægger billedet i bestem mappe, samt navn i db...

Synes godt om

sesam Nybegynder

01. juli 2001 - 21:22 #20

lad mig se det keysersoze...

Synes godt om

keysersoze Ekspert

01. juli 2001 - 21:40 #21

<%

set conn = Server.CreateObject(\"ADODB.Connection\")
Session(\"MyConn\") = \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"test.mdb\")

Set Upload = Server.CreateObject(\"Persits.Upload.1\")
Upload.OverwriteFiles = false
Upload.SetMaxSize 300000, True
Upload.SaveVirtual (\"/\")

For Each File in Upload.Files

File.ToDatabase Session(\"MyConn\"), \"insert into test(test) \" &_
\"values(\'\" & File.ExtractFileName & \"\')\"
if Err <> 0 Then
Response.Write headerfont & \"<br>Der er sket en fejl! : \" & Err.Description

Else

Response.Write headerfont & \"<br>Tilføjet...</strong></font>\"

End If
Next
%>

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
ASP classic kopiere database fil på server Af bsn i ASP	7	31/10/202610:20	01/11/202620:28
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
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

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