ASPSmartUpload uden at gemme fil
Jeg har følgende 2 sider, som jeg bruger til at upload smileys til min side med. Men problemet er at den ikke gemmer filnavn i databasen og gemmer heller ikke filen på serveren.Smiley_upload.asp
<html>
<head>
</head>
<body>
<p align="center">
<u><b>Smiley Upload</b></u> </p>
<form method="POST" enctype="multipart/form-data" action="smiley_upload2.asp">
<div align="center">
<table border="2" width="60%" id="table3" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" style="border-collapse: collapse; border-color: #4B88E3">
<tr>
<td>
<table border="0" width="100%" id="table4" style="border-collapse: collapse" bordercolor="#C0C0C0" cellpadding="2">
<tr>
<td bgcolor="#C0C0C0" width="36%">Billede :</td>
<td bgcolor="#C0C0C0" width="146"><input type="file" name="filnavn" size="20"></td>
</tr>
<tr>
<td width="36%" bgcolor="#4B88E3">SmileyTag :</td>
<td width="146" bgcolor="#4B88E3">
<input type="text" name="smileytag" size="20"></td>
</tr>
<tr>
<td width="36%" bgcolor="#C0C0C0"> </td>
<td width="146" bgcolor="#C0C0C0"><input type="submit" value="Upload" name="B1"></td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</form>
</body>
</html>
Smiley_upload2.asp
<%
' Variables
' *********
intCount=0
' Object creation
' ***************
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
' Upload
' ******
mySmartUpload.Upload
mySmartUpload.AllowedFilesList = "jpg,JPG,bmp,BMP,JPEG,jpeg,gif,GIF,PNG,png,Tiff,TIFF,tiff"
mySmartUpload.files.item(1).SaveAs("d:\web\localuser\pivskid.dk\public_html\test\gfx\" & mySmartUpload.Files.Item(1).FileName)
' Connect to the DB
' *****************
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\web\localuser\pivskid.dk\database\database.mdb"
' Open a recordset
' ****************
strSQL = "SELECT * FROM smileys"
Set oRs = Server.CreateObject("ADODB.recordset")
Set oRs.ActiveConnection = oConn
oRs.Source = strSQL
oRs.LockType = 3
oRs.Open
' 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
' **********************************
oRs.AddNew
oRs("filnavn") = mySmartUpload.files.item(1).FileName
ors("smileytag") = mySmartUpload.form("smileytag")
oRs.Update
intCount = intCount + 1
End If
Next
' Display the number of files uploaded
' ************************************
Response.redirect("smiley_upload.asp")
%>
<%
' Destruction
' ***********
oRs.Close
oConn.Close
Set oRs = Nothing
Set oConn = Nothing
%>
