Upload uden komponent plus sti i DB

Hvis du hiver C:/safasdf/asdfasdf/asdf/asdf/asd/fasdf/picture.jpg ind i en variabel f.eks. \"sPath\", så prøv dette:

iPos = InStrRev(sPath, \"/\")
iPos = iPos - 1
sName = Right(sPath, (Len(sPath) - iPos))

Du skulle nu have \"picture.jpg\" i strengen sName.

Var det noget du kunne bruge?

Tjaa, jeg er jo ikke den store asp-haj... så jeg tror jeg bliver nød til at bede dig om at uddybe det lidt..! Jeg kan ikke få det til at virker. Måske kunne du skrive lidt om hvor det skal smides inde..?
Prøv også kigge på denne her:
Jeg bruger UltraDev. Den har indbygget et \"insert form\" som jeg bruger til at skrive i databasen. Hvordan for jeg infomationeren over i den form?

Kan du så ikke lige smide koden ind, så jeg kan se på det?

Her er asp\'en jeg normalt upload til databasen med:
---
<%@LANGUAGE=\"VBSCRIPT\"%>
<!--#include file=\"../../../Connections/database.asp\" -->
<%
\' *** Edit Operations: declare variables

MM_editAction = CStr(Request(\"URL\"))
If (Request.QueryString <> \"\") Then
  MM_editAction = MM_editAction & \"?\" & Request.QueryString
End If

\' boolean to abort record edit
MM_abortEdit = false

\' query string to execute
MM_editQuery = \"\"
%>
<%
\' *** Insert Record: set variables

If (CStr(Request(\"MM_insert\")) <> \"\") Then

  MM_editConnection = MM_database_STRING
  MM_editTable = \"Nyheder\"
  MM_editRedirectUrl = \"\"
  MM_fieldsStr  = \"Dato|value|Overskrift|value|Foto|value|Beskrivelse|value\"
  MM_columnsStr = \"Dato|\',none,\'\'|Overskrift|\',none,\'\'|Foto|\',none,\'\'|Beskrivelse|\',none,\'\'\"

  \' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, \"|\")
  MM_columns = Split(MM_columnsStr, \"|\")
 
  \' set the form values
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
  Next

  \' append the query string to the redirect URL
  If (MM_editRedirectUrl <> \"\" And Request.QueryString <> \"\") Then
    If (InStr(1, MM_editRedirectUrl, \"?\", vbTextCompare) = 0 And Request.QueryString <> \"\") Then
      MM_editRedirectUrl = MM_editRedirectUrl & \"?\" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & \"&\" & Request.QueryString
    End If
  End If

End If
%>
<%
\' *** Insert Record: construct a sql insert statement and execute it

If (CStr(Request(\"MM_insert\")) <> \"\") Then

  \' create the sql insert statement
  MM_tableValues = \"\"
  MM_dbValues = \"\"
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    FormVal = MM_fields(i+1)
    MM_typeArray = Split(MM_columns(i+1),\",\")
    Delim = MM_typeArray(0)
    If (Delim = \"none\") Then Delim = \"\"
    AltVal = MM_typeArray(1)
    If (AltVal = \"none\") Then AltVal = \"\"
    EmptyVal = MM_typeArray(2)
    If (EmptyVal = \"none\") Then EmptyVal = \"\"
    If (FormVal = \"\") Then
      FormVal = EmptyVal
    Else
      If (AltVal <> \"\") Then
        FormVal = AltVal
      ElseIf (Delim = \"\'\") Then  \' escape quotes
        FormVal = \"\'\" & Replace(FormVal,\"\'\",\"\'\'\") & \"\'\"
      Else
        FormVal = Delim + FormVal + Delim
      End If
    End If
    If (i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & \",\"
      MM_dbValues = MM_dbValues & \",\"
    End if
    MM_tableValues = MM_tableValues & MM_columns(i)
    MM_dbValues = MM_dbValues & FormVal
  Next
  MM_editQuery = \"insert into \" & MM_editTable & \" (\" & MM_tableValues & \") values (\" & MM_dbValues & \")\"

  If (Not MM_abortEdit) Then
    \' execute the insert
    Set MM_editCmd = Server.CreateObject(\"ADODB.Command\")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl <> \"\") Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%>
<html>
<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>
<body leftmargin=\"0\" topmargin=\"0\" marginwidth=\"0\" marginheight=\"0\" bgcolor=\"#FFFFFF\">
<form method=\"post\" action=\"<%=MM_editAction%>\" name=\"form1\">
  <table align=\"center\">
    <tr valign=\"baseline\">
      <td nowrap align=\"right\">Dato:</td>
      <td>
        <input type=\"text\" name=\"Dato\" value=\"\" size=\"32\">
      </td>
    </tr>
    <tr valign=\"baseline\">
      <td nowrap align=\"right\">Overskrift:</td>
      <td>
        <input type=\"text\" name=\"Overskrift\" value=\"\" size=\"32\">
      </td>
    </tr>
    <tr valign=\"baseline\">
      <td nowrap align=\"right\">Foto:</td>
      <td>
        <input type=\"text\" name=\"Foto\" value=\"\" size=\"32\">
      </td>
    </tr>
    <tr valign=\"baseline\">
      <td nowrap align=\"right\">Beskrivelse:</td>
      <td>
        <input type=\"text\" name=\"Beskrivelse\" value=\"\" size=\"32\">
      </td>
    </tr>
    <tr valign=\"baseline\">
      <td nowrap align=\"right\">&nbsp;</td>
      <td>
        <input type=\"submit\" value=\"Insert Record\">
      </td>
    </tr>
  </table>
  <input type=\"hidden\" name=\"MM_insert\" value=\"true\">
</form>
</body>
</html>
---
Her er billedeuploaden - den er i to filer:
Først asp\'en:
---
<%@ Language=\"VBScript\" %>
<%  Option Explicit %>

<!-- #INCLUDE FILE=\"fileupload.inc\" -->
<HTML>
<HEAD>
<TITLE>Upload uden komponent</TITLE>
</HEAD>
<BODY>

<%
\'*************************************
\'**** Test af FileUpload funktion ****
\'****                            ****
\'**** Upload .gif eller .jpg      ****
\'**** billede til mappen /upload  ****
\'*************************************

    \'Skal formen vises?
    If Request.ServerVariables(\"REQUEST_METHOD\") <> \"POST\" Then
%>
<FORM ENCTYPE=\"multipart/form-data\" ACTION=\"uploadgfx.asp\" METHOD=\"POST\">
<P>Vælg et billede:<BR>
<INPUT NAME=\"fileupload\" TYPE=\"file\"><BR>
<INPUT NAME=\"Action\" TYPE=\"submit\" VALUE=\"Upload\">
</FORM>
<%
    Else
        Dim intFileUpload, strContentType, strFilename, intFileTotalBytes

        intFileUpload = FileUpload(\"upload/\", 20000, Array(\"image/gif\", \"image/jpeg\", \"image/pjpeg\"), Array(\"gif\", \"jpg\"), strContentType, strFilename, intFileTotalBytes)

        If intFileUpload = 0 Then
            Response.Write \"Filen \" & strFilename & \" blev uploaded.<BR>\"
            Response.Write \"Det er en fil af typen \" & strContentType & \" og den fylder \" & intFileTotalBytes & \" bytes:<BR>\"
            Response.Write \"<IMG SRC=\"\"upload/\" & strFilename & \"\"\"><BR>\"
        Else 
            Response.Write \"Der opstod en fejl under upload!<BR>\"
            Response.Write \"Fejl nr: \" & intFileUpload & \"<BR>\"
            Response.Write \"Filnavn: \" & strFilename & \"<BR>\"
            Response.Write \"Filtype: \" & strContentType & \"<BR>\"
            Response.Write \"Filstørrelse: \" & intFileTotalBytes & \"<BR>\"
        End If
    End If
%>
</BODY>
</HTML>

Her er så include filen:
---

<%
\'-------------------- Start: fileupload.inc --------------------

\'*** FileUpload                          ***
\'*** af Lars Snyder (pila@mailme.dk)      ***
\'*** http://www.tipsogtricks-online.dk    ***
\'*
\'* Sprog: VBScript
\'*
\'* Input:
\'* strPath        \"\"
\'* intMaxSize    < 1
\'* arrAcceptType  \"\"
\'* arrAcceptExt  \"\"
\'*
\'* Output: 0 hvis filen er uploaded korrekt.
\'*        1 Request fra bruger gik galt
\'*        2 Content med name=\"fileupload\" blev ikke fundet
\'*        3 Ingen filnavn
\'*        4 Content-Type accepteres ikke
\'*        5 Ext accepteres ikke
\'*        6 Filen er for stor
\'*        7 Filen blev ikke uploaded korrekt
\'* strContentType    Den fundne type, f.eks. \"image/gif\"
\'* strFilename        Det fundne filnavn, f.eks. \"button.gif\"
\'* intFileTotalBytes  Filens samlede størrelse, f.eks. 9853
\'*
\'* Eksempler på ContentTypes
\'* Microsoft IE4              | Netscape NN4                                      | Beskrivelse
\'* \"image/gif\"                | \"image/gif\"                                        | CompuServe Graphics Interchange (.gif)
\'* \"image/pjpeg\"              | \"image/jpeg\"                                      | JPEG/JFIF Compliant (.jpg | .jif | .jpeg)
\'* \"application/octet-stream\" | \"application/msexcel\"                              | Microsoft Excel-regneark (.xls)
\'* \"application/octet-stream\" | \"application/msword\"                              | Microsoft Word-dokument (.doc)
\'* \"text/html\"                | \"text/html\"                                        | HTML Document (.htm | .html)
\'* \"text/plain\"              | \"application/x-unknown-content-type-asp_auto_file\" | Active Server Page (.asp)
\'* \"text/plain\"              | \"text/plain\"                                      | Tekstdokument (.txt)
\'* \"text/plain\"              | \"application/x-unknown-content-type-Excel.CSV\"    | Separeret fil (.csv)
\'* \"application/octet-stream\" | \"application/octet-stream\"                        | Binær fil (.bin)
\'* \"application/octet-stream\" | \"application/octet-stream\"                        | Uden kendt filtype (.lol)
\'* Bemærk i øvrigt, at
\'* a. Der er desværre forskel på den tekst Microsoft og Netscape anvender på samme filtype.
\'* b. Microsoft evaulerer ikke kun filens efternavn, men også det faktiske indhold!

Function FileUpload(strPath, intMaxSize, arrAcceptType, arrAcceptExt, ByRef strContentType, ByRef strFilename, ByRef intFileTotalBytes)
    \'Variable deklaration
    Dim intPostTotalBytes, intStartPos, intEndPos, i
    Dim bstrPostData, bstrDivider
    Dim strTemp, strFileSpec
    Dim arrSplit
    Dim vbCrLfB
    Dim bolStopLoop, bolContentTypeOK, bolExtOK
    Dim fs, ts, f

    \'Sæt returværdier
    strContentType = \"\"
    strFilename = \"\"
    intFileTotalBytes = 0

    \'Check: Er det faktisk POST upload?
    If Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" Then

        \'Dan vbCrLf som binær streng
        vbCrLfB = ChrB(13) & ChrB(10)

        \'Hent den binære POST fra brugeren
        intPostTotalBytes = Request.TotalBytes \'Find antallet af bytes i POST
        bstrPostData = Request.BinaryRead(intPostTotalBytes) \'Hent POST til en binær streng
        If LenB(bstrPostData) <> intPostTotalBytes Then \'Check: Er antallet af bytes i POST forskelligt fra den binære streng?
            \'Returner værdi og stop
            FileUpload = 1
            Exit Function
        End If

        \'Hent delelinien inkl. vbCrLfB (altid hele første linje)
        bstrDivider = LeftB(bstrPostData, InStrB(bstrPostData, vbCrLfB) + 1)

        \'Default StartPos
        intStartPos = 1
     
        \'Find Content-Disposition hvor name=\"fileupload\"
        bolStopLoop = False
        Do
            \'Find starten af denne Content del (umiddelbart efter delelinien)
            intStartPos = InStrB(intStartPos, bstrPostData, bstrDivider) + LenB(bstrDivider)
            If intStartPos = 0 Then
                \'Ikke flere Content delere - Returner værdi og stop
                FileUpload = 2
                Exit Function
            End If

            \'Find slutningen af denne Content del (umiddelbart inden den næste delelinie)
            intEndPos = InStrB(intStartPos, bstrPostData, bstrDivider)
            If intEndPos = 0 Then
                \'Ikke flere Content delere - Returner værdi og stop
                FileUpload = 2
                Exit Function
            End If

            \'Hent denne Content-Disposition (uden vbCrLf)
            strTemp = bin2str(MidB(bstrPostData, intStartPos, InStrB(intStartPos, bstrPostData, vbCrLfB) - intStartPos))

            \'Er fileupload feltet i denne Content-Disposition?
            If InStr(LCase(strTemp), \"name=\"\"fileupload\"\"\") > 0 Then
                \'Stop løkken her
                bolStopLoop = True
            Else
                \'Start igen umiddelbart efter denne Content, men før næste divider
                intStartPos = intEndPos
            End If
        Loop Until bolStopLoop

        \'Flyt intStartPos til efter Content-Disposition linjen
        intStartPos = intStartPos + Len(strTemp) + 2

        \'Ekstrakt POST filnavnet fra strTemp
        arrSplit = Split(strTemp, \";\") \'Opdel strTemp ved ;: Content-Disposition: form-data; name=\"fileupload\"; filename=\"filen.txt\"

        \'Find filnavnet fra filename= array
        strTemp = \"\" \'Værdi ved fejl
        For i = 0 To UBound(arrSplit) \'Køres for alle i denne array
            If LCase(Left(Trim(arrSplit(i)), 9)) = \"filename=\" Then \'Står der filename= ?
                strTemp = Trim(arrSplit(i))
                Exit For
            End If
        Next

        \'Afbryd hvis der ikke blev fundet noget filnavn
        If strTemp = \"\" Or strTemp = \"filename=\"\"\"\"\" Then
            FileUpload = 3
            Exit Function
        End If

        \'Find filnavnet
        arrSplit = Split(strTemp, \"\"\"\")        \'Opdel streng ved \"
        strTemp = arrSplit(UBound(arrSplit) - 1) \'Næstsidste indholder filnavn
        arrSplit = Split(strTemp, \"\\\") \'Del ved alle \\  Så indeholder den sidste filnavn.ext\"
        strFilename = arrSplit(UBound(arrSplit)) \'Hent den sidste array, der må være filnavnet

        \'Dan det fulde outputfilnavn via MapPath
        strFileSpec = Server.MapPath(LCase(strPath & strFilename)) \'LCase kan evt fjernes herfra

        \'Hent Content-Type (uden vbCrLf)
        strTemp = bin2str(MidB(bstrPostData, intStartPos, InStrB(intStartPos, bstrPostData, vbCrLfB) - intStartPos))

        \'Flyt intStartPos til efter Content-Type linjen
        intStartPos = intStartPos + Len(strTemp) + 2
       
        \'Ekstrakt POST Content-Type
        arrSplit = Split(strTemp, \" \")
        strContentType = arrSplit(UBound(arrSplit))

        \'Skal Content-Type checkes?
        bolContentTypeOK = False
        If arrAcceptType(LBound(arrAcceptType)) <> \"\" Then
            For Each strTemp In arrAcceptType
                If strContentType = strTemp Then
                    bolContentTypeOK = True
                End If
            Next

            \'Check: Er det en accepteret Content-Type?
            If Not bolContentTypeOK Then
                \'ContentType ikke fundet - Returner værdi og stop
                FileUpload = 4
                Exit Function
            End If
        End If

        \'Skal ekstention checkes?
        bolExtOK = False
        If arrAcceptExt(LBound(arrAcceptExt)) <> \"\" Then
            For Each strTemp In arrAcceptExt
                If LCase(Right(strFilename, Len(strTemp))) = strTemp Then
                    bolExtOK = True
                End If
            Next

            \'Check: Er det en accepteret ekstention?
            If Not bolExtOK Then
                \'Ekstention ikke fundet - Returner værdi og stop
                FileUpload = 5
                Exit Function
            End If
        End If

        \'Find faktiske start/slut på datafilen ved at fjerne foranstillede og efterstillede vbCrLfB
        intStartPos = intStartPos + 2
        intEndPos = intEndPos - 2
        intFileTotalBytes = intEndPos - intStartPos

        \'Skal filstørrelsen checkes?
        If intMaxSize > 0 Then
            \'Check: Er filen for stor?
            If intFileTotalBytes > intMaxSize Then
                \'Filen er for stor - Returner værdi og stop
                FileUpload = 6
                Exit Function
            End If
        End If

        \'Åbn, skriv og luk outputfilen
        Set fs = CreateObject(\"Scripting.FileSystemObject\") \'Filsystem objekt
        Set ts = fs.CreateTextFile(strFileSpec, True) \'Åbn outputfil, overskriv evt. eksisterende
        For i = intStartPos To intEndPos - 1
            ts.Write(Chr(AscB(MidB(bstrPostData, i, 1)))) \'Skriv data eet tegn af gangen
        Next
        ts.Close \'Luk outputfil

        \'Check: Blev filen oprettet og har den samme størrelse?
        Set f = fs.GetFile(strFileSpec)
        If f.Size <> intFileTotalBytes Then
                FileUpload = 7
                Exit Function
        End If

        \'* Returner OK
        FileUpload = 0
    End If
End Function

\'* Funktion der oversætter en bstr binær streng til en almindelig streng
\'* Pas på med 00 værdier, da de fungerer som EOF i en almindelig streng
Function bin2str(bstrBinary)
    Dim i
    For i = 1 To LenB(bstrBinary)
      bin2str = bin2str & Chr(AscB(MidB(bstrBinary, i, 1)))
    Next
End Function

\'-------------------- Slut: fileupload.inc --------------------
%>


---

Jeg skal have kombineret de 2 ting, således at jeg kan uploade billedet, og derefter vælge det eller lave noget smart som skriver den korrekte sti på billedet i formen for hele uploadet til databasen, dvs. incl. navn, dato og beskivelse - det er nemlig et nyhedsmodul med billede upload.

Kan man det?