📄 showallpf.asp
字号:
<!--#include file="passinc.asp" -->
<%
if Application("em_EnableBBS") = false then
response.redirect "noadmin.asp?errstr=This public folder is closed&" & getGRSN()
end if
dim pf
set pf = server.createobject("easymail.PubFolderManager")
allnum = pf.PubFoldersCount
dim ei
set ei = Application("em")
%>
<HTML>
<HEAD>
<title>Corp.Email</title>
<LINK href="images\hwem.css" rel=stylesheet>
</HEAD>
<body>
<br>
<%
if isadmin() = false then
response.write "<br>"
end if
%>
<table width="90%" border="0" align="center" cellspacing="0" bgcolor="#EFF7FF">
<%
if isadmin() = true then
%>
<tr>
<td colspan="7" align="right" bgcolor="#ffffff"><br>
<input type="button" value="Create" onclick="javascript:location.href='createpf.asp?<%=getGRSN() %>';" class="Bsbttn">
<br>
</td>
</tr><%
end if
%><tr bgcolor="#dbeaf5">
<td colspan="7" height="28" nowrap style="border:1px #8CA5B5 solid;"><p align="center"><font class="s" color="#104A7B"><b>Public Folders (<%=allnum %>)</b></font></td>
</tr>
<tr bgcolor="#dbeaf5">
<td width="7%" nowrap height="25" style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;"><p align="center">No.</td>
<td width="45%" align="center" nowrap style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">Folder Name</td>
<td width="8%" align="center" nowrap style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">Number of<br>Articles</td>
<td width="16%" align="center" nowrap style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">Administrator</td>
<td width="10%" align="center" nowrap style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">MaxSize</td>
<td width="8%" align="center" nowrap style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">Edit</td><%
if isadmin() = true then
%>
<td width="8%" align="center" nowrap style="border-left:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">Delete</td><%
end if
%>
</tr>
<%
i = 0
dim pfilename
dim admin
dim permission
dim name
dim createTime
dim count
dim maxid
dim maxitem
dim maxsize
do while i < allnum
pf.GetFolderInfoByIndex i, pfilename, admin, permission, name, createTime, count, maxid, maxitem, maxsize
Response.Write "<tr><td height='24' style='border-bottom:1px #8CA5B5 solid;'><p align='center'>" & i + 1 & "</td>"
Response.Write "<td style='border-bottom:1px #8CA5B5 solid;'><a href='showpf.asp?fileid=" & Server.URLEncode(pfilename) & "&" & getGRSN() & "'>" & server.htmlencode(name) & "</a> </td>"
Response.Write "<td style='border-bottom:1px #8CA5B5 solid;'><p align='center'>" & count & "</td>"
Response.Write "<td style='border-bottom:1px #8CA5B5 solid;'><p align='center'>" & ei.GetUserMail(admin) & " </td>"
Response.Write "<td style='border-bottom:1px #8CA5B5 solid;'><p align='center'>" & CLng(maxsize/1000) & "K</td>"
if admin = Session("wem") or isadmin() = true then
Response.Write " <td align='center' style='border-bottom:1px #8CA5B5 solid;'><a href='editpf.asp?fileid=" & pfilename & "&" & getGRSN() & "'><img src='images\edit.gif' border='0'></a></td>"
else
Response.Write " <td align='center' style='border-bottom:1px #8CA5B5 solid;'> </td>"
end if
if isadmin() = true then
Response.Write " <td align='center' style='border-bottom:1px #8CA5B5 solid;'><a href='deletepf.asp?fileid=" & pfilename & "&" & getGRSN() & "'><img src='images\del.gif' border='0'></a></td>"
end if
pfilename = NULL
admin = NULL
permission = NULL
name = NULL
createTime = NULL
count = NULL
maxid = NULL
maxitem = NULL
maxsize = NULL
i = i + 1
loop
%>
<%
if isadmin() = true then
%> <tr>
<td colspan="7" align="right" bgcolor="#ffffff"><br>
<input type="button" value="Create" onclick="javascript:location.href='createpf.asp?<%=getGRSN() %>';" class="Bsbttn">
<br>
</td>
</tr><%
end if
%></table>
</BODY>
</HTML>
<%
set ei = nothing
set pf = nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -