📄 ff_showall.asp
字号:
<!--#include file="passinc.asp" -->
<%
dim spf
set spf = server.createobject("easymail.ShareFolder")
dim ei
set ei = Application("em")
'-----------------------------------------
dim userweb
set userweb = server.createobject("easymail.UserWeb")
userweb.Load Session("wem")
allnum = userweb.Count
%>
<HTML>
<HEAD>
<title>Corp.Email</title>
<LINK href="images\hwem.css" rel=stylesheet>
</HEAD>
<body>
<br>
<br>
<table width="90%" border="0" align="center" cellspacing="0" bgcolor="#EFF7FF" style='border-top:1px #8CA5B5 solid;'>
<tr bgcolor="#dbeaf5" style='border:1px #8CA5B5 solid;font-size: 9pt;'>
<td colspan="6" height="28" nowrap style="border-left:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;"><p align="center"><font class="s" color="#104A7B"><b>Your favorite shared folders (<%=allnum %>)</b></font></td>
</tr>
<tr bgcolor="#dbeaf5" style='border:1px #8CA5B5 solid;font-size: 9pt;'>
<td width="8%" height="25" nowrap style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;"><p align="center">No.</td>
<td width="26%" nowrap style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;"><p align="center">Folder Name</td>
<td width="26%" align="center" nowrap style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">Accounts</td>
<td width="26%" align="center" nowrap style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">Mail Address</td>
<td width="6%" align="center" nowrap style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">Edit</td>
<td width="6%" align="center" nowrap style="border-left:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">Remove</td>
</tr>
<%
i = 0
dim username
dim foldername
do while i < allnum
userweb.GetFriendFolderInfo i, username, foldername
Response.Write "<tr><td height='24' style='border-bottom:1px #8CA5B5 solid;'><p align='center'>" & i + 1 & "</td>"
if foldername <> "att" then
Response.Write "<td style='border-bottom:1px #8CA5B5 solid;'><p align='center'><a href=""listmail.asp?sname=" & Server.URLEncode(username) & "&sfname=" & Server.URLEncode(foldername) & "&" & getGRSN() & """>" & server.htmlencode(foldername) & "</a></td>"
else
Response.Write "<td style='border-bottom:1px #8CA5B5 solid;'><p align='center'><a href=""listatt.asp?sname=" & Server.URLEncode(username) & "&sfname=" & Server.URLEncode(foldername) & "&" & getGRSN() & """>Network Storage</a></td>"
end if
Response.Write "<td style='border-bottom:1px #8CA5B5 solid;'><p align='center'>" & server.htmlencode(username) & "</td>"
Response.Write "<td style='border-bottom:1px #8CA5B5 solid;'><p align='center'>" & server.htmlencode(ei.GetUserMail(username)) & " </td>"
Response.Write "<td style='border-bottom:1px #8CA5B5 solid;' align='center'><a href='ff_editsharefolder.asp?username=" & Server.URLEncode(username) & "&foldername=" & Server.URLEncode(foldername) & "&" & getGRSN() & "'><img src='images\edit.gif' border='0' alt='Edit'></a></td>"
Response.Write "<td style='border-bottom:1px #8CA5B5 solid;' align='center'><a href='ff_delsharefolder.asp?index=" & i & "&" & getGRSN() & "'><img src='images\disshareff.gif' border='0' alt='Remove'></a></td>"
Response.Write "</tr>"
username = NULL
foldername = NULL
i = i + 1
loop
allnum = spf.Count
%>
<tr><td bgcolor="#ffffff" colspan="6" align="right"><br>
<input type="button" value="Add to favorite" onclick="javascript:location.href='ff_addsharefolder.asp?<%=getGRSN() %>'" class="Bsbttn">
</td></tr>
</table>
<br>
<table width="90%" border="0" align="center" cellspacing="0">
<tr><td><hr size="1" color="#8CA5B5"></td></tr>
</table>
<br>
<table width="90%" border="0" align="center" cellspacing="0" bgcolor="#EFF7FF" style='border-top:1px #8CA5B5 solid;'>
<tr bgcolor="#dbeaf5" style='border:1px #8CA5B5 solid;font-size: 9pt;'>
<td colspan="6" height="28" nowrap style="border-left:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;"><p align="center"><font class="s" color="#104A7B"><b>System shared folders (<%=allnum %>)</b></font></td>
</tr>
<tr bgcolor="#dbeaf5" style='border:1px #8CA5B5 solid;font-size: 9pt;'>
<td width="8%" height="25" nowrap style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;"><p align="center">No.</td>
<td width="30%" nowrap style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;"><p align="center">Folder Name</td>
<td width="30%" align="center" nowrap style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">Accounts</td>
<td width="26%" align="center" nowrap style="border-left:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">Mail Address</td>
<td width="8%" align="center" nowrap style="border-left:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">Add</td>
</tr>
<%
i = 0
do while i < allnum
spf.GetInfo i, username, foldername
if IsNull(username) = false then
userstate = ei.GetUserState(username)
else
userstate = 1
end if
if userstate = 0 then
if foldername <> "att" then
showfoldername = server.htmlencode(foldername)
else
showfoldername = "Network Storage"
end if
Response.Write "<tr><td height='24' style='border-bottom:1px #8CA5B5 solid;' align='center'><p align='center'>" & i + 1 & "</td>"
Response.Write "<td style='border-bottom:1px #8CA5B5 solid;' align='center'><p align='center'>" & showfoldername & "</td>"
Response.Write "<td style='border-bottom:1px #8CA5B5 solid;' align='center'><p align='center'>" & server.htmlencode(username) & "</td>"
Response.Write "<td style='border-bottom:1px #8CA5B5 solid;' align='center'><p align='center'>" & server.htmlencode(ei.GetUserMail(username)) & "</td>"
if Session("wem") <> username and userweb.HaveThisFriendFolder(username, foldername) = false then
Response.Write "<td align='center' style='border-bottom:1px #8CA5B5 solid;' align='center'><a href='ff_addsharefolder.asp?username=" & Server.URLEncode(username) & "&foldername=" & Server.URLEncode(foldername) & "&" & getGRSN() & "'><img src='images\shareff.gif' border='0' alt='Add to my favorite shared folders'></a></td>"
else
Response.Write "<td style='border-bottom:1px #8CA5B5 solid;' align='center'> </td>"
end if
Response.Write "</tr>"
end if
i = i + 1
if userstate = 2 then
spf.Remove username, foldername
i = i - 1
end if
username = NULL
foldername = NULL
loop
%>
</table>
<br><br>
<div style="position: absolute; left: 20; top: 10;">
<a href="help.asp#ff_showall" target="_blank"><img src="images/help.gif" border="0" alt="Help"></a></div>
</BODY>
</HTML>
<%
set userweb = nothing
set ei = nothing
set spf = nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -