ASP上传图片难题........................

来源:百度知道 编辑:UC知道 时间:2024/05/15 10:30:58
<!--#include FILE="upload.inc"--><%id=request("id")%>
<%

dim upload,file,formName,formPath,iCount,filename,fileExt
set upload=new upload_5xSoft ''建立上传对象
formPath=upload.form("filepath")
content=upload.form("content")
''在目录后加(/)
if right(formPath,1)<>"/" then formPath=formPath&"/"
iCount=0
for each formName in upload.file ''列出所有上传了的文件
set file=upload.file(formName) ''生成一个文件对象
if file.filesize<100 then
Response.Write "<script>alert(""请先选择你要上传的图片"");location.href=""newsupload.asp"";</script>"
response.end
end if

if file.filesize>102400 then
Response.Write "<script>alert(""图片大小超过了限制"");location.href=""newsupload.asp"";</script>"
res

ASP上传图片难题........................
欢迎登陆海纳数据
http://www.seaidc.com/?Union=linlin
特价托管,江苏电信机房,仅2999元,还等什么呢,赶快联系吧*******

虚拟空间租用,加盟代理, v6k0e9ov

用网络U盘上传