Søg
Avatar billede 123abc123 Nybegynder
03. maj 2002 - 18:16 Der er 4 kommentarer og
1 løsning

upload til database

hvordan får jeg dette script til at tilføje til en database:
<%@ Language="VBScript" %>
<%  Option Explicit %>



<!-- #INCLUDE FILE="fileupload4inc.asp" -->
<%
    Dim objDict

    'Hent fil og evt. øvrige data
    Set objDict = FileUpload(Null, 10000000000000000000, Null, "zip", "tekstfiler", True, True)

    'Giv passende resultat
    If objDict("FILEUPLOAD_STATUS") = 0 Then
        'Giv en positiv besked
        Response.Write "Filen <A HREF=""" & objDict("FILEUPLOAD_URL") & """>" & objDict("FILEUPLOAD_FILENAME") & "</A> er uploaded til mappen " & objDict("FILEUPLOAD_DIR") & "<BR>"
        Response.Write "Det er en fil af typen " & objDict("FILEUPLOAD_CONTENTTYPE") & " og den fylder " & objDict("FILEUPLOAD_SIZE") & " bytes.<BR>"
    Else
        'Giv en negativ besked
        Response.Write objDict("FILEUPLOAD_STATUSTXT") & " (Fejl nummer " & objDict("FILEUPLOAD_STATUS") & ")<BR>"
    End If
%>






Avatar billede killer_r Nybegynder
03. maj 2002 - 18:23 #1
Du laver vel bare en standart "gem i database"-kommando og gemmer variablerne.
Variablern er f.eks:
objDict("FILEUPLOAD_URL")
objDict("FILEUPLOAD_FILENAME")
objDict("FILEUPLOAD_CONTENTTYPE")
Avatar billede 123abc123 Nybegynder
03. maj 2002 - 18:31 #2
ok, har prøvet det her:
<%@ Language="VBScript" %>
<%  Option Explicit %>
<%

  Set Conn2 = Server.CreateObject("ADODB.Connection")
  Conn2.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("bdbd.mdb")
  %>
<!-- #INCLUDE FILE="fileupload4inc.asp" -->
<%
Dim objDict
    Set objDict = FileUpload(Null, 10000000000000000000, Null, "zip", "tekstfiler", True, True)
    %>
<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then


    Set rs33 = Server.CreateObject("ADODB.Recordset")
    sql = "select * from sources"
    rs33.open sql, conn2, 1, 3

      rs33.AddNew
      rs33("titel") = objDict("FILEUPLOAD_URL")
      rs33.Update

    rs33.Close
    Set rs33 = Nothing

end if  'end request.servervariables
%>

men den kommer op med den her fejl:

Der opstod en Microsoft VBScript-kørselsfejl error '800a01f4'
Variablen er ikke defineret: 'Conn2'
/upload/eksempel2_svar.asp, line 5
Avatar billede killer_r Nybegynder
03. maj 2002 - 18:37 #3
Når du bruger
<%  Option Explicit %>
skal du huske at definere dine variabler
Det gøres sådan:
<%
dim Conn2
%>
(Eller du kan bare slette Option Explicit...)
Avatar billede killer_r Nybegynder
03. maj 2002 - 18:50 #4
Kan du få det til at virke...?
Avatar billede 123abc123 Nybegynder
03. maj 2002 - 19:06 #5
ja ;)
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 20:40 Access udskrift mangler del af ramme om post. Af Uvanga i Access
I går 12:36 nulstille Samsung tablet T-580 Af fase i Tablet
23/1017:19 Kender I "Dropbox" ? Af Ikke-ekspert i Andet software
23/1016:28 Indsæt en kort video i Outlook 2024 Af ErikHg i E-mail programmer
22/1019:20 Hvor kan man finde en god bærbar computer? Af Strawberry i PC
White papers
Flere white papers »