 |
|
ต้องขอโทษด้วยนะครับที่เอาโค้ดมาหมด แบบว่ายังดูไม่ออกครับ(ถึงจะดูจากหลายตัวอย่างแล้ว) ยังติดอยู่ตัวเดียวตัวนี้เท่านั้นงานก็จะเสร็จแล้ว
ได้ดูตัวอย่างของตัวนี้แล้วลองแทรกทำดูแต่ยังไม่ได้ครับแต่แทรกไม่ถูก มันออกมาหมดทั้ง root
เลยอยากถามว่าเอาตัวนี้ไปแทรกไว้ก่อนหน้าชื่อไฟล์รูปภาพจะแทรกตรงไหนครับ
(ไม่รู้โค้ดที่ให้จะแทรกได้ป่าวครับ )
ตัวอย่างที่ดู (2943)
TimeNow=Replace(Time, ":", "") จะได้รูปแบบ 15:09:00 แทนที่แล้วจะได้ 150900
ให้นำมารวมกับชื่อไฟล์
filename_new="file\"&TimeNow&"_"&filename_new
------------------------#####################################---------------------
Sub BuildUploadRequest(RequestBin)
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))
FileName = Mid(FileName,InStrRev(FileName , "\" )+1)
'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 = FileName
ValueBeg = PosBeg-1
ValueLen = 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))
ValueBeg = 0
ValueEnd = 0
End If
'Add content to dictionary object
UploadControl.Add "Value" , Value
UploadControl.Add "ValueBeg" , ValueBeg
UploadControl.Add "ValueLen" , ValueLen
'Add dictionary object to main dictionary
UploadRequest.Add name, UploadControl
'Loop to next object
BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)
Loop
End Sub
Tag : - - - -
|
|
|
 |
 |
 |
 |
| Date :
9 ก.พ. 2549 16:44:30 |
By :
Toon |
View :
2256 |
Reply :
2 |
|
 |
 |
 |
 |
|
|
|
|
 |
