怎么asp 限制上传图片类型?
答案:2 悬赏:10
解决时间 2021-01-08 04:45
- 提问者网友:了了无期
- 2021-01-07 06:13
怎么asp 限制上传图片类型?
最佳答案
- 二级知识专家网友:未来江山和你
- 2021-01-07 06:26
给你一个上传文件的代码
upload.asp
<%@ language="vbscript" %>
示例结果
<%
Dim Upload,successful,tempCls,image,smallImage
'===============================================================================
set Upload=new AnUpLoad '创建类实例
Upload.SingleSize=200*1024 '设置单个文件最大上传限制,按字节计;默认为不限制
Upload.MaxSize=200*1024 '设置最大上传限制,按字节计;默认为不限制
Upload.Exe="jpg|bmp|gif" '设置合法扩展名,以|分割,忽略大小写
Upload.GetData() '获取并保存数据,必须调用本方法
'===============================================================================
if Upload.Err>0 then '判断错误号,如果myupload.Err<=0表示正常
response.write Upload.Description '如果出现错误,获取错误描述
else
savePath=server.MapPath("pics") '图片保存路径
if upload.Forms("Product_Image")<>"" then
set tempCls=upload.files("Product_Image")
if tempcls.SaveToFile(savePath,0) then image=tempCls.FileName
set tempCls=nothing
end if
sql="select * from [product]"
set rs=server.CreateObject("adodb.recordset")
rs.Open sql,conn,1,3
rs.AddNew()
rs("Product_Introduce")=Upload.Forms("Product_Introduce")
rs("Product_Image")="pics/" & image
rs("Product_Date")=now()
rs.Update()
set rs=nothing
if not err then response.Write "成功添加到产品库!返回继续添加"
end if
set Upload=nothing '销毁类实例
%>
你看看吧,我就不解释了
upload.asp
<%@ language="vbscript" %>
<%
Dim Upload,successful,tempCls,image,smallImage
'===============================================================================
set Upload=new AnUpLoad '创建类实例
Upload.SingleSize=200*1024 '设置单个文件最大上传限制,按字节计;默认为不限制
Upload.MaxSize=200*1024 '设置最大上传限制,按字节计;默认为不限制
Upload.Exe="jpg|bmp|gif" '设置合法扩展名,以|分割,忽略大小写
Upload.GetData() '获取并保存数据,必须调用本方法
'===============================================================================
if Upload.Err>0 then '判断错误号,如果myupload.Err<=0表示正常
response.write Upload.Description '如果出现错误,获取错误描述
else
savePath=server.MapPath("pics") '图片保存路径
if upload.Forms("Product_Image")<>"" then
set tempCls=upload.files("Product_Image")
if tempcls.SaveToFile(savePath,0) then image=tempCls.FileName
set tempCls=nothing
end if
sql="select * from [product]"
set rs=server.CreateObject("adodb.recordset")
rs.Open sql,conn,1,3
rs.AddNew()
rs("Product_Introduce")=Upload.Forms("Product_Introduce")
rs("Product_Image")="pics/" & image
rs("Product_Date")=now()
rs.Update()
set rs=nothing
if not err then response.Write "成功添加到产品库!返回继续添加"
end if
set Upload=nothing '销毁类实例
%>
你看看吧,我就不解释了
全部回答
- 1楼网友:酒者煙囻
- 2021-01-07 06:41
formsize=request.totalbytes 这个就是文件大小,文件类型你可以判断文件后缀名
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯