fly406 发表于 2008-6-18 01:27

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

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

┡陥鯯 发表于 2008-6-18 17:27

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

页: [1]

编程论坛