ASP billed upload ?

Du skal enten have fat i et komponent til at gøre det for dig. Eller læse en linie af gangen af den binære tekst, for så at ligge en linie af gangen op på serveren.

www.aspsmart.com
Der findes nogle gratis upload-komponenter inkl. kodeeksempler, du kan bruge. Og det ville undre mig, hvis du er på et lejet webhotel, om de ikke også havde AspSmartUpload.

Jeg har ikke tænkt at give dig hele koden, men hjælpe dig igennem processen.

Du skal, som Jakob skrev, downloade en upload-komponent. Så læs lige lidt i kodeeksemplerne og se hvilke funktioner det har.

Du skal starte med at til en variable scriptet, derefter skal du uploade billedet. Så skal du sætte billedets max størrelse se til 150000 (kb). Du kan også begrænsse med hvilke filer det er muligt at uploade, fx gif/jpg. Derefter skal du vælge en "saveas" funktion, hvor du gemmer billedet i et specifikt sted og samtidige giver du det et navn. Til det skal du bare bruge en session, som du tildeler når personen logger på. Højst sandsyndligt: Session("id"). Så skal det bare være "DIN_STI" & Sesssion("id") & ".jpeg". Til sidst skal du så lige lukke for forbindelse. Så er det klaret!

På en side jeg tidliger have brugte jeg dette script til at uploade billeder, ved ikke om du kan bruge det.

<%
side = request("side")
if side = "" then
%>
<form action="?side=1" method="post" class="css" enctype="multipart/form-data">
<input type="file" name="billede1"><br>
<input type="file" name="billede2"><br>
<input type="file" name="billede3"><br>
<input type="file" name="billede4"><br>
<input type="file" name="billede5"><br><br>
<input type=submit value=Upload>
</form>
<%
end if
if side = "1" then
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

mySmartUpload.Upload

Const adOpenKeyset = 1
Const adLockOptimistic = 3 

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("DIN_DATABASE.mdb") & ";UID=admin;PWD=;" 

set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "select * from DIN_TABEL"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

rs.AddNew
rs("billede1") = mySmartUpload.files("billede1").FileName
rs("billede2") = mySmartUpload.files("billede2").FileName
rs("billede3") = mySmartUpload.files("billede3").FileName
rs("billede4") = mySmartUpload.files("billede4").FileName
rs("billede5") = mySmartUpload.files("billede5").FileName
rs.Update

mySmartupload.files("billede1").SaveAs "DIN_MAPPE_TIL_BILLEDER/" & mySmartupload.files("billede1").filename
mySmartupload.files("billede2").SaveAs "DIN_MAPPE_TIL_BILLEDER/" & mySmartupload.files("billede2").filename
mySmartupload.files("billede3").SaveAs "DIN_MAPPE_TIL_BILLEDER/" & mySmartupload.files("billede3").filename
mySmartupload.files("billede4").SaveAs "DIN_MAPPE_TIL_BILLEDER/" & mySmartupload.files("billede4").filename
mySmartupload.files("billede5").SaveAs "DIN_MAPPE_TIL_BILLEDER/" & mySmartupload.files("billede5").filename

response.write "Uploadet...<br><a href=galleri.asp>Se galleriet</a><a href=?side=2>Se de filer du uploadede</a>"

rs.Close
Set rs = Nothing

Conn.Close
set Conn = Nothing
end if
if side = "2" then
response.write "<img src=DIN_BILLEDMAPPE/" & mySmartUpload.files("billede1").FileName & ">"
response.write "<img src=DIN_BILLEDMAPPE/" & mySmartUpload.files("billede2").FileName & ">"
response.write "<img src=DIN_BILLEDMAPPE/" & mySmartUpload.files("billede3").FileName & ">"
response.write "<img src=DIN_BILLEDMAPPE/" & mySmartUpload.files("billede4").FileName & ">"
response.write "<img src=DIN_BILLEDMAPPE/" & mySmartUpload.files("billede5").FileName & ">"
end if
%>

Koden har desuden også en indbygget "billedefremviser"
Scriptet kræver dog at der er installeret ASPImageUploade eller hvad det nu hedder

Du skriver ikke hvad det er du vil have. Skal nogle lave det for dig, eller ønsker du bare hjælp osv?

Hvis jeg var dig ville jeg tage det som en udfordring! Det lyder som om at du efterhånden har en del erfaring med ASP, så det burde være muligt for dig at finde en tutorial ved hjælp af google som kan hjælpe dig. Jeg kan selv kun PHP, men ud fra min erfaring derfra ved jeg at billedupload ikke er det sværeste at rode sig ud i. Tag chancen og prøv selv. Du kan kun bliver klogere af det.

Tak for tippet.. jeg vil gærne høre fra folk om de ved hvor man kan finde et script, en tutorial, eller lave et script der opfylder mine krav. jeg vil også selv gå i gang med at lede, igen, men håber stadigvæk på at få et svar herinde fra.

Nu har jeg fundet mig et Upload script, men når jeg bruger det får jeg fejlen: "Error Type:
Scripting.FileSystemObject.1 (0x800A0035)
File not found.
fileupload.inc, line 202"

Min "fileupload.inc" ser sådan her ud:

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

Er der nogen der kan se hvad der er galt..
Og med hensyn til Webhotel så er det hostet af www.B-One.Net

Det er stadig alle point der gælder til den der kan hjælpe mig..

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..

Tråd lukket - løste selv problemet