<%
server.ScriptTimeout="10000"
Dim fname,fsize,Xpath,ComPi
XPath=Request.Form("sendfile")
Save()
function Save()
set XFile=Server.CreateObject("scripting.fileSystemObject")
Set Xstream=server.CreateObject("Adodb.Stream")
fname=lcase(Xfile.GetFileName(Request.Form("sendfile")))
fsize=Xfile.GetFile(Xpath).Size
with xstream
.Open
.Type=1
.LoadFromFile (Xpath)
Getbin=.Read
.SaveToFile (server.MapPath("\Aspmanger\images\" & fname))
end with
end function
%>
ยังไม่ทดลองใช้บน Sever จริง แค่ทดลองบนเครื่องตัวเองแล้วได้ผลดีนะ
Load balance : Server 03
