ASP UPLOAD + Filtjek

Jeg har ikke så store problemer med at oprette filen samtidig med at jeg skriver i db, det er mere det at tjekke om den i forvejen findes..

Hvis du bruger denne linie:

Upload.OverwriteFiles = False

Bliver filerne ikke overskrevet.

..Også kan du hive filnavnet ud på denne måde:

Filnavn = Upload.Files("FILE1").ExtractFilename

Jeg har aldrig før leget med ASP Upload, men jeg skyder på at koden skal se sådan ud:

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.Save "C:\STI_HVOR_FILERNE_SKAL_GEMMES"

For Each File in Upload.Files

    sti = File.Path
    Arr = Split(sti, "\")
    filnavn = Arr(UBound(Arr))

    If Upload.FileExists(Server.MapPath("/Log/JPG_GIF/" & filnavn)) Then
        response.write("Der findes allerede en fil med det angivne navn. " & _
        "Omdøb filen hvis du stadig ønsker den lagt i mediebiblioteket.")
    else
        response.write(filnavn)
    end if

Next File


%>

<%

Set Upload = Server.CreateObject("Persits.Upload.1")
Count = Upload.Save "C:\TEMP_FOLDER"

Response.Write Count & " filer uploaded til C:\TEMP_FOLDER"

For Each File in Upload.Files

    Filnavn = File.ExtractFilename

    If Upload.FileExists(Filnavn) Then
        response.write("Der findes allerede en fil med det angivne navn. " & _
        "Omdøb filen hvis du stadig ønsker den lagt i mediebiblioteket.")
    else
        If File.Size < 100000 Then
            response.write(filnavn)
        Else
            response.write("Filen er for stor")
        End If
    end if
Next

%>

chrisrj ->>

God ide men jeg kan desværre ikke få den til at hente filnavnet ved hjælp af den beskrevne metode... den skriver intet til databasen, FILE1 er filstien...kan det være derfor:

Du får lige min tilrettede kode:

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Typefil = Upload.form("typ")
IF Typefil = "1" Then
Upload.SetMaxSize 250000, True
Upload.OverwriteFiles = False
Count = Upload.SaveVirtual("/log/JPG_GIF/")
if Err <> 0 Then
Response.Write "Billedet fylder mere end det tilladte. Det tilladte er 250 kb."
else
Response.Write "Billedet er lagt i dit mediebibliotek uden problemer"
end if
end if

Filnavn = Upload.Files(File.Path).ExtractFilename
Remark = Upload.form("remark")
Filstr = Upload.files(File.Path).OriginalSize

DB = "Insert into Filer (Typ,Remark,Path) VALUES ('"&Typefil&"','"&Remark&"','"&Filnavn&"')"
Conn.Execute(DB)


If Err = 0 Then
response.write("<b>Filens karakter er som følger:</b><br>")
response.write("<b>Filens navn:</b> "&Filnavn&"<br>")
response.write("<b>Filens størrelse:</b> "&Filstr&"<br>")
end if

File.Path er selvfølgelig FILE1

På min form her jeg denne:

<INPUT TYPE="FILE" SIZE="30" NAME="FILE1">

Og her er min upload funktion:

Upload.OverwriteFiles = False

Count = Upload.Savevirtual("../upload/")
If Not Upload.Files("FILE1") Is Nothing Then
    Filnavn = Upload.Files("FILE1").ExtractFilename
End If

For Each File in Upload.Files
    If File.ImageType <> "GIF" and File.ImageType <> "JPG" Then
        filtype="t"
    else
        Filnavn = Upload.Files("FILE1").ExtractFilename
    filtype="b"
        if File.ImageWidth > 350 then
        width = 350
        else
        width = File.ImageWidth
        end if
        if File.ImageWidth > 400 then
        height = 400
        else
        height = File.ImageHeight
        end if
        Response.Write "tak!"
    End If
next

Og så ligger jeg "filnavn" ind i databasen.

Er "typ" navnet på din fil-input?

Jeg tror måske det virker men min extractfilename giver mig hele stien... skal den det?

Nej, den skal kun give filnavnet.

Hvordan ser din form ud?

<table width="438">
<tr>
<td width="126" class="tekst"><font color="#666666">Angiv filtypen</font></td>
<td width="300" height="12" class="stylish"><font color="#333333"><span class="tekst"><font color="#333333"><span class="tekst">

<select name="typ">
<option value="1" selected>Billede</option>
<option value="2">PDF fil</option>
<option value="3">Word fil</option>
<option value="4">Mp3 fil</option>
<option value="5">Video</option>
<option value="6">Excell</option>
<option value="7">ZIP</option>
</select>

</span></font><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
</font> </span> </font> </td>
</tr>
<tr>
<td class="tekst"><font color="#666666">Fil / billed tekst</font></td>
<td height="12" class="stylish"><font color="#333333"><span class="tekst">
<input type="text" name="remark" size="40"></span></font></td>
</tr><tr>
<td class="tekst"><font color="#666666">Fil / billedsti:</font></td>
<td> <font color="#333333"><span class="tekst">
<input name="FILE1" type="file" id="FILE1" size="40">
</span></font></td></tr><tr><td height="22">&nbsp;</td>
<td> <font color="#333333"><span class="tekst">
<input name="submit" type="submit" value="Opret ">
</span></font></td>
</tr>
</table>

formen er en enctype selfølgelig

Prøv den her:

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Typefil = Upload.form("typ")
IF Typefil = "1" Then
Upload.SetMaxSize 250000, True
Upload.OverwriteFiles = False
Count = Upload.SaveVirtual("/log/JPG_GIF/")
if Err <> 0 Then
Response.Write "Billedet fylder mere end det tilladte. Det tilladte er 250 kb."
else
Response.Write "Billedet er lagt i dit mediebibliotek uden problemer"
end if
end if

Filnavn = Upload.Files("FILE1").ExtractFilename
Remark = Upload.form("remark")
Filstr = Upload.files(File.Path).OriginalSize

DB = "Insert into Filer (Typ,Remark,Path) VALUES ('"&Typefil&"','"&Remark&"','"&Filnavn&"')"
Conn.Execute(DB)


If Err = 0 Then
response.write("<b>Filens karakter er som følger:</b><br>")
response.write("<b>Filens navn:</b> "&Filnavn&"<br>")
response.write("<b>Filens størrelse:</b> "&Filstr&"<br>")
end if

Forresten, har du ikke overvejet at lukke nogle af dine gamle spørgsmål? :)
Der er nogle fra 99!! :)

Wooops...jeg troede jeg havde fået lukket dem...plejer at få en mail om gamle spg....jeg kigger og lukker...

Men du har jo faktisk gjort det jeg efterspurgte så here you go...

Tak for points!

"Wooops...jeg troede jeg havde fået lukket dem...plejer at få en mail om gamle spg....jeg kigger og lukker..."

Ja, det var i de gode gamle dage :(

Jeg har også lige gennemgået mine gamle spg...der var liige nogle der manglede. :)