Conn
---------------------------------------
<%
dim conn
function OpenConn( DBPath )
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
end function
OpenConn("xxxxxx/database/xxxx.mdb")
%>
Kode
-----------------------------------------------------------------
<!-- #include file="opret.inc.asp" -->
<%
'getting link id
'Linkid = request.querystring("Linkid")
'create upload object
Set Upload = Server.CreateObject("Persits.Upload.1")
'dont overwrite existing files
Upload.OverwriteFiles = False
'dont break on error
On Error Resume Next
'remember to reset to default error handling
'max filst¯rrelse
Upload.SetMaxSize 1000000
'if more than one file count is the number of files - in this case always 1 or 0
'save to OriginalImagePath - original images
Count = Upload.Save(absPathOriginalImage)
' next is some html
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
<title>Untitled Page</title>
<style type="text/css" media="screen">
body { }
.tdcontent { padding-top: 20px; padding-right: 15px; padding-left: 15px }
td { color: #333; font-size: 10px; font-family: Verdana, Arial, Helvetica, sans-serif }
A:link { color: #666; font-size: 10px; font-family: Verdana, Arial, Helvetica, sans-serif; text-decoration: none }
A:visited { color: #666; font-size: 10px; font-family: Verdana, Arial, Helvetica, sans-serif; text-decoration: none }
A:hover { color: #000; font-size: 10px; font-family: Verdana, Arial, Helvetica, sans-serif; text-decoration: none }
</style>
</head>
<body bgcolor="#ffffff" leftmargin="0" marginheight="0" marginwidth="0" topmargin="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="200">
<tr>
<td class="tdcontent" valign="top" background="../grafik/content_bg.gif">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td valign="top" width="150"><b>Arbejdsopgaver:<br>
</b><a href="opret.asp">Upload nyt billede...<br>
</a><br>
<br>
<a href="liste.asp"><-- Tilbage til listen</a><br>
<br>
</td>
<td bgcolor="#6f8095" width="5"></td>
<td align="center" valign="top" width="565">
<table width="500" border="0" cellspacing="0" cellpadding="2" bgcolor="#F3F5F7">
<tr>
<td colspan="7" bgcolor="#364058"><font color="white"><b>OPRET NYT SPROG - ACTION</b></font></td>
</tr>
<tr>
<td colspan="7" bgcolor="#5f6d84"><font color="white">Oprettet!</font></td>
</tr>
<tr>
<td width="40"></td>
<td colspan="5" align="center">
<%
'inform user if error
If Err <> 0 Then
%>
Der er sket en fejl under upload:
"<% = Err.Number & ": " & Err.Description %>"
<%
Else
if count > 0 then
Set File = Upload.Files(1)
'GIF is not supported by AspImage
'only JPG, BMP, PNG is supported by AspImage
'create a resized image if jpg or png
If File.ImageType = "JPG" or File.ImageType = "PNG" Then 'start 2 *************************************
' filename to load from - to be deleted later
strLoadImageFrom = absPathOriginalImage & "\" & lcase(file.filename)
'create filenames for upload sized images
strSaveImageTo = absPathUploadedImage & "\" & lcase(file.filename)
'create AspImage object
Set Image = Server.CreateObject("AspImage.Image")
' size the image for uploaded files folder
DoTheImage Image, intNewWidthUploaded, strLoadImageFrom, strSaveImageTo, file.ImageWidth, file.ImageHeight
'create filename for thumb sized images
strSaveImageTo = absPathSmallImage & "\" & lcase(file.filename)
' size the image for thumb files folder
DoTheImage Image, intNewWidthSmall, strLoadImageFrom, strSaveImageTo, file.ImageWidth, file.ImageHeight
'clean up image object
set Image = nothing
end if
end if
'next is some html
%>
Succes! Du har uploaded <% = Count %> fil(er).
<%
If Count > 0 Then
If File.ImageType = "GIF" or File.ImageType = "JPG" or File.ImageType = "PNG" Then
'next some html with embedded variables
%>
<IMG SRC="<% =relPathUploadedImage & File.FileName %>"><BR><% = lcase(File.FileName)%><BR>(<% = File.ImageWidth %> x <% = File.ImageHeight %> pixels)
<%
Else
%>
<% = lcase(File.OriginalPath) %>
<%
End If
%>
<%
Else
%>
Der blev ikke valg nogen fil.
<%
End If
%>
<br><br>
<B>Kort billedbeskrivelse:</B><% = Upload.Form("Alt_text") %>
<br><br>
<b>Billedetekst:</b><% = Upload.Form("billedtekst") %>
<br><br>
<b>Billede:</b><% = Upload.Form("billede") %>
<br><br>
<b>Filnavn:</b><% = lcase(File.FileName)%>
<%
'clean up the error object after upload
on error goto 0
'if file uploaded .............
If Count > 0 Then
' create db connection
<!-- #include file="../ekstra/constring.inc"-->
'create sql for saving
strSQL = "INSERT INTO TBL_billede (Billedenavn, Alt_text, Billedtekst, Billede) values('" & File.Filename & "', '" & Upload.Form("Alt_text") & "', '" & Upload.Form("Billedtekst") & "', '" & Upload.Form("billede") & "')"
Response.Write(strSQL)
'Conn.Execute(strSQL)
End if
'clean up db object
conn.Close
Set conn = nothing
Set strSQL = nothing
End if
'clean up upload object
set upload = nothing
'if file uploaded .............
If Count > 0 Then
' delete original image from db folder
' create object for filesystem
set objFS = Server.CreateObject("Scripting.FileSystemObject")
'delete file the original file
objFS.DeleteFile strLoadImageFrom, -1
if blnDebug then
response.write ("<br>" & strLoadImageFrom & " is deleted .......................<br>")
Else
end if
end if
'clean up
set objFS = nothing
'if file uploaded .............
If Count > 0 Then
%>
<br><IMG SRC="<% =relPathSmallImage & File.FileName %>">
<% End If %>
</td>
<td align="right" width="40"></td>
</tr>
<tr>
<td width="40"></td>
<td></td>
<td width="40"></td>
<td></td>
<td></td>
<td width="50"></td>
<td width="40"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr height="14">
<td bgcolor="white" height="14"><img src="../grafik/content_bund.gif" alt="" height="14" width="750" border="0"></td>
</tr>
</table>
</body>
</html>
