saya coba bantu neh...
<form enctype="multipart/form-data" action="lanjut.php" method="post">
<input type="hidden" name="MAX_FILE_SIZE" value="1000" > ---->menentukan
besarnya gile
kirim file: <input name="namafile" type="file">
<input type=submit value="kirim'>
</form>
setelah itu bikin file lanjut.php
perlu diketahui jika file tersebut berhasil diupload maka akan terdefinisi
variabel2:
1. $namafile --------> nama temporari
2. $namafile_name ------------> nama file yang diupload
3. $namafile_size --------> besar file
4. $namafile_type -------->tipe file
setelah itu kita kopi file temporari ke direktori akan ditentukan
seperti berikut:
$cek=copy ($namafile,<direktori tujuan>.$namafile_name);
jika berhasil $cek akan bernilai true....
Semoga membantu....
On Mon, 12 Feb 2001, Hendikin wrote:
> kalo php khan udah ada fungsi built innya
>
> Hendikin
>
> ASP Programmer / WEB Developer
>
> HP : 0816-1369935
>
> Ph : 021-3142356
>
>
>
> -----Original Message-----
> From: Sidharta, Robby [mailto:[EMAIL PROTECTED]]
> Sent: Sunday, February 11, 2001 10:10 PM
> To: [EMAIL PROTECTED]
> Subject: Re: [MasterWeb] teknik upload
>
>
> Kin, bisa bikinin versi PHP nya ngga?
>
> robby
>
>
>
> ----- Original Message -----
> From: Hendikin <[EMAIL PROTECTED]>
>
> > ok deh masa segitu aja marah :)
> > jangan gitu donk
> > yang udah ogut kasih yang lengkap
> > mo upload untuk upload file
> >
> > tapi kalo kepanjangan jangan protes yach
> >
> > kasih nama upload.asp
> > <FORM METHOD="Post" ENCTYPE="multipart/form-data"
> > ACTION="outputFile.asp">
> > <input type="hidden" value="prod5.gif" name="namafile">
> > <input type="file" name="blob" size="20"><input type="submit" value="Up
> > Load" name="B2"></font></p>
> > </form>
> >
> > kalo yang ini kasih nama outputfile.asp
> >
> > <%
> >
> > Response.Expires=0
> > Response.Buffer = TRUE
> > Response.Clear
> > 'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes))
> > byteCount = Request.TotalBytes
> > 'Response.BinaryWrite(Request.BinaryRead(varByteCount))
> >
> > RequestBin = Request.BinaryRead(byteCount)
> > Dim UploadRequest
> > Set UploadRequest = CreateObject("Scripting.Dictionary")
> >
> > BuildUploadRequest RequestBin
> >
> > namafile = UploadRequest.Item("namafile").Item("Value")
> >
> > contentType = UploadRequest.Item("blob").Item("ContentType")
> > filepathname = UploadRequest.Item("blob").Item("FileName")
> > filename =
> Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
> > value = UploadRequest.Item("blob").Item("Value")
> >
> > 'Create FileSytemObject Component
> > Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
> >
> > 'Create and Write to a File
> > pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
> > Set MyFile =
> >
> ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PAT
> > H_INFO")),pathEnd)&"\" & Session("Userid") &"\"& namafile)
> >
> > For i = 1 to LenB(value)
> > MyFile.Write chr(AscB(MidB(value,i,1)))
> > Next
> >
> > MyFile.Close
> > %>
> > <!--#include file="uploadprocedure.asp"-->
> > <script language="vbscript">
> > msgbox ("Upload Complete")
> > history.back(0)
> > </script>
> >
> >
> > kalo yang satu ini kasih nama file uploadprocedure.asp
> >
> > <%
> >
> >
> >
> > Sub BuildUploadRequest(RequestBin)
> > 'Get the boundary
> > PosBeg = 1
> > PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
> > boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
> > boundaryPos = InstrB(1,RequestBin,boundary)
> > 'Get all data inside the boundaries
> > Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))
> > 'Members variable of objects are put in a dictionary object
> > Dim UploadControl
> > Set UploadControl = CreateObject("Scripting.Dictionary")
> > 'Get an object name
> > Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition"))
> > Pos = InstrB(Pos,RequestBin,getByteString("name="))
> > PosBeg = Pos+6
> > PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
> > Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
> > PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filename="))
> > PosBound = InstrB(PosEnd,RequestBin,boundary)
> > 'Test if object is of file type
> > If PosFile<>0 AND (PosFile<PosBound) Then
> > 'Get Filename, content-type and content of file
> > PosBeg = PosFile + 10
> > PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
> > FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
> > 'Add filename to dictionary object
> > UploadControl.Add "FileName", FileName
> > Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
> > PosBeg = Pos+14
> > PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
> > 'Add content-type to dictionary object
> > ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
> > UploadControl.Add "ContentType",ContentType
> > 'Get content of object
> > PosBeg = PosEnd+4
> > PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
> > Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
> > Else
> > 'Get content of object
> > Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
> > PosBeg = Pos+4
> > PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
> > Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
> > End If
> > 'Add content to dictionary object
> > UploadControl.Add "Value" , Value
> > 'Add dictionary object to main dictionary
> > UploadRequest.Add name, UploadControl
> > 'Loop to next object
> > BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)
> > Loop
> >
> > End Sub
> >
> > 'String to byte string conversion
> > Function getByteString(StringStr)
> > For i = 1 to Len(StringStr)
> > char = Mid(StringStr,i,1)
> > getByteString = getByteString & chrB(AscB(char))
> > Next
> > End Function
> >
> > 'Byte string to string conversion
> > Function getString(StringBin)
> > getString =""
> > For intCount = 1 to LenB(StringBin)
> > getString = getString & chr(AscB(MidB(StringBin,intCount,1)))
> > Next
> > End Function
> > %>
>
>
>
> Belanja Komputer & PC Asesoris Diskon 40% hanya di www.fastncheap.com
> Tempat Asik Hosting Indonesia www.neocyber.net
> Dapatkan Paket-Paket Website www.dlanet.com
>
> -------[ Master Web Indonesia - www.master.web.id ] -------
> Berlangganan : [EMAIL PROTECTED]
> Stop Berlangganan : [EMAIL PROTECTED]
> Arsip MailingList : [EMAIL PROTECTED]
> -----------------------------------------------------------
>
>
>
>
> Belanja Komputer & PC Asesoris Diskon 40% hanya di www.fastncheap.com
> Tempat Asik Hosting Indonesia www.neocyber.net
> Dapatkan Paket-Paket Website www.dlanet.com
>
> -------[ Master Web Indonesia - www.master.web.id ] -------
> Berlangganan : [EMAIL PROTECTED]
> Stop Berlangganan : [EMAIL PROTECTED]
> Arsip MailingList : [EMAIL PROTECTED]
> -----------------------------------------------------------
>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
