<%
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
%>
เวลา Upload
ก็แค่ ใส่โคด ฟิล์ของฐานข้อมูล= GetbinaryFile(Path ของโฟล์รูปภาพนะ)
Date :
15 ม.ค. 2548 18:19:36
By :
nugul
No. 5
Guest
<%
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
%>
เวลา Upload
ก็แค่ ใส่โคด ฟิล์ของฐานข้อมูล= GetbinaryFile(Path ของโฟล์รูปภาพนะ)