| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 516 人关注过本帖
标题:急,ASP图片上传问题
只看楼主 加入收藏
masxuxiao
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2012-11-28
结帖率:0
收藏
已结贴  问题点数:20 回复次数:5 
急,ASP图片上传问题
本地测试中doc|xls|ppt和JPG上传都是正常都,但放到服务器上后只有doc|xls|ppt上传正常,JPG大小在50K左右以上时就超时了,而其他文件几M也正常,这是为什么啊?
贴上代码:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="admin_upload.INC"-->
<html>
<head>
<title>文件上传</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<p>
<%
dim upload,f_folder,file,formPath,iCount,filename,fileExt,filesizemin,filesizemax

filesizemin=100
filesizemax=500000*1024
set upload=new upload_5xSoft '建立上传对象
f_folder=upload.form("upfilefolder")
d_time=upload.form("d_time")
d_zz=upload.form("d_zz")
d_bt=upload.form("d_bt")
d_sm=upload.form("d_sm")

'********************************列出所有上传文件***************************************************
For each formName in upload.objFile
set file=upload.file(formName)
If file.filesize>0 then

    '********************************检测文件大小***************************************************
    If file.filesize<filesizemin Then
        response.write "你上传的文件太小了 [ <a href=# onclick=history.go(-1)>重新上传</a> ]"
    ElseIf file.filesize>filesizemax then
        response.write "文件大小超过了 "&filesizemax&"字节 限制 [ <a href=# onclick=history.go(-1)>重新上传</a> ]"
    End If

    '********************************检测文件类型****************************************************
    fileExt=ucase(right(file.filename,4))
    uploadsuc=false
    Forum_upload="RAR|ZIP|SWF|JPG|PNG|GIF|DOC|TXT|CHM|PDF|ACE|MP3|WMA|WMV|MIDI|AVI|RM|RA|RMVB|MOV|XLS"
    Forumupload=split(Forum_upload,"|")
    for i=0 to ubound(Forumupload)
        if fileEXT="."&trim(Forumupload(i)) then
            uploadsuc=true
            exit for
        else
            uploadsuc=false
        end if
    next
    if uploadsuc=false then
        response.write "文件格式不正确 [ <a href=# onclick=history.go(-1)>重新上传</a> ]"
        response.end
    end if

    '********************************建立文件上传的目录文件夹****************************************
    Set upf=Server.CreateObject("Scripting.FileSystemObject")
    If Err<>0 Then
        Err.Clear
        response.write("您的服务器不支持FSO")
        response.end
    End If
   
    If upf.FolderExists(Server.MapPath("../"&f_folder))=False Then
            upf.CreateFolder Server.MapPath("../"&f_folder)        
    End If
    f_ftn="../"&f_folder
    Set upf=Nothing

    '********************************保存上传文件至文件夹*****************************************
    randomize
    ranNum=int(900*rnd)+100
    filename=f_ftn&"/"&day(now)&"_"&ranNum&"_"&file.filename
    if file.filesize>filesizemin and file.filesize<filesizemax then
    file.SaveAs Server.mappath(filename)
    dim conn1
    set conn1=CreateObject("ADODB.Connection")
    conn1.Open "PROVIDER=SQLOLEDB;DATA SOURCE=(local);UID=sa;PWD=111;DATABASE=website"
    sql = "insert into xiazai_biao(d_bt,d_lj,d_sm,d_time,d_zz) values('"&d_bt&"','"&filename&"','"&d_sm&"','"&d_time&"','"&d_zz&"')"
    conn1.execute(sql)
    conn1.close
    set conn = nothing        
    iCount=iCount+1
    end if
set file=nothing
end if
next
set upload=nothing '删除此对象

response.write ("文件上传成功! <a href=# onclick=history.go(-1)>继续上传</a>")
%>
</p>

</body>
</html>
<script type="text/javascript" ></script>
搜索更多相关主题的帖子: ppt html content include title 
2012-11-28 14:06
masxuxiao
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2012-11-28
收藏
得分:0 
有哪位高手能告诉我到底是代码问题还是服务器配置问题啊
2012-11-29 08:57
dzt0001
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:蒙面侠
威 望:5
帖 子:1281
专家分:4998
注 册:2005-10-12
收藏
得分:7 
如果本地能正常使用,服务器上有问题的话,证明代码没有问题,要看服务器是不是有什么限制了。不太容易解决

----我怎能在别人的苦难面前转过脸去----
2012-11-29 09:57
allyr
Rank: 2
等 级:论坛游民
帖 子:2
专家分:27
注 册:2012-11-29
收藏
得分:7 
你去问问你的空间提供商吧、应该是服务器上限制了、

重庆网站建设、北碚网站建设、企业网站建设、找炳卓科技更可靠、
www.allyr .com
2012-11-29 11:11
masxuxiao
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2012-11-28
收藏
得分:0 
是服务器的配置有问题,换了一台服务器就可以了,但具体原因和解决方法还是不清楚
2012-11-30 13:40
阳大爷
Rank: 2
等 级:论坛游民
帖 子:9
专家分:20
注 册:2012-11-15
收藏
得分:7 
看着头都晕了
2012-11-30 17:08
快速回复:急,ASP图片上传问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.047794 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved