限制附件大小(lotus)
2012-02-14 10:29
162 查看
有时在页面载入附件时,限制附件的大小
在表单的webquerysave里调用代理(checksize):
Sub Initialize
Dim s As New notessession
Dim doc As notesdocument
Dim neo As Notesembeddedobject
Dim pos As Integer
Dim size As Long
Set doc = s.documentcontext
pos=0
size = 4
size = size * 1024
Forall o In doc.items
If o.Name=$FILE Then
Set neo=doc.getattachment(o.Values(0))
If neo.filesize>10 Then
Call neo.remove
pos=1
End If
End If
End Forall
Call doc.save(True,False)
If pos=1 Then
doc.errormsg=附件太大,无法上传
End If
End Sub
</< span>
在表单的webquerysave里调用代理(checksize):
Sub Initialize
Dim s As New notessession
Dim doc As notesdocument
Dim neo As Notesembeddedobject
Dim pos As Integer
Dim size As Long
Set doc = s.documentcontext
pos=0
size = 4
size = size * 1024
Forall o In doc.items
If o.Name=$FILE Then
Set neo=doc.getattachment(o.Values(0))
If neo.filesize>10 Then
Call neo.remove
pos=1
End If
End If
End Forall
Call doc.save(True,False)
If pos=1 Then
doc.errormsg=附件太大,无法上传
End If
End Sub
</< span>
相关文章推荐
- 限制附件大小(lotus)
- outlook 2010 突破附件大小限制
- 巧妙突破大容量邮箱附件大小限制
- itop修改附件上传大小限制
- hMailServer之发送附件大小限制
- outlook提示邮件附件超出大小限制的解决方法
- discuz 论坛 附件大小限制2M
- .NET里面附件上传大小限制的控制
- 修改WordPress中上传附件2M大小限制的方法
- nginx 更改配置client_max_body_size没有生效 nginx.conf 修改默认限制上传附件大小
- 附件上传大小受限制 视频上传 dedecms
- Linux部署禅道及默认端口修改和附件大小限制修改和使用过程各种排坑
- TFS2013 附件大小限制修改
- .NET里面附件上传大小限制的控制
- 巧妙突破大容量邮箱附件大小限制
- 修改Linux中发送邮件中附件大小的限制
- MSCRM之附件文件大小限制修改方法
- c# 上传附件大小限制的问题
- asp.net 表单上传 限制附件大小
- .NET里面附件上传大小限制的控制