⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 createpf.asp

📁 蓝芒3.0A最新所有功能完整破解版
💻 ASP
字号:
🔍 
<!--#include file="passinc.asp" -->

<%
if isadmin() = false then
	response.redirect "noadmin.asp"
end if
%>

<%
if trim(request("PFPermission")) <> "" and Request.ServerVariables("REQUEST_METHOD") = "POST" then
	dim pf
	set pf = server.createobject("easymail.PubFolderManager")

	isok = pf.CreatePubFolder(trim(request("Admin")), CInt(trim(request("PFPermission"))), trim(request("NewPFName")))
	set pf = nothing

	if isok = true then
		Response.Redirect "ok.asp?gourl=showallpf.asp&" & getGRSN()
	else
		Response.Redirect "err.asp?gourl=showallpf.asp&" & getGRSN()
	end if
end if
%>

<HTML>
<HEAD>
<title>Corp.Email</title>
<LINK href="images\hwem.css" rel=stylesheet>
</HEAD>
<script LANGUAGE=javascript>
<!--
function gosub()
{
	if (f1.NewPFName.value != "" && f1.Admin.value != "")
		f1.submit();
}
//-->
</script>

<body>
<br><br><br>
<FORM ACTION="createpf.asp" METHOD="POST" NAME="f1">
<table width="90%" border="0" align="center" cellspacing="0" bgcolor="#EFF7FF">
    <tr>
      <td align="right" width="45%" bgcolor="#dbeaf5" height='28' style='border-top:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;'><font class="s" color="#104A7B"><b>Name of New Public Folder&nbsp;:&nbsp;</b></font></td>
      <td style='border-top:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;'><input type="text" name="NewPFName" size="40" class='textbox'></td>
    </tr>
    <tr>
      <td width="30%" bgcolor="#dbeaf5" align="right" height='28' style='border-bottom:1px #8CA5B5 solid;'><font class="s" color="#104A7B"><b>Permission&nbsp;:&nbsp;</b></font></td>
      <td style='border-bottom:1px #8CA5B5 solid;'>
<select name="PFPermission" class="drpdwn" size="1">
<%
i = 0
ichoose = 1

do while i < 5
	if ichoose <> i then
		response.write "<option value='" & i & "'>" & getPermissionStr(i) & "</option>"
	else
		response.write "<option value='" & i & "' selected>" & getPermissionStr(i) & "</option>"
	end if

	i = i + 1
loop
%>
</select>
      </td>
    </tr>
    <tr>
      <td align="right" bgcolor="#dbeaf5" height='28' style='border-bottom:1px #8CA5B5 solid;'><font class="s" color="#104A7B"><b>Administrator&nbsp;:&nbsp;</b></font></td>
      <td style='border-bottom:1px #8CA5B5 solid;'>
<%
dim eu
set eu = Application("em")
%>
<select name="Admin" class="drpdwn" size="1">
<%
i = 0
allnum = eu.GetUsersCount

do while i < allnum
	eu.GetUserByIndex i, name, domain, comment

	response.write "<option value='" & name & "'>" & name & "</option>"

	name = NULL
	domain = NULL
	comment = NULL

	i = i + 1
loop

set eu = nothing
%>
</select>
      </td>
    </tr>
	<tr>
      <td colspan="7" align="right" bgcolor="#ffffff"><br>
	<input type="button" value="Create" onclick="javascript:gosub();" class="Bsbttn">&nbsp;
	<input type="button" value="Cancel" onclick="javascript:history.back();" class="Bsbttn">
      </td>
    </tr>
</table>
</Form>
</BODY>
</HTML>

<%
function getPermissionStr(pm)
	if pm = 0 then
		getPermissionStr = "Modifiable by the author"
	elseif pm = 1 then
		getPermissionStr = "Modifiable and deletable by the author"
	elseif pm = 2 then
		getPermissionStr = "Modifiable or deletable only by administrators"
	elseif pm = 3 then
		getPermissionStr = "No follow-ups allowed"
	elseif pm = 4 then
		getPermissionStr = "Completely locked up (no follow-ups or modification allowed)"
	end if
end function
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -