哪位帮忙给个无组件上传图片的代码,

<%
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
%>