邮件服务器-邮件系统-邮件技术论坛(BBS)

标题: 请问有什么办法把公共文件夹的文件列表调用在首页上显示呢？ [打印本页]

作者: jae 时间: 2007-11-29 10:14
标题: 请问有什么办法把公共文件夹的文件列表调用在首页上显示呢？
请问有什么办法把公共文件夹的文件列表调用在首页上显示呢？

我的想法是把公共文件夹的功能当做公司内部的信息、通知发布区的。这样再把他的列表调用显示在进入邮箱的首页中。

请问高手朋友们有什么办法可以做到吗？

谢谢

作者: rayer 时间: 2007-11-29 11:48
这个做asp开发能实现

作者: air831 时间: 2007-12-12 08:44
当然可以，我是这样做的

<%
dim pf1
set pf1 = server.createobject("easymail.PubFolderManager")

dim pfvl
set pfvl = server.createobject("easymail.PubFolderViewLimit")

allnum = pf1.PubFoldersCount

i = 0

dim pfilename
dim count
vi = 0

do while i < allnum
pf1.GetFolderInfoByIndex i, pfilename, admin, permission, name, createTime, count, maxid, maxitem, maxsize

canView = false

if admin = Session("wem") or isadmin() = true then
canView = true
vi = vi + 1
else
pfvl.Load pfilename
if pfvl.IsShow(Session("mail")) = true then
canView = true
vi = vi + 1
end if
end if

if canView = true then
Response.Write "<tr><td width=54 rowspan=2 align='center' ><img src='images/info.gif' width=15 height=15></td><td width=236 ><a href='showpf.asp?fileid=" & Server.URLEncode(pfilename) & "&" & getGRSN() & "' style='text-decoration: none'>" & server.htmlencode(name) & "</a></td>"
Response.Write "<td width='244' align='center'>共 <font color=#FF0000><b>" & count & "</b></font> 条</td></tr><tr><td colspan=2 height=1 bgcolor='#CCCCCC'></td></tr>"
end if

pfilename = NULL
admin = NULL
count = NULL
i = i + 1
loop

set pf1=noting
set pfvl=noting
%>

欢迎光临邮件服务器-邮件系统-邮件技术论坛(BBS) (http://bbs.5dmail.net/)