24. oktober 2002 - 07:27Der er
25 kommentarer og 1 løsning
Link til billede i DB
Hej alle, jeg har rodet noget med dette, men uden held.
Jeg har denne form på min side (del af form)
jeg ønsker et indtastnings felt, hvor jeg kan søge på min HDD efter en billed fil og herefter lagre den sammen med resten i DB.
Filen skal gemmes i 'billede' i DB under update Her er noget af koden:
<% ' Databaseforbindelse - husk at angive sti til din database Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=c:\websider\service-info.dk\db\database.mdb" Conn.Open DSN sql="select * from kdatabase where nummer='"&request("retter")&"'" set record=conn.execute(sql)%> <form method="post" action="kundeupdate.asp">
<input type="text" name="kunderep" size=100 style="background-color: #FFFFFF"; style="font:bold 10px Ariel, sans-serif"; value="<%=record("kunderep")%>">Indtast Rep. information<br><br> <input type="radio" name="skadesanmeldelse" value="mangler"<%if record("skadesanmeldelse")="mangler" then response.write" checked"%>>Mangler skadeanmeldelse<br> <br> <input type="submit" style="background-color: #FFFFFF"; style="font:bold 10px Ariel, sans-serif";value="opdater rettelser"> </form> <input type="radio" name="retur" value="ja"<%if record("retur")="ja" then response.write" checked"%>>Varen skal retur til kunden ?<br> <input type="radio" name="retur" value="nej"<%if record("retur")="nej" then response.write" checked"%>>Varen skal retur til forhandleren ?<br><br>
Nej jeg ønsker at ligger et billede i min db, som jeg kan hente fra siden (du ved et knap der siger 'gennemse' osv.) men jeg kan ikke rigtig finde ud af hvordan.
Du skal bruge en form for upload komponent. F.eks. AspUpload 3.0 http://www.aspupload.com - den er gratis, men tjak din udbyder for at se hvilken upload komponent de bruger.
keyword indeholder nu kundens ID, jeg vil så gerne have at fil navnet bliver feks. kundeid.gif
Set Upload = Server.CreateObject("Persits.Upload") Count = Upload.Save("c:\websider\service-info.dk\db\scanninger\") set fso = CreateObject("Scripting.FileSystemObject")
For Each File in Upload.Files set f = fso.getfile(File.Path) extension = fso.Getextensionname(File.Path) f.name = request.form("password") & "." & extension
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.