<% 
strFileName = Request("file") '得到前一页提交来的文件地址值 
Set objStream = Server.CreateObject("ADODB.Stream") 
objStream.Type = 1 ' adTypeBinary 
objStream.Open 
objStream.LoadFromFile strFileName 
objStream.SaveToFile Server.MapPath("1.jpg"),2 '保存到当前ASP文件同目录下,名字为1.jpg 
objStream.Close 
%>