Dette er hele koden jeg bruger i mit dokument:
\'lav din connection string
<%
if request(\"mode\") = \"upload\" then
\'***MySmartUpload***
Dim mySmartUpload
Dim intCount
Dim filetype
Set mySmartUpload = Server.CreateObject(\"aspSmartUpload.SmartUpload\")
\'**jeg tillader kun gif og jpg filer
mySmartUpload.AllowedFilesList = \"jpg,jpeg,gif\"
\'**ikke større end 15 kb
mySmartUpload.MaxFileSize = 15000
mySmartUpload.Upload
\'**i mit tilfælde bliver navnet sat ind i databasen ved at username som ligger i en session
Set rs=Conn.Execute(\"Select * from profiles where username=\'\" & Session(\"username\") & \"\'\")
\'**tjek om det er en gif eller jpg fil
if InStr(\"\" & mySmartUpload.files.item(1).filename & \"\", \".jpg\") OR InStr(\"\" & mySmartUpload.files.item(1).filename & \"\", \".jpeg\") then
filetype = \"jpg\"
elseif InStr(\"\" & mySmartUpload.files.item(1).filename & \"\", \".gif\") then
filetype = \"gif\"
end if
\'**gem billedet i mappen profileimages/detfilnavnduvilhave.gif/jpg - hvis billedet bare skal hedde hvad det originalt gjorde så lad være med at skriv et filnavn.
intCount = mySmartUpload.files.item(1).SaveAs(\"/profileimages/\" & rs(\"Id\") & \".\" & filetype & \"\")
If Err Then
response.write \"<b><font color=\'white\'>An error occured during the upload, please try again!</font></b>\"
else
\'**her opdaterer jeg databasen til at indeholde filnavnet så at jeg senere kan lave en url der hedder profileimages/feltnavn
Set rs = Server.CreateObject(\"ADODB.Recordset\")
strSQL = \"Select * From profiles\"
rs.Open strSQL, Conn, 1, 3
rs.Update
rs(\"picture\") = \"\" & rs(\"Id\") & \".\" & filetype & \"\"
rs.Update
%>
<script>
window.close()
</script>
<%
end if
end if
%>
<html>
<head>
<meta http-equiv=\"content-type\" content=\"text/html;charset=iso-8859-1\">
<meta name=\"generator\" content=\"iWebIt\">
<title>Profiled.org</title>
<link rel=\"stylesheet\" href=\"styles.css\" type=\"text/css\">
</head>
<body bgcolor=\"#505d78\">
<div align=\"center\">
<table border=\"1\" cellpadding=\"0\" cellspacing=\"0\" width=\"559\" bordercolor=\"#000000\" bgcolor=\"white\">
<tr>
<td>
<table cellpadding=\"4\" cellspacing=\"0\" width=\"553\" height=\"100%\">
<tr>
<td width=\"545\">
<div align=\"center\">
<img src=\"images/logo.jpg\" width=\"400\" height=\"50\" border=\"0\">
<hr size=\"1\" noshade color=\"#000000\">
Choose a file and click upload to upload a picture for your profile.
<hr size=\"1\" noshade color=\"#000000\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"400\">
<tr>
<td width=\"500\" valign=\"top\">
<div align=\"center\">
<table cellpadding=\"1\" cellspacing=\"0\" bgcolor=\"#000011\" width=\"98%\">
<tr>
<td width=\"551\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\" bordercolor=\"#FFFFFF\">
<tr bgcolor=\"#505d78\" height=\"14\">
<td height=\"14\" width=\"400\" valign=\"top\"><font color=\"#f5f5f5\"><b>Profile Picture Upload:</b></font></td>
</tr>
<tr height=\"1\">
<td height=\"1\" width=\"400\"></td>
</tr>
<tr bgcolor=\"#bcc4d4\">
<td width=\"400\">
<div align=\"left\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\">
<tr>
<td valign=\"top\">
<form method=\"post\" action=\"uploadpicture.asp?mode=upload\" enctype=\"multipart/form-data\">
<div align=\"center\">
<br>
This window will automatically close after a successful upload!<br>You can use jpg and gif images.<br>
Thumbnail size is 100x120 pixels.<br>
<br>
<input type=\"file\" name=\"file1\" size=\"38\"><br>
<br>
<input type=\"submit\" value=\"Upload\"></div>
</form>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
<hr size=\"1\" noshade color=\"#000000\">
<!--#include file=\"bottomtext.asp\"--></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</body>
</html>
håber du kan tyde koden...
Ny bruger
Nybegynder
Opret
Preview
