Question

求asp图片上传代码

两个文件,一个文件是上传页面,上传页面分为两个块,一个是上传图片,另外一个是输入图片的新名称，如果文件夹里已经存在这个图片则报错返回。第二个页面是管理页面，分页显示图片，并附带删除，修改名字的按钮。
要求是图片存在一个指定的文件夹里，而不是存在数据库里面，图片小于200k，最好没有扩展名限制，谢谢了！！！

Answer 1

其实就是文件上传，目前asp文件上传可以有两种解决方案，一是借助VB\C\之类的语言写的ActiveX控件，但是目前比较常用的是无组件上传，目前比较知名的是化境的无组件上传。原理就是利用Adodb.Stream。。当然楼上推荐的也可以。

Answer 2

去网上找“风声无组件上传类”，是ASP上传

Answer 3

搜索“无忧上传组件”，我一直用这个，很好用，也很好找。

Answer 4

这样的东西 需要自己写的

找我吧 给你一个事例代码

Answer 5

给你一个刚写的 不过你可以改 确保你的服务器Adodb.Stream 没有被禁止
功能
文件上传到指定的文件夹 还是原文件名 文件格式没有限制 你可以加限制程序
大小5m之内顺利上传 大了也可以上传 不过时间就长了
至于文件路径保存到数据库就得你自己写了只要会数据库操作很简单的
9.asp 文件上传页面
<form name="form1" method="post" action="4.asp" enctype="multipart/form-data" >
<p>
<input type="file" name="file1"/>
<input type="submit" value="提交" />
</p>
</form>
4.asp 接收文件页面
<%
filesize=Request.TotalBytes '获得上传文件的大小
if filesize="0" then
response.Redirect "9.asp"
else
filedata=Request.BinaryRead(filesize) '获得上传文件的二进制数据
newline=chrB(13) & chrB(10) 'newline表示二进制的回车符
set st1=Server.CreateObject("Adodb.Stream")
st1.Type= 1
st1.Mode=3
st1.open
st1.Write filedata '把获取的请求数据写入st1对象中，以供以后截取使用
return=chrB(13)&chrB(10) '构造一个回车换行符号
divider=leftB(filedata,clng(instrb(filedata,return))-1)
datastart=instrb(filedata,return&return)
dataend=instrb(datastart,filedata,divider)
set st2 = Server.CreateObject("adodb.stream")
st2.Type = 1
st2.Mode =3
st2.Open
st1.position=datastart+3
st1.copyto st2, dataend-datastart-6
istart=instrb(1,filedata,return)
formend=instrb(istart,filedata,return&return)
namedata=midb(filedata,istart,formend-istart)
dim mystream
set mystream=server.createobject("adodb.stream")
mystream.type=2
mystream.mode=3
mystream.open
mystream.writetext namedata
mystream.position=0
mystream.charset="gb2312"
mystream.position=2
bstr=mystream.readtext()
startpos=instrrev(bstr,"\")+1
posend=instrrev(bstr,"""")
wenben=mid(bstr,startpos,posend-startpos)
response.Write "您上传的文件为"&wenben
st2.SaveToFile server.MapPath("../upimage/")&"/"&wenben,2
'这里有个upimage文件夹 用来管理上传的文件
end if %>