Avatar billede mo-bo Nybegynder
25. juni 2001 - 23:19 Der er 8 kommentarer og
2 løsninger

aspupload

Harj jeg vil meget gerne have dette til at virke, jeg bruger aspupload, og den ligger fint nok billede i mappen men så vil jeg gerne have den til at gemme stien i min access DB. Gøre jeg noget helt forkert???

<% @Language=JavaScript %>

<%
Set Upload = Server.CreateObject(\"Persits.Upload.1\")

Upload.OverwriteFiles = False
Upload.SetMaxSize 1048576
Upload.Save \"c:\\upload\"

For Each File in Upload.Files

If File.ImageType <> \"GIF\" and File.ImageType <> \"JPG\" Then
  Response.Write \"GIF or JPG files only please!\"
  Exit For
End If
If File.ImageWidth > 400 Then
  Response.Write \"Image width cannot exceed 400 pixels.\"
  Exit For
End If
If File.ImageHeight > 300 Then
  Response.Write \"Image height cannot exceed 300 pixels.\"
  Exit For
End If

//danner et ConnectionObject
conn=Server.CreateObject(\"ADODB.Connection\");

//Åbner dataforbindelse, og laver en forbindelse mellem databasen og ConnectionObjektet\'
//(DSN less adgang - DSN = Data Source Name)
conn_string=\"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"+Server.mapPath(\"db/kartotek.mdb\");
conn.Open(conn_string);

//danner sql-strengen
sql=\"INSERT INTO kartotek (billede) \";
sql+=\"VALUES (\'\" & File.ExtractFileName & \"\')\";

// sql sætningen eksekveres!
conn.execute(sql);

//lukke og slukke:
conn.Close();
conn=null;

Response.Redirect(\"test.asp\");
Next
%>

Håber I ved det, men det plejer i jo :-)
Avatar billede keysersoze Ekspert
25. juni 2001 - 23:52 #1
et uddrag fra et af mine eksempler:

<%

set conn = Server.CreateObject(\"ADODB.Connection\")
Session(\"MyConn\") = \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"test.mdb\")

    Set Upload = Server.CreateObject(\"Persits.Upload.1\")
      Upload.OverwriteFiles = false
      Upload.SetMaxSize 300000, True
      Upload.SaveVirtual (\"/\")
   
    For Each File in Upload.Files
   
        File.ToDatabase Session(\"MyConn\"), \"insert into test(test) \" &_
        \"values(\'\" & File.ExtractFileName & \"\')\"
        if Err <> 0 Then
          Response.Write headerfont & \"<br>Der er sket en fejl! : \" & Err.Description
       
    Else

          Response.Write headerfont & \"<br>Tilføjet...</strong></font>\"
   
    End If
      Next
%>
Avatar billede jakobandersen Nybegynder
26. juni 2001 - 00:04 #2
Uha, connection objekt i Session. Læs venligst http://msdn.microsoft.com/library/default.asp?URL=/library/en-us/dnasp/html/ASPtips.asp så  serveradministratorer kan sove i ro.
Avatar billede mo-bo Nybegynder
26. juni 2001 - 00:25 #3
nej jeg for stadig fejlen:

Error saving the file: [Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

Hvad betyder det????
Avatar billede jakobandersen Nybegynder
26. juni 2001 - 00:36 #4
<%

set conn = Server.CreateObject(\"ADODB.Connection\")
conn.Connectionstring\"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"test.mdb\")
conn.open

    Set Upload = Server.CreateObject(\"Persits.Upload.1\")
      Upload.OverwriteFiles = false
      Upload.SetMaxSize 300000, True
      Upload.SaveVirtual (\"/\")
   
    For Each File in Upload.Files
   
        File.ToDatabase Session(\"MyConn\"), \"insert into test(test) \" &_
        \"values(\'\" & File.ExtractFileName & \"\')\"
        if Err <> 0 Then
          Response.Write headerfont & \"<br>Der er sket en fejl! : \" & Err.Description
       
    Else

          Response.Write headerfont & \"<br>Tilføjet...</strong></font>\"
   
    End If
      Next
conn.close
Set conn = Nothing
%>

Husk at ændre database/tabelnavne
Avatar billede mo-bo Nybegynder
26. juni 2001 - 12:31 #5
narj jeg jeg kan ikke få det til at virke, jeg har skrevet følgene:

  <%

set conn = Server.CreateObject(\"ADODB.Connection\")
conn.Connectionstring\"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"kartotek.mdb\")
conn.open

    Set Upload = Server.CreateObject(\"Persits.Upload.1\")
      Upload.OverwriteFiles = false
      Upload.SetMaxSize 300000, True
      Upload.SaveVirtual (\"c:\\upload\")
   
    For Each File in Upload.Files
   
        File.ToDatabase Session(\"MyConn\"), \"insert into kartotek(billede) \" &_
        \"values(\'\" & File.ExtractFileName & \"\')\"
        if Err <> 0 Then
          Response.Write headerfont & \"<br>Der er sket en fejl! : \" & Err.Description
       
    Else

          Response.Write headerfont & \"<br>Tilføjet...</strong></font>\"
   
    End If
      Next
conn.close
Set conn = Nothing
%> 

Men jeg for fejlen:

Error Type:
Microsoft VBScript runtime (0x800A01C2)
Wrong number of arguments or invalid property assignment: \'conn.Connectionstring\'
/fileuplaod/UploadScript3.asp, line 4


??????
Avatar billede mo-bo Nybegynder
26. juni 2001 - 12:32 #6
er det bare mig der er underlig??? Laver jeg noget galt i min formular.htm:

<HTML>
<BODY BGCOLOR=\"#FFFFFF\">

<FORM METHOD=\"POST\" ENCTYPE=\"multipart/form-data\" ACTION=\"UploadScript3.asp\">
File 1:<INPUT TYPE=FILE NAME=\"FILE1\">
Description 1:<INPUT TYPE=TEXT NAME=\"DESCR1\"><BR>
File 2:<INPUT TYPE=FILE NAME=\"FILE2\">
Description 2:<INPUT TYPE=TEXT NAME=\"DESCR2\"><BR>
<INPUT TYPE=SUBMIT VALUE=\"Upload!\">

</FORM>
</BODY>
</HTML>
Avatar billede keysersoze Ekspert
26. juni 2001 - 12:36 #7
prøv med:

<%

set conn = Server.CreateObject(\"ADODB.Connection\")
conn = \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"kartotek.mdb\")
conn.open

    Set Upload = Server.CreateObject(\"Persits.Upload.1\")
      Upload.OverwriteFiles = false
      Upload.SetMaxSize 300000, True
      Upload.SaveVirtual (\"c:\\upload\")
   
    For Each File in Upload.Files
   
        File.ToDatabase conn, \"insert into kartotek(billede) \" &_
        \"values(\'\" & File.ExtractFileName & \"\')\"
        if Err <> 0 Then
          Response.Write headerfont & \"<br>Der er sket en fejl! : \" & Err.Description
       
    Else

          Response.Write headerfont & \"<br>Tilføjet...</strong></font>\"
   
    End If
      Next
conn.close
Set conn = Nothing
%> 
Avatar billede mo-bo Nybegynder
26. juni 2001 - 12:44 #8
Nope for fejlen:
Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: \'conn\'
/fileuplaod/UploadScript3.asp, line 5

Som I sikkert kan hører er jeg rimlig ny inden for ASP:-)

Avatar billede nell Nybegynder
02. juli 2001 - 01:26 #9
prøv med denne connection streng:

Set Connection=Server.CreateObject(\"ADODB.Connection\")
    Connection.Open \"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=\"&server.mappath(\"kartotek.mdb\")

den skulle virke
Avatar billede nell Nybegynder
02. juli 2001 - 01:27 #10
Prøv med denne streng:
Set Connection=Server.CreateObject(\"ADODB.Connection\")
    Connection.Open \"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=\"&server.mappath(\"db.asp\\database.mdb\")
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