📄 adg_edit.asp
字号:
<!--#include file="passinc.asp" -->
<%
dim id
id = trim(request("id"))
dim issave
issave = trim(request("issave"))
sc = trim(Request("sc"))
dim ads
set ads = server.createobject("easymail.Addresses")
ads.Load Session("wem")
if issave = "1" and Request.ServerVariables("REQUEST_METHOD") = "POST" then
if IsNumeric(id) = true then
ads.ModifyGroup CInt(id), trim(request("CName")), trim(request("Email"))
ads.Save
end if
set ads = nothing
response.redirect "adg_brow.asp?sc=" & sc & "&" & getGRSN()
end if
if IsNumeric(id) = true then
ads.GetGroupInfo CInt(id), nickname, emails
end if
%>
<html>
<head>
<title>Corp.Email</title>
<LINK href="images\hwem.css" rel=stylesheet>
</head>
<script language="JavaScript">
<!--
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
{
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_edit.asp">
<input type="hidden" name="sc" value="<%=sc %>">
<input type="hidden" name="issave" value="1">
<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 align="right" height="30" style="border-bottom:1px #8CA5B5 solid;">
<input type=button value=" Save " LANGUAGE=javascript onclick="gosub()" class="Bsbttn">
<input type=button value="Cancel" LANGUAGE=javascript onclick="javascript:history.back();" class="Bsbttn">
</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> *</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> *</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 ",")
<textarea rows=5 cols=55 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 align="right" height="30" style="border-bottom:1px #8CA5B5 solid;">
<input type=button value=" Save " LANGUAGE=javascript onclick="gosub()" class="Bsbttn">
<input type=button value="Cancel" LANGUAGE=javascript onclick="javascript:history.back();" class="Bsbttn">
</td>
</tr>
</table>
</div>
</form>
<br>
</body>
</html>
<%
nickname = NULL
emails = NULL
set ads = nothing
%>
<%
function mReplace(tempstr)
dim cstr
cstr = replace(tempstr , """", "'")
mReplace = replace(cstr , "'", "''")
end function
function mmReplace(tempstr)
mmReplace = replace(tempstr , "'","''")
end function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -