叩求asp上传文件组件！急！

zsh888 2009-01-07 04:38:20

以前的asp文件上传组件只能在我indow2000下用，结果服务器升级成2003不能用了。叩求各位大侠提供一个好用的支持2003的文件上传组件，可以控制上传文件大小和类型，可以改文件名的，先作揖感谢了！

...全文

284 19 打赏收藏转发到动态举报

写回复

用AI写文章

19 条回复

切换为时间正序

请发表友善的回复…

发表回复

lty123741826 2010-11-23

打赏
举报

用这个upload_5xsoft.inc
其实就是化境
上网搜下吧

飛雪傳奇 2010-11-23

打赏
举报

关注一下，也在找相关的东西

nerissa 2009-01-31

打赏
举报

我用的是ASPUPLOAD组件，个人认为还行。总共就两下页面。你根据自己的情况修改一下得啦。
dsfj_up.asp页面。
<BODY BGCOLOR="#FFFFFF">

<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="dsfj_upsub.asp" target="_self">
<br>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25" colspan="2" bgcolor="#999999"><div align="center">阳光农业相互保险公司文件上传系统</div></td>
</tr>
<tr>
<td width="75" height="25"> </td>
<td width="425">说明：可后缀为.bmp .jpg .gif .doc .xls .png .rar </td>
</tr>
<tr> <td colspan="2">

<TABLE border="0" cellpadding="0" cellspacing="0" bordercolor="#999999" id="parts" width="500"> </TABLE>
</td>
</tr>
<tr>
<td colspan="2"><input name="Submit" type="button" class="btbg" onclick="javascript:Addparts()" value="增加文件" /></td>
</tr>
<tr>
<td colspan="2"><div align="center">
<input name="SUBMIT" type=SUBMIT class="btbg" value="上传" />

</div></td>
</tr>
</table>
<p> </p>
</FORM>
</BODY>

</HTML>
<script>
function Addparts()
{

var row = parts.insertRow(parts.rows.length);//id=recordTable
var col = row.insertCell(0);
var i = row.rowIndex;

col.innerHTML = " <input type='file' name='file"+ i + "' value='' style='width:300px; margin-left:5px; margin-right:40px; text-align:center;' onpropertychange='checkFile(this)'>";
col = row.insertCell(1);
col.innerHTML = " <textarea name='dsfj_sm"+i+"' value='' style='width:190px; margin-right:20px;'> </textarea>";
col = row.insertCell(2);
col.innerHTML = " <input type='button' name='texClassOne"+ i +"' value='删除' onclick='this.parentNode.parentNode.parentNode.deleteRow(this.parentNode.parentNode.rowIndex) ;'>";

}
function checkFile(obj){
var oExten = obj.value.replace(/^.*\.([^\.]*)$/, '$1').toLowerCase();
if(oExten != 'jpg'&& oExten != 'gif'&&oExten!='bmp'&&oExten!='png'&&oExten!='rar'&&oExten!='doc'&&oExten!='xls'&&oExten!='txt'){
obj.outerHTML = obj.outerHTML;
}

}

</script>
******************************第一页内容完毕**************************************
dsfj_upsu.asp页面
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>
</body>
</html>



<%dim path,myyear,mymonth,mydate
if year(date)<10 then
myyear=0&year(date)
else
myyear=year(date)
end if
if month(date)<10 then
mymonth=0&month(date)
else
mymonth=month(date)
end if

mydate=myyear&"-"&mymonth
Set Upload = Server.CreateObject("Persits.Upload")

' Do not throw the "Wrong ContentType error first time out
Upload.IgnoreNoPost = True
mypath="upload/"&mydate
path=Server.MapPath(mypath)

Set fso=Server.CreateObject("Scripting.FileSystemObject")'检查文件夹是否存在，不存在则建立
if fso.FolderExists(path)=false then
fso.CreateFolder(path)
end if
Set fso=nothing
'response.Write path

dim mypath
Count = Upload.Save(path)
'response.Write Count

If Count > 0 Then
dim filenameok,ii
ii=0
set rs=Server.CreateObject("adodb.recordset")
sql="select * from jqxdingshunfj"
rs.open sql,conn,1,3
For Each File in Upload.Files
filenameok=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&"-"& File.FileName '文件重命名
File.move Path & "\"&filenameok'保存文件
' Response.Write "File saved as " & File.Path & "<BR>"
' response.Write("<P>")
'response.Write "说明"&ii&"为""："
'response.Write upload.form("sm"&ii&"")
'response.Write("<P>")
' response.Write "ck_id为""："
'response.Write upload.form("ckid")
' response.Write("<P>")
' response.Write "ds_id为""："
' response.Write upload.form("dsid")
' response.Write("<P>")
' response.Write "ba_bdcsyxbah为""："
' response.Write upload.form("ba_bdcsyxbah")
'response.Write("<P>")
rs.addnew()
rs("jqxds_id")=trim(upload.form("dsid"))
rs("ck_id")=trim(upload.form("ckid"))
rs("ba_id")=trim(upload.form("baid"))
rs("dsfj_sm")=trim(upload.form("dsfj_sm"&ii&""))
rs("ba_bdcjqxbah")=trim(upload.form("ba_bdcjqxbah"))
rs("dsfj_name")=mydate&"/"&filenameok
rs("addsj")=now()
rs.update()
response.Write "文件"&ii&"上传成功......"
' response.Write filenameok
response.Write("<P>")
ii=ii+1

next
rs.close
set rs=nothing
response.Write("所有文件上传成功")
if upload.form("zhuijia")<>"" and upload.form("zhuijia")=1 and isnumeric(upload.form("zhuijia"))then
RESPONSE.Write("<P>")
response.Write("文件上传成功！")
'response.Write("<meta http-equiv='refresh' content='2;URL=ds_back_update.asp?baid="&trim(upload.form("baid"))&"&ckid="&trim(upload.form("ckid"))&"&dsid="&trim(upload.form("dsid"))&"&ba_bdcjqxbah="&trim(upload.form("ba_bdcjqxbah"))&"&up=1' />")
else
response.Write("<meta http-equiv='refresh' content='2;URL=ds_cx.asp' />")
end if
'Response.Write Count & " file(s) uploaded."
End If
%>

gmlwl 2009-01-11

打赏
举报

无组件不行?

NaNorth 2009-01-11

打赏
举报

推荐化境，GOOGLE搜一下，好多呢

lidong3694 2009-01-09

打赏
举报

CuteFTP 8 Professional 用这个，挺好用的

Anlige 2009-01-09

打赏
举报

http://www.ii-home.cn/mycodes.asp

本组件是继作者原“艾恩ASP无组件上传类”修改整合而成,具有和无组件上传类相同的功能,并且具有无组件类不能相比的优越性能。
能实现的功能主要包括:
自由提取表单数据、自由限制上传扩展名、自由限制上传大小、自由选择文件保存类型(原文件名和时间随机命名)，
既可以单个文件上传又可以多个文件批量上传，
同时可以提取文件的二进制数据,以方便保存到数据库(个人不推荐保存文件二进制数据到数据库)！
具体使用方法请参考demo里面的示例程序！

☆本组件使用vb6.0个人开发
☆作者:Anlige
☆QQ:1034555083/417833272
☆Email:zhanghuiguo@126.com
☆Address:山东青岛 OUC
☆请勿尝试反编译本组件，如有任何意见或建议,如有需要,请联系作者!

microcoy 2009-01-09

打赏
举报

化境无组件上传，实在好用，可以试一试

空心兜兜 2009-01-09

打赏
举报

看来还是IIS升级的问题

md5e 2009-01-09

打赏
举报

2003 有一个文件上传和下载限制,

解决在Windows 2003的 IIS 6.0 中无法上传超过200K的附件以及无法下载超过4M的附件问题
在 IIS 6.0 中，默认设置是特别严格和安全的，最大只能传送 204,800 个字节，这样可以最大限度地减少因以前太宽松的超时和限制而造成的攻击。（在 IIS 6.0 之前的版本中无此限制）

解决办法：
1、先在服务里关闭 iis admin service 服务。
2、找到 windows\system32\inetsrv\ 下的 metabase.xml 文件。
3、用纯文本方式打开，找到 ASPMaxRequestEntityAllowed 把它修改为需要的值（可修改为10M即：10240000），默认为：204800，即：200K。
4、存盘，然后重启 iis admin service 服务。

在 IIS 6.0 中，无法下载超过4M的附件时，可以按以下步骤解决：
1、先在服务里关闭 iis admin service 服务。
2、找到 windows\system32\inetsrv\ 下的 metabase.xml 文件。
3、用纯文本方式打开，找到 AspBufferingLimit 把它修改为需要的值（可修改为20M即：20480000）。
4、存盘，然后重启 iis admin service 服务。