Jeg har nu endelig fundet et upload script der virker, men er der nogen der ved hvordan man kan lave sådan at den kan overskrive en fil, hvis en fil med det navn allerede er oprettet? jeg har prøvet at læse mig frem her inde:
http://docs.sun.com/source/817-2514-10/Ch13_SpicePack68.html Min kode ser sådan her ud, og filen hedder "uploadgfx.asp":
<!--#include file="Connections/db.asp" -->
<%
Dim aktivbruger__MMColParam
aktivbruger__MMColParam = "1"
If (Session("MM_Username") <> "") Then
aktivbruger__MMColParam = Session("MM_Username")
End If
%>
<%
Dim aktivbruger
Dim aktivbruger_numRows
Set aktivbruger = Server.CreateObject("ADODB.Recordset")
aktivbruger.ActiveConnection = MM_db_STRING
aktivbruger.Source = "SELECT * FROM brugere WHERE brugernavn = '" + Replace(aktivbruger__MMColParam, "'", "''") + "'"
aktivbruger.CursorType = 0
aktivbruger.CursorLocation = 2
aktivbruger.LockType = 1
aktivbruger.Open()
aktivbruger_numRows = 0
%>
<%
side = request("side")
if side = "" then
%>
<FORM ACTION="uploadgfx.asp?side=1" METHOD="POST" ENCTYPE="multipart/form-data">
<INPUT TYPE="FILE" NAME="FILE">
<INPUT TYPE="SUBMIT" VALUE="Send">
</FORM>
<%
end if
if side = "1" then
Response.Expires = 0
Set fbase = Server.CreateObject("Chili.Upload.1")
fbase.SizeLimit = 1000000000
fbase.SaveToFile(Server.mapPath("/") & "/skymann/brugere/billeder/" & aktivbruger("id") & ".jpg")
Response.Redirect("profiltekst.asp?id=" & aktivbruger("id"))
end if
%>
Er der nogen der kan finde ud af at lave sådan at det for det
1. kun er .Jpg/Jpeg der er tilladt
2. at den kan overskrive eksisterende filer
3. sætte en max størelse på 100 kb. og hvis overskrides, skal der komme fejlmeddelelse.
Håber at der er nogen der kan hjælpe mig..