下面是一个图片上传的小程序，但如何限制图片的大小和格式呢

shijian58 2004-03-29 05:20:46

<%response.buffer=true
dim id,img
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrB(13)&chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf&bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)
set rs=server.CreateObject ("adodb.recordset")
sql="select * from company where postid='"&session("postid")&"'"
rs.open sql,conn,2,3
rs("logo").appendchunk mydata
rs.update
response.write("图片上传成功！")
%>

...全文

478 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

shijian58 2004-03-30

打赏
举报

终于搞定了哈和

shijian58 2004-03-30

打赏
举报

还是没有搞定，请高手帮忙

fsyxb 2004-03-30

打赏
举报

请问如何限制大小？

andraw2002 2004-03-29

打赏
举报

我用客户端脚本：
<script language="vbscript">
sub ChkFormat(obj)
if obj.value<>"" then
if Instr(obj.value,".jpg")+Instr(obj.value,".gif")+Instr(obj.value,".png")<2 then
msgbox "请选择正确的文件格式！"
obj.select()
exit sub
end if
end if
end sub
</script>
可以把它再改一改，就好用了

chuanyuan88 2004-03-29

打赏
举报

fileExt=lcase(right(file.filename,4))

if fileEXT<>".pdf" and fileEXT<>".doc" and fileEXT<>".ppt" then
response.write "<FIELDSET align=center><LEGEND align=center>文件上传发生错误</LEGEND><br>文件格式不正确　[ <a href=# onclick=history.go(-1)>重新上传</a> ]</fieldset>"
response.end
end if

chuanyuan88 2004-03-29