up.asp

来自「一个比较完整的企业erp系统」· ASP 代码 · 共 15 行

<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" --> 
<%
Dim objStream 
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = adTypeBinary
objStream.Open
objStream.LoadFromFile "c:\Inetpub\wwwroot\images\logo.gif"
'Response.ContentType = "image/gif"
'Response.BinaryWrite objStream.Read

objStream.SaveToFile "c:\Inetpub\wwwroot\images\logo-2.gif", adSaveCreateOverWrite

objStream.Close
Set objStream = Nothing
%>