|
 |
| |
การใช้ ฟังก์ชั่น Upload แบบง่าย server.ScriptTimeout=100000 'เพิ่มเวลาในการUpload |
| |
 |
|
|
 |
 |
|
<%
server.ScriptTimeout=100000 'เพิ่มเวลาในการUpload
%>
<%
dim PicTm ,Tx
PicTm= getbinaryfile (Request.QueryString("DATA"))'ให้PicTm เป็นตัวเก็บข้อมูลชั่วคราวของไฟล์ภาพ(Binary)
Tx = BinaryToText(pictm)' เปลี่ยน Binary ====> Ascii
WriteToFile(Tx) ' บันทึกไฟล์
%>
<%
Function WriteToFile(im)
Const ForReading = 1, ForWriting = 2
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
fc=lcase( fso.GetFileName(Request.QueryString("Data")))
if instr(fc,".gif") or instr(fc,".jpg") or instr(fc,".bmp") or instr(fc,".png") then
Set f = fso.OpenTextFile(server.MapPath("\Image") &"\" & fc , ForWriting, True)
f.Write(im)
'chr(34)= "
'......ส่วนเพิ่มเติมในการแสดงรูปเมื่อทำการ Upload แล้ว ทำสำเร็จ
Response.Write "<html> <title> แสดงรูปภาพ </title><body><center><table border=1><tr><td>"
Response.Write "<center><B><font color=#00FD0A class=text > Upload " & fc & " แล้ว วันที่ ที่ดำเนินการ " & date & " " &" </td></tr> "
Response.Write "<tr><td><center> <img src ="
Response.Write chr(34) & server.MapPath("\Image") &"\" & fc & chr(34) & ">"
Response.Write "</td></tr></table></body</html>"
'...................................................................................................................................................
else
'.ถ้า Upload ไม่สำเร็จให้แสดง "ไฟล์ที่ท่านเลือกไม่สามารถ Upload ได้คะ Response.Write "<center><b><font color=" & chr(34) & "#FF00EE "& chr(34) & "> ไฟล์ที่ท่านเลือกไม่สามารถ Upload ได้ค่ะ" & " "
end if
End Function
%>
<%
'......... Function เปลี่ยน Binary ====> Ascii.......................................
Function BinaryToText(Binary)
BinaryToText=""
For i=1 to LenB(Binary)
character=MidB(Binary,i,1)
BinaryToText=BinaryToText & Chr(AscB(character))
Next
End Function
%>
<%
'..... Function อ่าน File รูป ภาพ เป็น Binary...................................
function GetbinaryFile(Sfile)
Dim Ostream
Set Ostream=server.CreateObject("ADODB.Stream")
with Ostream
.Open
.Type=1
.LoadFromFile sFile
getbinaryfile=.Read
set Ostream=nothing
end with
end function
%> 
Tag : - - - -
|
|
|
 |
 |
 |
 |
| Date :
7 ธ.ค. 2547 14:42:19 |
By :
nugul |
View :
2954 |
Reply :
2 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
Thank
|
| |
|
|
| |
| Date :
7 ธ.ค. 2547 15:07:36 |
By :
Thank |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอบคุณครับ
|
| |
|
|
| |
| Date :
30 เม.ย. 2548 06:37:35 |
By :
poyecud37 |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
 Load balance : Server 04
|
