> > Har du tid
> > og lyst så giv en kommentar, hvis ikke er jeg meget tilfreds med
> > scriptet.
>
> - det efter kommaet forstod jeg til gengæld ikke.
Med det efter kommaet mente jeg at du ikke skulle rykke flere dage ud af din
kalender for at skrive kommentarer, men at jeg var tilfreds med et script fra dig.
Men tak for kommentarerne det er rart at få hjælp:)
Jeg ved at jeg nok burde have fattet alt det her nu med den hjælp jeg har fået (og
fundet) men den er der alt så ikke endnu.
Se her hvad jeg indtil videre har haft mest held med:
"systemet" består i bund og grund af default.asp og uploads.asp (de er vist
herunder) Der er også en mappe der hedder "billed" og en access DB med navnet
"database" i den, en tabel med navnet "billed" med 3 rækker:
ID, filnavn, tekst.
Med dette "system" kan jeg uploade et billede (gemmes i mappen billed) og billedet
filnavn gemmes i DB'en
MEN teksten til billedet kommer ikke med. Jeg er klar over at det er noget med:
tekst = mySmartUpload.Form("tekst") jeg mangler at få ind men jeg har snart prøvet
alt, uden held.
Her er default.asp:
<html>
<head><title>1. Billedupload</title>
</head>
<body>
<%
session.LCID = 1030
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=;"
%>
<%session("id") = request("id")%>
<H1>Test af billedupload</H1>
<HR>
<form name="up" METHOD="POST" ACTION="uploads.asp" TYPE="multipart/form-data">
<table CELLSPACING="0" CELLPADDING="3" BORDER="1" WIDTH="474">
<!-- FILE -->
<tr>
<td><small><font face="Verdana">Vælg billede:</font></small></td>
<td><small><font face="Verdana"><input TYPE="file"
name="billed"></font></small></td>
</tr>
<!-- TEXTAREA -->
<tr>
<td width="150"><div align="left"><p><small><font face="Verdana">Skriv
tekst:</font></small></td>
<td width="324"><small><font face="Verdana"><textarea type="text"
name="tekst" rows="4" value=""></textarea><br></font></small></td>
</tr>
<!-- SUBMIT -->
<tr>
<td colspan="2" width="474"><div align="center"><center><p><small><font
face="Verdana">
<input TYPE="Submit" VALUE="Upload"> </font></small></td>
</tr>
</table>
</form>
</body>
</html>
<%
Conn.Close
Set Conn = Nothing
%>
Og her er uploads.asp:
<%
session.LCID = 1030
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=;"
' Variables
' *********
Dim mySmartUpload
Dim intCount
' Object creation
' ***************
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
' Upload
' ******
mySmartUpload.Upload
' Save the files with their original names in a virtual path of the web server
' ****************************************************************************
intCount = mySmartUpload.Save("billed")
' sample with a physical path
' intCount = mySmartUpload.Save("c:\temp\")
' Display the number of files uploaded
' ************************************
For each file In mySmartUpload.Files
Set gem = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM billed"
gem.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
gem.addnew
gem("filnavn") = "" & file.FileName & ""
gem.update
Response.Write(file.FileName & " (" & file.Size & "bytes)<BR>")
Next
Response.Write(intCount & " file(s) uploaded.")
Conn.Close
Set Conn = Nothing
%>
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials