ASP Smart Upload
Hej eksperter..Jeg kører en side på min side, hvor det er muligt er ligge sine egne billeder op, men jeg vil gerne ha at de for et ID istedet for at de hedder det som de gør når man uploader dem..
Jeg bruger ASP Smart upload - Sample 4.
<HTML>
<BODY BGCOLOR="white">
<H1> </H1>
<%
' Variables
' *********
Dim mySmartUpload
Dim file
Dim oConn
Dim oRs
Dim intCount
intCount=0
Session.LCID = 1030
' Object creation
' ***************
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
' Upload
' ******
mySmartUpload.Upload
' ******
intCount = mySmartUpload.Save("D:\WWW\Sykonia\logind\portal\billeder\galleri-5\")
' Connect to the DB
' 22:33 22-10-2004
Set oConn = Server.CreateObject("ADODB.Connection")
curDir = Server.MapPath("../databas/databas.mdb")
oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};"
' Open a recordset
' ****************
' Select each file
' ****************
For each file In mySmartUpload.Files
' Only if the file exist
' **********************
If not file.IsMissing Then
' Add the current file in a DB field
' **********************************
file.SaveAs "c:\123\" & file.FileName
filnavn = "http://portal.sykonia.dk/billeder/galleri-5/" & file.FileName
SQL = "UPDATE anv SET galleri5 = '" & filnavn & "' WHERE ID = '" & Session("id") & "'"
oConn.Execute (SQL)
intCount = intCount + 1
End If
Next
' Display the number of files uploaded
' ************************************
response.Redirect "redigergalleri.asp"
' Destruction
' ***********
oConn.Close
Set oConn = Nothing
%>
</BODY>
</HTML>
