Avatar billede m_fisker Nybegynder
14. december 2004 - 10:07 Der er 4 kommentarer og
1 løsning

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

_---------------------
Avatar billede keysersoze Ekspert
14. december 2004 - 10:08 #1
ikke helt med?
Avatar billede m_fisker Nybegynder
14. december 2004 - 10:10 #2
Det skal brugers til et "Smiles System" Hvor man upload en Smile og dens forkortelse ":D"
Avatar billede m_fisker Nybegynder
14. december 2004 - 10:18 #3
Lukke efter jeg var for hurtigt til at send sp. Hvor efter jeg fandt ud af det mig der havde lavet en fejl med database..

--Lukket
Avatar billede keysersoze Ekspert
14. december 2004 - 10:32 #4
piece of cake - men det ser ud som om du lige har andet for
Avatar billede m_fisker Nybegynder
14. december 2004 - 10:33 #5
Hvad mener du keysersoze???
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester