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