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

📄 delivermail.asp

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

<%
sname = trim(request("sname"))
sfname = trim(request("sfname"))

if trim(request("to")) <> "" then
	Set Obj=Server.CreateObject("EasyMail.EMMail")

if sname <> "" and sfname <> "" then
	openresult = Obj.OpenFriendFolder(Session("wem"), sname, sfname)

	if openresult = -1 then
		set Obj = nothing
		Response.Redirect "err.asp?errstr=Error"
	elseif  openresult = 1 then
		set Obj = nothing
		Response.Redirect "err.asp?errstr=Invalid password"
	elseif  openresult = 2 then
		set Obj = nothing
		Response.Redirect "err.asp?errstr=Folder does not exist or is inaccessible"
	end if
end if


	if Obj.DeliverMail(Session("wem"), trim(request("filename")), trim(request("to"))) = false then
		Set Obj=nothing
		Response.Redirect "err.asp?" & getGRSN() & "&mode=no&gourl=showmail.asp?" & Server.URLEncode(trim(request("backurl")))
	else
		Set Obj=nothing
		Response.Redirect "ok.asp?" & getGRSN() & "&mode=no&gourl=showmail.asp?" & Server.URLEncode(trim(request("backurl")))
	end if
end if
%>

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

<script LANGUAGE=javascript>
<!--
function selectAdd() {
	window.open("selectadd.asp?mode=deliver&<%=getGRSN() %>", "", "top=80; left=150; height=330,width=496,scrollbars=yes,resizable=yes,status=no,toolbar=no,menubar=no,location=no");
}

function sendit() {
	if (f1.to.value != "")
		f1.submit();
}
//-->
</script>

<BODY>
<br><br><br>
<form name="f1" method="post" action="delivermail.asp">
<input type="hidden" name="sname" value="<%=sname %>">
<input type="hidden" name="sfname" value="<%=sfname %>">
<input type="hidden" name="backurl" value="<%=trim(request("backurl")) %>">
  <table width="90%" border="0" bgcolor="#93bee2" align="center" cellspacing="0" style='border-top:1px #336699 solid;'>
    <tr>
      <td colspan="2" height="30" valign="middle" style='border-bottom:1px #336699 solid;'>
        <div align="center"><font class="s" color="#104A7B"><b>Mail Transfer</b><br>(If multiple email addresses are entered, please separate with ",")</font></div>
      </td>
    </tr>
    <tr bgcolor="#dbeaf5">
      <td width="30%" height="45">
        <div align="right"><font class="s" color="#104A7B"><b><a href="javascript:selectAdd()">Transfer Addresses</a>&nbsp;:&nbsp;</b></font></div>
      </td>
      <td width="70%">
        <input type="hidden" name="filename" value="<%=trim(request("filename")) %>">
        <input type="text" name="to" class='textbox' size="50">
      </td>
    </tr>
	</td>
	</tr>
	<tr><td colspan="2" bgcolor="#FFFFFF" style='border-bottom:1px #336699 solid;'>&nbsp;</td></tr>
    <tr bgcolor="#FFFFFF">
      <td colspan="2" align="right"><br>
	<input type="button" value="Send" language=javascript onClick="sendit()" class="Bsbttn">&nbsp;&nbsp;
	<input type="button" value="Cancel" class="Bsbttn" onclick="javascript:history.back()">
	</td></tr>
  </table><br>
  </form>
<div style="position: absolute; left: 20; top: 15;">
<a href="help.asp#delivermail" target="_blank"><img src="images/help.gif" border="0" alt="Help"></a></div>
</BODY>
</HTML>

⌨️ 快捷键说明

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