Upload Fil

Download denne her:

http://activedeveloper.dk/download/default.asp?mode=showdownload&id=430

...Ved godt det er et link... ;)

yes nice eller jeg ved det ikek lige jeg har lige noget andet "arbjede" som er kommet ind af dør =( bare neder... men jeg vænder tilbage igang i aften "håber jeg hvis mit arbejde ikke dræber mig =)"

På activeserverpages.dk står der dette her (den her upload billederm skal altså laves lidt om)
Det er mådan man gør det på :

<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/aspdigital/db/images.mdb")

intID = Request.QueryString("id")

If Request.QueryString("mode") = "show" Then
    ' Denne kode fremviser den ønskede fil
    strSQL = "SELECT Image_Type, Image_Data FROM Images WHERE (ImageID = " & intID & ");"
    Set rs = myConn.Execute(strSQL)
    If Not rs.EOF Then
        Response.ContentType = rs("Image_Type")
        Response.BinaryWrite rs("Image_Data")
    End If
    ' Her frigives Connection objektet fra hukommelsen
    myConn.Close
    Set myConn = Nothing
    Response.End
ElseIf intID > 0 Then
    strMsg = "<p>Det valgte billede er:<br><img src=upload_access.asp?mode=show&id="& intID &"></p>"
End If



' Her skabes FileUp objektet
Set objUpl = Server.CreateObject("SoftArtisans.FileUp")

' Her sættes en begrænsning på 10 kb.
If objUpl.Form("upload") <> "" Then
    ' Hvis formen er blevet submitted
    strFilename = objUpl.Form("f1").UserFilename
    strFileExt = Mid(strFilename, InstrRev(strFilename, ".") + 1)
    If objUpl.Form("f1").IsEmpty Then
        strMsg = "<p>Du skal vælge en fil</p>"
    ElseIf LCase(strFileExt) <> "gif" AND LCase(strFileExt) <> "jpg" Then
        strMsg = "<p>Du skal vælge enten et GIF eller JPG fil!</p>"
    ElseIf objUpl.TotalBytes > 10000 Then
        strMsg = "<p>Billedet fylder mere end 10 Kb., vælg venligst et andet!</p>"
    Else
        ' Her gemmes filen i databasen
        Set rsBlob = Server.CreateObject("ADODB.RecordSet")
        rsBlob.Open "Images", myConn, 1, 3
        rsBlob.AddNew
        objUpl.Form("f1").SaveAsBlob rsBlob.Fields("Image_Data")
        rsBlob.Fields("Image_Type") = objUpl.Form("f1").ContentType
        rsBlob.Fields("Image_Name") = Mid(strFilename, InstrRev(strFilename, "\") + 1)
        rsBlob.Update
        intID = rsBlob("ImageID")
        rsBlob.Close
        ' Her frigives vores recordset fra hukommelsen
        Set rsBlob = Nothing       
        ' Tekst der viser hvad filnavnet er og hvor meget filen fylder
        strMsg = "<p>Filen <em>" & strFilename & "</em> er uploaded til databasen, og fylder <em>" & objUpl.TotalBytes & "</em> bytes.</p>" &_
            "<p><img src=upload_access.asp?mode=show&id="& intID &"></p>"
    End If
End If

' Her frigives FileUp objektet fra hukommelsen
Set objUpl = Nothing
%><html><head>
<title>Upload til Access</title>
</head><body>
<%=strMsg%>
<form method="POST" enctype="multipart/form-data" action="upload_access.asp">
<p><input type="file" size="20" name="f1"></p>
<p><input type="submit" name="upload" value="Upload"></p>
<p>Bemærk: I dette eksempel er der sat en maks. begrænsning på 10 kb.</p>
</form>
<%
' Her skrives der link til de eksisterende objekter i databasen
strSQL = "SELECT ImageID, Image_Name FROM Images ORDER BY Image_Name"
Set rs = myConn.Execute(strSQL)
If Not rs.EOF Then
    Response.Write "Objekter i databasen: <ul type=square>"
    Do While Not rs.EOF
        Response.Write "<li><a href=upload_access.asp?id=" & rs("ImageID") & ">" & rs("Image_Name") & "</a></li>"
        rs.MoveNext
    Loop
    Response.Write "</ul>"
End If
' Her frigives Connection objektet fra hukommelsen
myConn.Close
Set myConn = Nothing
%>
</body></html>

killer_r -> jeg kan ikke lige få det til at virke...

Hvad siger den af fejl...?

linge 7 i dok 2....

men mit problem er med de kode er jeg vil godt selv lærer det... og de kan ALT for meget jeg vil bare ville kunne ligge en fil op =)

Vil det sige du ikke vil have hjælp eller hvad??????????????

jeg vil godt have hjælp men jeg har ikek fundet et scritp som jeg har fatter 100% eller bare 50 % af det....

men jeg skal bruge et scritp som kan ligge filen i en mappe som bliver bestem af et request.form....

=(

=( igen