Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,028

HOME > PHP > PHP Forum > อัพโหลดแบบ ASCII และ Binary เค้าทำกานไงหรอ ขอบคุงมากงับ

อัพโหลดแบบ ASCII และ Binary เค้าทำกานไงหรอ ขอบคุงมากงับ

เริ่มหัวข้อใหม่

Guest

เค้าทำกานไงหรอ ขอบคุงมากงับ

Tag : - - - -

Date : 29 มิ.ย. 2548 18:09:55

By : งุงิ

View : 2681

Reply : 3

No. 1

Guest

///นี่คือส่วนของfile upload
<%
Sub BuildUploadRequest(RequestBin)
PosBeg = 1
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
boundaryPos = InstrB(1,RequestBin,boundary)
Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))
Dim UploadControl
Set UploadControl = CreateObject("Scripting.Dictionary")
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)
If PosFile<>0 AND (PosFile<PosBound) Then
PosBeg = PosFile + 10
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
UploadControl.Add "FileName", FileName
Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
PosBeg = Pos+14
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
'UploadControl.Add "ContentType",ContentType
PosBeg = PosEnd+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
Else
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
UploadControl.Add "Value" , Value
UploadRequest.Add name, UploadControl
BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)
Loop

End Sub

Function getByteString(StringStr)
For i = 1 to Len(StringStr)
char = Mid(StringStr,i,1)
getByteString = getByteString & chrB(AscB(char))
Next
End Function

Function getString(StringBin)
getString =""
For intCount = 1 to LenB(StringBin)
getString = getString & chr(AscB(MidB(StringBin,intCount,1)))
Next
End Function

%>

Date : 30 มิ.ย. 2548 08:39:05

By : tong

No. 2

Guest

//เป็นการเรียกไฟล์อัพโหลดเข้ามา
<%session.LCID=1033%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
</head>

<body>
<%
'********************************************************************************************************************************************
len1=Len(request("url"))-InstrRev(request("url"),"/")
pathinfo=Server.mappath(Request.ServerVariables("PATH_INFO"))
pathEnd = Len(pathinfo)-len1
filepath=left(pathinfo,pathEnd) '& "db\"

Response.Expires=0
Response.Buffer = TRUE
Response.Clear

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

filepathname = UploadRequest.Item("pics").Item("FileName") //รับไฟล์ภาพมาจากฟอร์ม*********
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))

'*********************************************************************************************************************************************

'***********************สร้างรหัสในการเก็บรูป******************************
mdate=replace(date(),"/","")
mtime=replace(time(),":","")
ntime=left(mtime,5)
newname=mdate+ntime
filename=newname&filename

'********************รับค่าจากการ post***********************************
dates=date
headnews = UploadRequest.Item("headnews").Item("Value") //รับข้อมูลมาจากฟอร์ม******
detail_news=UploadRequest.Item("detail_news").Item("Value")//รับข้อมูลมาจากฟอร์ม******
value = UploadRequest.Item("pics").Item("Value")

limitSize = 115 * 70
if lenB(value) > limitSize then
response.write "<center>File ใหญ่เกิน " & _
formatNumber(limitSize / 1024) & _
" kB คลิก Back กลับไปเลือกใหม่"
response.end
end if

if lenB(value)<>0 then
Sql="INSERT INTO news(dates,headnews,detail_news,news_pics) Values ('"& dates &"','"& headnews &"','"& detail_news &"','"& filename &"')"
conn.begintrans
conn.execute SQL
conn.committrans

'-------------------- upload picture to server ------------------------
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set fileObj = ScriptObject.CreateTextFile(filepath&"..\news\"& filename)
For i = 1 to LenB(value)
fileObj.Write chr(AscB(MidB(value,i,1)))
Next
fileObj.Close

else
Sql="INSERT INTO news(dates,headnews,detail_news) Values ('"& dates &"','"& headnews &"','"& detail_news &"')"
conn.begintrans
conn.execute SQL
conn.committrans

end if
%>

 <center> เพิ่มข่าวใหม่เรียบร้อยแล้วครับ</center>

<META HTTP-EQUIV="REFRESH" CONTENT="3; URL= adminnews.asp">
</body>
</html>

Date : 30 มิ.ย. 2548 08:42:29

By : tong

No. 3

Guest

อธิบายเพิ่มเติม

'-------------------- upload picture to server ------------------------
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set fileObj = ScriptObject.CreateTextFile(filepath&"..\news\"& filename) //จะเห็น\news\นี่คือโฟลเดอร์newsที่เก็บภาพข่าวนะครับ
For i = 1 to LenB(value)
fileObj.Write chr(AscB(MidB(value,i,1)))
Next
fileObj.Close

Date : 30 มิ.ย. 2548 08:45:35

By : tong

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : อัพโหลดแบบ ASCII และ Binary เค้าทำกานไงหรอ ขอบคุงมากงับ

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก