📄 post.asp
字号:
<!--#include file="passinc.asp" -->
<%
if Application("em_EnableBBS") = false then
response.redirect "noadmin.asp?errstr=This public folder is closed&" & getGRSN()
end if
gourl = trim(request("gourl"))
searchkey = trim(request("searchkey"))
dim userweb
set userweb = server.createobject("easymail.UserWeb")
'-----------------------------------------
userweb.Load Session("wem")
if userweb.useRichEditer = false then
useRichEditer = false
else
useRichEditer = true
end if
MailName = userweb.MailName
%>
<HTML>
<HEAD>
<title>Corp.Email</title>
<LINK href="images\hwem.css" rel=stylesheet>
</HEAD>
<script LANGUAGE=javascript>
<!--
function selectAdd(mode) {
if (mode == "To")
window.open("selectadd.asp?mode=To&<%=getGRSN() %>", "", "top=80; left=150; height=330,width=496,status=no,toolbar=no,menubar=no,location=no");
else if (mode == "Cc")
window.open("selectadd.asp?mode=Cc&<%=getGRSN() %>", "", "top=80; left=150; height=330,width=496,status=no,toolbar=no,menubar=no,location=no");
else if (mode == "Bcc")
window.open("selectadd.asp?mode=Bcc&<%=getGRSN() %>", "", "top=80; left=150; height=330,width=496,status=no,toolbar=no,menubar=no,location=no");
}
function showSave() {
f1.SendMode.value = "save"
sub(0);
}
function showSending() {
sub(1);
}
function timerSending() {
if (checkTime() == true)
{
f1.SendMode.value = "timersend"
sub(0);
}
}
function cutz(inval)
{
var rval = "";
for (var i = 0; i < inval.length; i++)
{
if (inval.charAt(i) != '0')
break;
}
rval = inval.substring(i);
return rval;
}
function sub(smode){
<%
if useRichEditer = false then
%>
if (smode == 1)
sending.style.visibility="visible";
else
esave.style.visibility="visible";
dec_EasyMail_Text();
<%
end if
%>
<%
if useRichEditer = true then
%>
f1.RichEdit_Text.value = richedit.getText();
f1.RichEdit_Html.value = richedit.getHTML();
dec_RichEdit_Text();
dec_RichEdit_Html();
<%
end if
%>
f1.AddFromAttFileString.value = "";
var i = 0;
for (i; i < f1.NetAtts.length; i++)
{
f1.AddFromAttFileString.value = f1.AddFromAttFileString.value + f1.NetAtts[i].value + "\t";
}
f1.submit();
}
function window_onload() {
}
function delNetAtt(){
if (f1.NetAtts.selectedIndex != -1)
{
f1.NetAtts.remove(f1.NetAtts.selectedIndex);
f1.NetAtts.selectedIndex = 0;
}
}
function addNetAtt(){
if (f1.NetSaveAtts.selectedIndex != -1)
{
var oOption = document.createElement("OPTION");
oOption.text = f1.NetSaveAtts[f1.NetSaveAtts.selectedIndex].text;
oOption.value = f1.NetSaveAtts[f1.NetSaveAtts.selectedIndex].value;
f1.NetAtts.add(oOption);
f1.NetAtts.selectedIndex = f1.NetAtts.length - 1;
}
}
function dec_EasyMail_Text()
{
var count = 0;
var theObj;
var FormLimit = 50000;
var TempVar = new String;
TempVar = document.f1.EasyMail_Text.value;
if (TempVar.length > FormLimit)
{
while (TempVar.length > 0 && count < 10)
{
theObj = eval("document.all(\"add" + count + "\")");
theObj.innerHTML = "<Textarea rows=1 cols=1 name='Mdec_EasyMail_Text" + count + "'></Textarea>";
theObj = eval("f1.Mdec_EasyMail_Text" + count);
theObj.value = TempVar.substr(0, FormLimit);
TempVar = TempVar.substr(FormLimit);
count++;
}
}
else
{
theObj = eval("document.all(\"add1\")");
theObj.innerHTML = "<Textarea rows=1 cols=1 name='Mdec_EasyMail_Text1'></Textarea>";
theObj = eval("f1.Mdec_EasyMail_Text1");
theObj.value = TempVar;
}
}
function dec_RichEdit_Text()
{
var count = 10;
var theObj;
var FormLimit = 50000;
var TempVar = new String;
TempVar = document.f1.RichEdit_Text.value;
if (TempVar.length > FormLimit)
{
while (TempVar.length > 0 && count < 20)
{
theObj = eval("document.all(\"add" + count + "\")");
theObj.innerHTML = "<Textarea rows=1 cols=1 name='Mdec_RichEdit_Text" + count + "'></Textarea>";
theObj = eval("f1.Mdec_RichEdit_Text" + count);
theObj.value = TempVar.substr(0, FormLimit);
TempVar = TempVar.substr(FormLimit);
count++;
}
}
else
{
theObj = eval("document.all(\"add10\")");
theObj.innerHTML = "<Textarea rows=1 cols=1 name='Mdec_RichEdit_Text10'></Textarea>";
theObj = eval("f1.Mdec_RichEdit_Text10");
theObj.value = TempVar;
}
}
function dec_RichEdit_Html()
{
var count = 20;
var theObj;
var FormLimit = 50000;
var TempVar = new String;
TempVar = document.f1.RichEdit_Html.value;
if (TempVar.length > FormLimit)
{
while (TempVar.length > 0 && count < 30)
{
theObj = eval("document.all(\"add" + count + "\")");
theObj.innerHTML = "<Textarea rows=1 cols=1 name='Mdec_RichEdit_Html" + count + "'></Textarea>";
theObj = eval("f1.Mdec_RichEdit_Html" + count);
theObj.value = TempVar.substr(0, FormLimit);
TempVar = TempVar.substr(FormLimit);
count++;
}
}
else
{
theObj = eval("document.all(\"add20\")");
theObj.innerHTML = "<Textarea rows=1 cols=1 name='Mdec_RichEdit_Html20'></Textarea>";
theObj = eval("f1.Mdec_RichEdit_Html20");
theObj.value = TempVar;
}
}
//-->
</script>
<BODY LANGUAGE=javascript onload="return window_onload()">
<br>
<FORM ACTION="sendmail.asp?<%=getGRSN() %>" METHOD=POST NAME="f1" target="_parent">
<p>
<INPUT NAME="EasyMail_CharSet" TYPE="hidden" Value="<%=userweb.CharSet %>">
<INPUT NAME="pid" TYPE="hidden" Value="<%=trim(request("pid")) %>">
<INPUT NAME="iniid" TYPE="hidden" Value="<%=trim(request("iniid")) %>">
<INPUT NAME="SendMode" TYPE="hidden" Value="post">
<input name="EasyMail_To" type="hidden" value="post">
<INPUT NAME="gourl" TYPE="hidden" Value="<%=gourl %>">
<INPUT NAME="useRichEditer" TYPE="hidden" Value="<%
if useRichEditer = true then
Response.Write "true"
else
Response.Write "false"
end if
%>">
<INPUT NAME="AddFromAttFileString" TYPE="hidden">
<INPUT NAME="MailName" TYPE="hidden" Value="<%=MailName %>">
<INPUT NAME="EasyMail_From" TYPE="hidden" value="<%= Session("wem")%>" maxlength="64">
<INPUT NAME="EasyMail_TimerSend" TYPE="hidden" maxlength="10">
</p>
<table width="95%" border="0" bgColor="#93bee2" style="BORDER-LEFT: #93bee2 4px solid; BORDER-RIGHT: #93bee2 4px solid" align="center" cellspacing="0">
<tr>
<td colspan="2" height="40" align="right">
<input type="button" value=" Post " onclick="javascript:showSending()" class=Bsbttn>
<% if gourl = "" then %>
<input type="button" value="Cancel" onclick="javascript:parent.location.href='showallpf.asp?<%=getGRSN() %>'" class=Bsbttn>
<% else %>
<input type="button" value="Cancel" onclick="javascript:parent.location.href='<%=gourl %>&<%=getGRSN() %>'" class=Bsbttn>
<% end if %>
</td>
</tr>
<tr>
<td colspan="2" height="30" noWrap align="left" style='border-top:1px #8CA5B5 solid;'><b><font class=s color=#104a7b><label
for=subject style="width: 80"> Subject</font> : </label></b>
<input name="EasyMail_Subject" type="text" size="60" class='textbox'>
</td>
</tr>
<tr>
<tr>
<td colspan="2" height="30" noWrap align="left" style='border-top:1px #8CA5B5 solid;'><b><font class=s color=#104a7b><label
for=subject style="width: 80"> Keyword</font> : </label></b>
<input name="searchkey" type="text" size="60" maxlength="64" class='textbox' value="<%=searchkey %>">
</td>
</tr>
<tr>
<%
if useRichEditer = false then
%>
<td colspan="2">
<div align="center">
<textarea name="EasyMail_Text" cols="68" rows="12" style="width: 570" class='textbox'></textarea>
</div>
<%
else
%>
<td colspan="2" height="350">
<IFRAME SRC="einedit.htm" id='richedit' style='visibility:visible; position: absolute; height=100%; width=100%'></IFRAME>
<%
end if
%>
</td>
</tr>
<tr>
<td width="40%" noWrap align="right" height="30" style="BORDER-BOTTOM: #769db5 1px solid">
<b>Added through Net-Storage : </b>
</td>
<td width="60%" style="BORDER-BOTTOM: #769db5 1px solid">
<select name="NetAtts" class=drpdwn>
</select>
<input type="button" value=" >> " onclick="javascript:delNetAtt()" class=sbttn>
<input type="button" value=" << " onclick="javascript:addNetAtt()" class=sbttn>
<select name="NetSaveAtts" class=drpdwn>
<%
dim nas
set nas = server.createobject("easymail.InfoList")
nas.LoadMailBox Session("wem"), "att"
allnum = nas.getMailsCount
i = 0
do while i < allnum
nas.getMailInfoEx allnum - i - 1, idname, isread, priority, sendMail, sendName, subject, size, etime, mstate
Response.Write "<option value='" & idname & "'>" & server.htmlencode(subject) & "</option>"
idname = NULL
isread = NULL
priority = NULL
sendMail = NULL
sendName = NULL
subject = NULL
size = NULL
etime = NULL
mstate = NULL
i = i + 1
loop
set nas = nothing
%>
</select>
</td>
</tr>
<tr>
<td noWrap align="right" height="30" style="BORDER-BOTTOM: #769db5 1px solid">
<b>Include signature : </b>
</td>
<td width="74%" style="BORDER-BOTTOM: #769db5 1px solid">
<select name="EasyMail_SignNo" class=drpdwn>
<%
ds = userweb.defaultSign
if ds = -1 then
%>
<option value="-1" selected>Do Not Use</option>
<%
else
%>
<option value="-1">Do Not Use</option>
<%
end if
dim sm
set sm = server.createobject("easymail.SignManager")
sm.Load Session("wem")
allnum = sm.count
i = 0
do while i < allnum
sm.get i, s_title, s_text
if i <> ds then
response.write "<option value='" & i & "'>" & server.htmlencode(s_title) & "</option>"
else
response.write "<option value='" & i & "' selected>" & server.htmlencode(s_title) & "</option>"
end if
s_title = NULL
s_text = NULL
i = i + 1
loop
set sm = nothing
%>
</select>
</td>
</tr>
<tr>
<td noWrap align="right" height="30" style="BORDER-BOTTOM: #769db5 1px solid">
<b>Importance : </b>
</td>
<td width="74%" style="BORDER-BOTTOM: #769db5 1px solid">
<select name="EasyMail_Priority" class=drpdwn>
<option value="Normal">Normal</option>
<option value="Low">Low</option>
<option value="High">High</option>
</select>
</td>
</tr>
<tr>
<td colspan="2" height="40" align="right">
<input type="button" value=" Post " onclick="javascript:showSending()" class=Bsbttn>
<% if gourl = "" then %>
<input type="button" value="Cancel" onclick="javascript:parent.location.href='viewmailbox.asp?<%=getGRSN() %>'" class=Bsbttn>
<% else %>
<input type="button" value="Cancel" onclick="javascript:parent.location.href='<%=gourl %>&<%=getGRSN() %>'" class=Bsbttn>
<% end if %>
</td>
</tr>
</table>
<div id="sending" style="filter:alpha(opacity=80); position:absolute; top:200; left:40; z-index:10; visibility:hidden"><TABLE WIDTH=90% BORDER=0 CELLSPACING=0 CELLPADDING=0><TR><td width=30%></td><TD bgcolor=#104A7B><TABLE WIDTH=100% height=70 BORDER=0 CELLSPACING=2 CELLPADDING=0><TR><td bgcolor=#eeeeee align=center>Sending mail, please wait...</td></tr></table></td><td width=30%></td></tr></table></div>
<div id="esave" style="filter:alpha(opacity=80); position:absolute; top:200; left:40; z-index:10; visibility:hidden"><TABLE WIDTH=90% BORDER=0 CELLSPACING=0 CELLPADDING=0><TR><td width=30%></td><TD bgcolor=#104A7B><TABLE WIDTH=100% height=70 BORDER=0 CELLSPACING=2 CELLPADDING=0><TR><td bgcolor=#eeeeee align=center>Saving mail, please wait...</td></tr></table></td><td width=30%></td></tr></table></div>
<div style="position:absolute; top:10; left:10; z-index:15; visibility:hidden">
<textarea name="RichEdit_Text" cols="0" rows="0"></textarea>
<textarea name="RichEdit_Html" cols="0" rows="0"></textarea>
<table>
<tr>
<td id="add0"></td>
<td id="add1"></td>
<td id="add2"></td>
<td id="add3"></td>
<td id="add4"></td>
<td id="add5"></td>
<td id="add6"></td>
<td id="add7"></td>
<td id="add8"></td>
<td id="add9"></td>
</tr>
<tr>
<td id="add10"></td>
<td id="add11"></td>
<td id="add12"></td>
<td id="add13"></td>
<td id="add14"></td>
<td id="add15"></td>
<td id="add16"></td>
<td id="add17"></td>
<td id="add18"></td>
<td id="add19"></td>
</tr>
<tr>
<td id="add20"></td>
<td id="add21"></td>
<td id="add22"></td>
<td id="add23"></td>
<td id="add24"></td>
<td id="add25"></td>
<td id="add26"></td>
<td id="add27"></td>
<td id="add28"></td>
<td id="add29"></td>
</tr>
</table>
</div>
<br>
</FORM>
</BODY>
</HTML>
<%
set userweb = nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -