Avatar billede bkhansen Novice
05. december 2003 - 12:10 Der er 8 kommentarer og
1 løsning

Upload af filer til database via asp-smart-upload

Hejsa.
Jeg ved ikke hvad problemet er ?

databasen ser sådan her ud:
tabel:
Filer
Inde i tabellen filer:
ID - autonummer
filnavn
kommentar
fil
--------------------
Her er fil nr. 1:

<form action="2.asp" method="post" name="upload" target="_parent" id="upload">
  <table width="90%" border="0">
    <tr>
      <td width="81">Navn p&aring; fil </td>
      <td width="254"><input name="filnavn" type="text" id="filnavn"></td>
    </tr>
    <tr>
      <td>Fil</td>
      <td><INPUT NAME="fil" TYPE="FILE" id="fil" SIZE="30"></td>
    </tr>
    <tr>
      <td>Kommentar</td>
      <td><textarea name="kommentar" cols="30" rows="5" id="textarea2"></textarea></td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td><input type="submit" name="Submit" value="Tilf&oslash;j"></td>
    </tr>
  </table>
</form>

----

Her er fil nr. 2 som uploder til databasen:

<%
Dim Conn, MyConnection, MySQL, filerRS
Set Conn = Server.CreateObject("ADODB.connection")
Set filerRS = Server.CreateObject("ADODB.Recordset")

MyConnection = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("yp.mdb")
Conn.Open MyConnection
%>
           
<%
  mappe = "/yp/filer/"
'  Response.Write (Server.MapPath(mappe))
'  Variables
'  *********
On Error Resume Next

  Dim mySmartUpload
  Dim intCount
  Dim mappe   
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
'  Only allow txt or htm files
'  ***************************
  mySmartUpload.AllowedFilesList = "mp3,avi,wav"

'  DeniedFilesList can also be used :
  ' Allow all files except exe, bat and asp
  ' ***************************************
  mySmartUpload.DeniedFilesList = "exe,bat,asp,zip"

'  Deny physical path
'  *******************
'  mySmartUpload.DenyPhysicalPath = True

'  Only allow files smaller than 50000 bytes
'  *****************************************
'  mySmartUpload.MaxFileSize = 50000

'  Deny upload if the total fila size is greater than 200000 bytes
'  ***************************************************************
'  mySmartUpload.TotalMaxFileSize = 200000

'  Upload
'  ******
  mySmartUpload.Upload

'  Save the files with their original names in a virtual path of the web server
'  ****************************************************************************
  intCount = mySmartUpload.Save(Server.MapPath(mappe))
  ' sample with a physical path
  ' intCount = mySmartUpload.Save("c:\temp\")

'  Display the number of files uploaded
'  ************************************
'  Trap errors
'  ***********
  If Err Then
      Response.Write("<br><br><b>Fejl : </b>" & Err.description)
  Else
  '  Display the number of files uploaded
  '  ************************************
  '  Response.Write(intCount & " file(s) uploaded.")
  End If

%>
<%
filerRS.open "Filer", Conn, 3,3,2

filerRS.addnew

filerRS("filnavn") = mySmartUpload.Form("filnavn")
filerRS("kommentar") = mySmartUpload.Form("kommentar")
filerRS("fil") = "yp/filer/" & mySmartUpload.Files("fil").FileName & ""
filerRS.update
%>
<div align="center">
  <%
response.Write("Filen er nu blevet opdateret!!!")
response.Write(("<BR>"))
%>

Håber i kan hjælpe...
Avatar billede bkhansen Novice
05. december 2003 - 12:13 #1
Her er et link til det:
http://80.161.32.121/yp/1.asp
Avatar billede mm12010 Nybegynder
05. december 2003 - 12:15 #2
gemmer den filen? får du nogen fejl? og i så fald hvilken i linie?

husk at din form skal have enctype:

<form action="2.asp" method="post" name="upload" target="_parent" id="upload"  enctype="multipart/form-data">
Avatar billede mm12010 Nybegynder
05. december 2003 - 12:17 #3
prøv at tilføje dette i bunden af den fil der uploader:


  If Err Then
      Response.Write("<b>Wrong selection : </b>" & Err.description)
  Else
      Response.Write(intCount & " file(s) uploaded.")
  End If
Avatar billede bkhansen Novice
05. december 2003 - 12:18 #4
Nu har jeg fået tilføjet den sætning - det var den jeg havde glemt ...
Men nu får jeg en side hvor der står SIDEN KAN IKKE VISES.
Og 2.asp findes altså ...
I databasen laver den linieskrift, men den gemmer ikke
Avatar billede misbruger Nybegynder
05. december 2003 - 12:21 #5
"Siden kan ikke vises" er en browser indstilling, fjern indstillingen "Show freindly HTML error message" (el. lign), så for du den aktuelle fejlbeskrivelse!
Avatar billede bkhansen Novice
05. december 2003 - 12:24 #6
Den kan jeg godt nok ikke lige finde
Avatar billede bkhansen Novice
05. december 2003 - 12:27 #7
Prøv at gå ind på linket .. og tilføj en mp3 ... så kommer SIDEN KaN IKKE VISES .. hvis du trykker F5 får man fejlmeddelsen
Avatar billede locturian Nybegynder
05. december 2003 - 13:20 #8
Ville gerne hjælpe, men hjælper af princip ikke med downloadede scripts. www.html.dk - De har nogle fine tutorials til hvordan du kommer igang med asp...
Avatar billede bkhansen Novice
05. december 2003 - 23:27 #9
Har fundet ud af det. Men ved ikke hvad der var galt. Tror det var noget med databasen?
Men tak alligevel.
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
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

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