📄 ff_sharefolder.asp
字号:
<!--#include file="passinc.asp" -->
<%
foldername = trim(request("foldername"))
dim shareMode
dim showInList
dim perfolders
set perfolders = server.createobject("easymail.PerFolders")
perfolders.Load Session("wem")
if trim(request("save")) = "1" and Request.ServerVariables("REQUEST_METHOD") = "POST" then
pw1 = trim(request("pw1"))
pw2 = trim(request("pw2"))
fshare = trim(request("fshare"))
if trim(request("showInList")) = "" then
showInList = false
else
showInList = true
end if
if pw1 = pw2 and IsNumeric(fshare) = true then
if pw1 <> "" then
perfolders.SetPassword foldername, pw1
end if
perfolders.SetShareMode foldername, CInt(fshare)
perfolders.SetShowInList foldername, showInList
perfolders.Save
sharetoname = trim(request("shareto"))
if sharetoname <> "" and Session("wem") <> sharetoname and (pw1 <> "" or fshare = "2") then
dim userweb
set userweb = server.createobject("easymail.UserWeb")
userweb.Load sharetoname
if userweb.HaveThisFriendFolder(Session("wem"), foldername) = false then
userweb.AddFriendFolder Session("wem"), foldername, pw1
else
userweb.SetPassword Session("wem"), foldername, pw1
end if
userweb.Save
set userweb = nothing
end if
end if
set perfolders = nothing
Response.Redirect "viewmailbox.asp?" & getGRSN()
end if
perfolders.GetInfoByName foldername, shareMode, showInList
%>
<HTML>
<HEAD>
<title>Corp.Email</title>
<LINK href="images\hwem.css" rel=stylesheet>
</HEAD>
<script LANGUAGE=javascript>
<!--
function gosub()
{
if (f1.shareto.value != "" && f1.fshare.value == 0)
{
alert("Operation failed.");
return ;
}
if (f1.shareto.value != "" && f1.fshare.value == 1 && (f1.pw1.value == "" || f1.pw2.value == ""))
{
alert("Password cannot be empty.");
return ;
}
if (f1.pw1.value == f1.pw2.value)
f1.submit();
else
alert("Your password entries did not match.");
}
//-->
</script>
<body>
<form name="f1" method="post" action="ff_sharefolder.asp">
<input type="hidden" name="foldername" value="<%=foldername %>">
<input type="hidden" name="save" value="1">
<br><br>
<%
if foldername = "att" then
foldername = "Network Storage"
end if
%>
<table width="80%" border="0" align="center" cellspacing="0" bgcolor="#EFF7FF">
<tr bgcolor="#dbeaf5"><td align="center" colspan="2" height="30" style="border-left:1px #8CA5B5 solid; border-top:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;"><font class="s" color="#104A7B"><b>Sharing Setting (<%=server.htmlencode(foldername) %>)</b></font>
</td></tr>
<tr>
<td width="40%" height="28" align="right" style="border-bottom:1px #8CA5B5 solid;">Sharing Mode :</td>
<td width="60%" style="border-bottom:1px #8CA5B5 solid;">
<select name="fshare" class="drpdwn" size="1">
<%
i = 0
do while i < 3
if shareMode <> i then
response.write "<option value='" & i & "'>" & getShareStr(i) & "</option>"
else
response.write "<option value='" & i & "' selected>" & getShareStr(i) & "</option>"
end if
i = i + 1
loop
%>
</select>
</td>
</tr>
<tr>
<td height="28" align="right" style="border-bottom:1px #8CA5B5 solid;">Display :</td>
<td style="border-bottom:1px #8CA5B5 solid;"><input type="checkbox" name="showInList" value="checkbox" <% if showInList = true then response.write "checked"%>> Allow system display</td>
</tr>
<tr>
<td height="28" align="right" style="border-bottom:1px #8CA5B5 solid;">Password :</td>
<td style="border-bottom:1px #8CA5B5 solid;"><input type="password" name="pw1" maxlength="32" class="textbox"></td>
</tr>
<tr>
<td height="28" align="right" style="border-bottom:1px #8CA5B5 solid;">Re-enter Password :</td>
<td style="border-bottom:1px #8CA5B5 solid;"><input type="password" name="pw2" maxlength="32" class="textbox"></td>
</tr>
<tr>
<td height="28" align="right" style="border-bottom:1px #8CA5B5 solid;">Shared to specified user :</td>
<td style="border-bottom:1px #8CA5B5 solid;"><input type="text" name="shareto" maxlength="64" class="textbox"></td>
</tr>
<tr><td colspan="2" bgcolor="#ffffff" align="right"><br>
<input type="button" value=" Save " class="Bsbttn" onclick="javascript:gosub();">
<input type="button" value="Return" class="Bsbttn" onclick="javascript:history.back();">
</td></tr>
</table>
<br><br><br>
<div align="center">
<table width="80%" border="0" align="center" cellspacing="0" bgcolor="#EFF7FF" style='border-top:1px #8CA5B5 solid;'>
<tr>
<td colspan="2" height="10">
</td>
</tr>
<tr>
<td width="13%" valign="top"><font color="#FF3333"> *Note 1: </font></td>
<td width="87%">Other internal users can only read the shared folders.
</td>
</tr>
<tr>
<td colspan="2" height="6">
</td>
</tr>
<tr>
<td valign="top"><font color="#FF3333"> *Note 2: </font></td>
<td>If allow system display is checked, the shared folders will be added to the shared folder list.
</td>
</tr>
<tr>
<td colspan="2" height="6">
</td>
</tr>
<tr>
<td valign="top"><font color="#FF3333"> *Note 3: </font></td>
<td>If no password is entered, the original password will be left unchanged.
</td>
</tr>
<tr>
<td colspan="2" height="10">
</td>
</tr>
</table>
</div>
</form>
<br>
<div style="position: absolute; left: 20; top: 15;">
<a href="help.asp#sharefolder" target="_blank"><img src="images/help.gif" border="0" alt="Help"></a></div>
</BODY>
</HTML>
<%
shareMode = NULL
showInList = NULL
set perfolders = nothing
function getShareStr(md)
if md = 0 then
getShareStr = "Not Shared"
elseif md = 1 then
getShareStr = "Shared with Password"
elseif md = 2 then
getShareStr = "Shared without Password"
end if
end function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -