aspSmartUpload tegn til DB
Hey..jeg har fået scripte til at upload billede og tekst.. men i stedet for tekst, skal den upload tegn og Bugstaver F. eks :D ;D I:
Kan det lade sig gøre og hvordan.
-----------------------------------------------------
<FORM METHOD="POST" ACTION="Smiles_upload.asp" ENCTYPE="multipart/form-data">
<input type="date" name="SmileText" />
<INPUT TYPE="FILE" NAME="FILE1" SIZE="50"><BR>
<INPUT TYPE="SUBMIT" VALUE="Upload">
</FORM>
</center>
-------------________________---------------------
' Variables
' *********
Dim mySmartUpload
Dim file
Dim intCount
intCount=0
' Object creation
' ***************
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
' Upload
' ******
mySmartUpload.Upload
' Select each file
' ****************
For each file In mySmartUpload.Files
' Only if the file exist
' **********************
If not file.IsMissing Then
' Save the files with his original names in a virtual path of the web server
' ****************************************************************************
'file.SaveAs("/log" & file.FileName)
' sample with a physical path
file.SaveAs("C:\Inetpub\test\images\smiles\" & file.FileName)
filnavnet = "http://localhost/test/images/smiles/" & file.FileName
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../_private/fdf.mdb")
Conn.Open DSN
'Tilføjer brugeren til databasen
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "select * from Smiles"
rs.Open strsql, conn, 1, 3
'Tilføjer brugeren til databasen og sender ham/hende til login siden
rs.AddNew
rs("SmilePic") = filnavnet
rs("SmileText") = mySmartUpload.Form("SmileText")
rs.update
intCount = intCount + 1
End If
' Display the number of files which could be uploaded
' ***************************************************
Response.Write("<BR>" & mySmartUpload.Files.Count & " file(r) kunne blive uploaded.<BR>")
' Display the number of files uploaded
' ************************************
Response.Write(intCount & " file(r) uploaded.<BR>")
Next
_---------------------
