我使用的无组件上传,如何在上传的同时过滤一些文件当中的非法字符或内容呢?

oeye 2004-12-23 10:16:38
现在限制文件的类型、文件的大小功能都有了,我还要一个过滤功能,我知道使用asp的opentextfile函数,可具体我不知道该怎样写,希望能得到大家相助,以下是部分源码,麻烦你们告诉我写什么代码,加在什么位置比较好,谢谢!

-----------------------源码开始--------------------
dim upload,file,formName,formPath,iCount
set upload=new upload_5xsoft ''建立上传对象
if upload.form("filepath")="" then ''得到上传目录
Response.write "<script language='javascript'>alert('系统提示:\n\n请输入要上传至的目录!');location.href='javascript:history.back()'</script>"
set upload=nothing
response.end
else
formPath=upload.form("filepath")
''在目录后加(/)
if right(formPath,1)<>"/" then formPath=formPath&"/"
end if
iCount=0
for each formName in upload.objFile ''列出所有上传了的文件
set file=upload.file(formName) ''生成一个文件对象
if Instr(filetype,GetExtendName(file.filename)) then
else
Response.write "<script language='javascript'>alert('系统提示:\n\n不允许上传"&GetExtendName(file.filename)&"类型文件!');location.href='javascript:history.back()'</script>"
set upload=nothing
response.end
end if
if file.filesize>maxsize*1024 then
Response.write "<script language='javascript'>alert('系统提示:\n\n文件大小不能超过"&maxsize&"K,请返回重试!');location.href='javascript:history.back()'</script>"
set upload=nothing
response.end
end if
end if
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
file.SaveAs Server.mappath(formPath&file.FileName) ''保存文件
iCount=iCount+1
end if
set file=nothing
next
set upload=nothing '删除此对象
function GetExtendName(filename)
dim ExtName
ExtName = LCase(FileName)
ExtName = right(ExtName,4)
ExtName = right(ExtName,4-Instr(ExtName,"."))
GetExtendName = ExtName
end function
%>
<script language="javascript">
if (confirm("<%=icount%>个文件上传成功,是否继续上传?"))
window.location.href="javascript:history.back()"
</script>
---------------------------------------------源码结束---------------------------------
...全文
38 点赞 收藏 3
写回复
3 条回复
oeye 2004年12月23日
up again
回复 点赞
oeye 2004年12月23日
up
回复 点赞
oeye 2004年12月23日
这里太旺了,没办法UP一下:(
回复 点赞
发动态
发帖子
ASP
创建于2007-09-28

1.9w+

社区成员

35.7w+

社区内容

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区公告
暂无公告