AspUpload3.0.0.3 til Asp smartupload
Har en kode som er beregnet til AspUpload3.0.0.3 men vil skifte server til en med aspSmartupload hjælp :DUpload.asp:
<html><body>
<%
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4
billedplads = "/images/"
databasenavn = "log/test.mdb"
dbtabel = "billeder"
' hent billeder, og gem den i mappen images
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.SaveVirtual(billedplads)
' løb filer igennem (omdøb og gem i databasen)
For Each File in Upload.Files
If File.ImageType <> "GIF" and File.ImageType <> "JPG" and File.ImageType <> "JPEG" Then
Response.Write "Kun GIF og JPG file accepteres."
Exit For
Else
origfilnavn = File.Path
placering = ExtractFolderName(File.Path)
if right(placering,1) <> "\" then placering = placering & "\"
nyfilnavn = "" & session("id") & "_"
nyfilnavn = nyfilnavn & datepart("yyyymmdd", date()) & "_"
nyfilnavn = lcase(nyfilnavn & datepart("hhnn",now()) & "." & File.ImageType)
' omdøber filen fra origfilnavn til nyfilnavn
file.Move placering & nyfilnavn
' opretter item i databasen
Set con = Server.CreateObject("ADODB.Connection")
Set rst = Server.CreateObject("ADODB.Recordset")
con.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(databasenavn)
con.Open
strSQL = "SELECT * FROM " & dbtabel
rst.Open strSQL, con, adOpenKeyset, adLockOptimistic
rst.Addnew
rst("init") = session("id")
rst("billede") = billedplads & nyfilnavn
rst("dato") = date()
rst.Update
rst.Close
con.Close
set rst = nothing
set con = nothing
Response.Write "Billedet " & ExtractFileName(File.Path) & " er hentet, og gemt som " & nyfilnavn & "."
Response.Write "<br>Oprettet i databasen under id: " & session("id") & ", navn: " & billedplads & nyfilnavn
End If
Next
%>
</body></html>
Billed.asp
<html><head>
<script>
function popbillede(linkadr){
if (document.all)
billedwindow=window.open(linkadr,"","width=400,height=400")
else
billedwindow=window.open(linkadr,"","width=400,height=400,scrollbars")
}
</script>
</head><body>
<%
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4
billedplads = "/images/"
databasenavn = "log/test.mdb"
dbbilleder = "billeder"
dbbrugere = "users"
' åbn databasen
Set con = Server.CreateObject("ADODB.Connection")
con.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(databasenavn)
con.Open
' har billed.asp kaldt sig selv, og skal der slettes?
If request.QueryString("slet") <> "" Then
sletbillede=request.QueryString("slet")
' fjern billedet fra databasen
Set rst = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM " & dbbilleder & " WHERE billede = '" & sletbillede & "'"
rst.Open strSQL, con, adOpenKeyset, adLockOptimistic
if not rst.EOF then
rst.Delete
response.write "<font color='#FF0000'>Billedet: " & sletbillede & " er slettet.<hr></font>"
end if
rst.Close
set rst = nothing
' fjern billedet fra website
Set Upload = Server.CreateObject("Persits.Upload.1")
DeleteFile Server.MapPath(sletbillede)
set Upload = Nothing
end if
' find ud af, om aktuel bruger er administrator
Set rst = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT id, admin FROM " & dbbrugere & " WHERE ID = " & session("id")
rst.Open strSQL, con, adOpenForwardOnly, adLockReadOnly
session("admin")=False
if not rst.EOF then
if rs("admin") then session("admin")=True
end if
rst.Close
set rst = nothing
' admin ser alle billeder, andre ser kun deres egne
if session("admin") then
strSQL = "SELECT init, billede, dato FROM " & dbbilleder & " ORDER BY init, dato DESC"
else
strSQL = "SELECT init, billede, dato FROM " & dbbilleder & " WHERE init = " & session("id") & " ORDER BY dato DESC"
end if
Set rst = Server.CreateObject("ADODB.Recordset")
rst.Open strSQL, con, adOpenForwardOnly, adLockReadOnly
if rst.EOF then
response.write "Der er ikke fundet nogle billeder..."
rst.Close
set rst = nothing
else
response.write "<table cellspacing='0' cellpadding='3' border='1'>"
response.write "<tr><td><b>Bruger</b></td><td><b>Billednavn</b></td><td><b>vis</b></td><td><b>slet</b></td></tr>"
arr=rst.getrows()
rst.Close
set rst = nothing
antal=ubound(arr,2)
for i=0 to antal
response.write "<tr><td>" & arr(0,i) & "</td>"
response.write "<td>" & arr(1,i) & "</td>"
response.write "<td><a href='java script:popbillede(" & arr(1,i) & ");'>vis</a></td>"
response.write "<td><a href='billed.asp?slet=" & arr(1,i) & "'>slet</a></td></tr>"
next
response.write "</table>"
end if
con.Close
set con = nothing
%>
</body></html>
