📄 adg_add.asp

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

<%
issave = trim(request("issave"))
mode = trim(Request("mode"))
sc = trim(Request("sc"))

if issave = "1" and Request.ServerVariables("REQUEST_METHOD") = "POST" then
	dim ads
	set ads = server.createobject("easymail.Addresses")
	ads.Load Session("wem")

	isok = ads.AddGroupInfo(trim(request("CName")), trim(request("Email")))

	ads.Save

	set ads = nothing

	if isok = true then
		if mode = "saveadd" then
			response.redirect "adg_add.asp?sc=" & sc & "&" & getGRSN()
		else
			response.redirect "adg_brow.asp?sc=" & sc & "&" & getGRSN()
		end if
	else
		response.redirect "err.asp?" & getGRSN()
	end if
end if
%>

<html>
<head>
<title>Corp.Email</title>
<LINK href="images\hwem.css" rel=stylesheet>
</head>

<script language="JavaScript">
<!--
function back_onclick() {
	location.href = "adg_brow.asp?sc=<%=sc %>&<%=getGRSN() %>";
}

function gosub() {
	if (f1.CName.value == "")
	{
		alert("Please enter Quickname.");
		f1.CName.focus();
	}
	else if (f1.Email.value == "")
	{
		alert("Please enter Members.");
		f1.Email.focus();
	}
	else
	{
		f1.mode.value = "save"

		if (f1.Email.value.length > 10000)
			f1.Email.value = f1.Email.value.substring(0, 10000);

		f1.submit();
	}
}

function saveadd_onclick() {
	if (f1.CName.value == "")
	{
		alert("Please enter Quickname.");
		f1.CName.focus();
	}
	else if (f1.Email.value == "")
	{
		alert("Please enter Members.");
		f1.Email.focus();
	}
	else
	{
		f1.mode.value = "saveadd"

		if (f1.Email.value.length > 10000)
			f1.Email.value = f1.Email.value.substring(0, 10000);

		f1.submit();
	}
}
// -->
</script>


<body>
<form name="f1" method=post action="adg_add.asp">
<input type="hidden" name="issave" value="1">
<input type="hidden" name="mode">
<input type="hidden" name="sc" value="<%=sc %>">
<input type="hidden" name="id" value="<%=id %>">
  <br>
  <br>
  <div align="center">
    <table width="90%" border="0" align="center" cellspacing="0" bgcolor="#EFF7FF" style='border-top:1px #8CA5B5 solid;'>
	<tr bgcolor="#EFF7FF" style='border:1px #8CA5B5 solid;font-size: 9pt;'>
        <td height="30" style="border-bottom:1px #8CA5B5 solid;">
                <table cellpadding=0 cellspacing=0 border=0 width="100%">
                  <tr>
                    <td align="right">
					<input type=button value=" Save " LANGUAGE=javascript onclick="gosub()" class="Bsbttn">
					&nbsp;
					<INPUT id=button1 type=button value="Append" LANGUAGE=javascript onclick="saveadd_onclick()" class="Bsbttn">
					&nbsp;
					<INPUT id=button1 type=reset value=" Reset " class="Bsbttn">
					&nbsp;
					<input type=button value="Cancel" LANGUAGE=javascript onclick="back_onclick()" class="Bsbttn">
                    </td>
                    </td>
                  </tr>
                </table>
        </td>
      </tr>
    </table>
  </div>
<br>
  <div align="center">
    <table width="90%" border="0" align="center" cellspacing="0" bgcolor="#EFF7FF">
	<tr bgcolor="#EFF7FF" style='border:1px #8CA5B5 solid;font-size: 9pt;'>
        <td style="border-left:1px #8CA5B5 solid; border-top:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid; border-bottom:1px #8CA5B5 solid;">
          <table cellpadding=3 cellspacing=1 border=0 width="100%">
            <tr>
              <td bgcolor="#EFF7FF">
                <table border=0 cellspacing=0 cellpadding=4 width="100%">
                  <tr>
                    <td width="80"><font class="s" color="#104A7B"><b>Quickname</b></font>&nbsp;*</td>
                    <td>
                      <input type=text size="20" name="CName" value="<%=nickname %>" class="textbox" maxlength="64">
                    </td>
                  </tr>
                  <tr>
                    <td><font class="s" color="#104A7B"><b>Members</b></font>&nbsp;*</td>
                    <td><br>Group Members: To add members to a group, type their e-mail addresses in the box below.<br>
                    (If multiple email addresses are entered, please separate with ",")
					<br>
						<textarea rows=5 cols=52 wrap="virtual" name="Email" class="textbox"><%=emails %></textarea>
                    </td>
                  </tr>
                </table>
              </td>
            </tr>
          </table>
        </td>
      </tr>
    </table>
  </div>
  <br>
  <div align="center">
    <table width="90%" border="0" align="center" cellspacing="0" bgcolor="#EFF7FF" style='border-top:1px #8CA5B5 solid;'>
	<tr bgcolor="#EFF7FF" style='border:1px #8CA5B5 solid;font-size: 9pt;'>
        <td height="30" style="border-bottom:1px #8CA5B5 solid;">
                <table cellpadding=0 cellspacing=0 border=0 width="100%">
                  <tr>
                    <td align="right">
					<input type=button value=" Save " LANGUAGE=javascript onclick="gosub()" class="Bsbttn">
					&nbsp;
					<INPUT id=button1 type=button value="Append" LANGUAGE=javascript onclick="saveadd_onclick()" class="Bsbttn">
					&nbsp;
					<INPUT id=button1 type=reset value=" Reset " class="Bsbttn">
					&nbsp;
					<input type=button value="Cancel" LANGUAGE=javascript onclick="back_onclick()" class="Bsbttn">
                    </td>
                    </td>
                  </tr>
                </table>
        </td>
      </tr>
    </table>
  </div>
</form>
<br>
</body>
</html>


<%
	function mReplace(tempstr)
		dim cstr
		cstr = replace(tempstr , """", "'")
		mReplace = replace(cstr , "'", "''")
	end function

	function mmReplace(tempstr)
		mmReplace = replace(tempstr , "'","''")
	end function
%>
💿 文件大小 8676 K
👤 上传用户 MOMO89752118
📂 所属分类 OA系统
🏷️ 相关标签

#3.0 #破解版
⌨️ 快捷键说明

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