notify.asp

酷虎网同学录V1.0

<!--#INCLUDE FILE="setup.asp" -->
<!--#INCLUDE FILE="char.asp" -->
<!--#INCLUDE FILE="checkuser.asp" -->
<!--#INCLUDE FILE="theme.asp" -->
<!--#INCLUDE FILE="email.asp" -->
<%locat="通知校友注册"
call top(1,1)
if membername="" then
  	errmsg=errmsg+"<br>"+"<li>您还没有<a href=login.asp>登录</a>。"
	call error("Information",errmsg)
else
	if request("action")="send" then
		call sendemail()
	else
		call writelettle()
	end if
end if

sub writelettle()
dim rs,StrSQL
StrSQL = "Select realname,email from student where userid='"&membername&"'"
set rs=conn.Execute(StrSQL)

mfrom=htmlencode(rs("realname"))&"&nbsp;["&htmlencode(rs("email"))&"]"

%>
<!--#INCLUDE FILE="script/sendnow.inc" -->

<div id="sponsorAdDiv" style="visibility:hidden">
<table width="600" height="70" bgcolor="<%=tablebordercolor%>" border=0 cellspacing=1><tr><td>
<table width="100%" height="100%"  border=0 cellspacing=0><tr bgcolor="<%=tablebodycolor1%>"><td>
&nbsp;&nbsp;&nbsp;&nbsp;正在处理邮件，请稍候......
</td></tr></table></td></tr></table></div> 

<br><br><table border="0" cellspacing="1" width="100%">
  <tr>
    <td>
    <table border="0" cellspacing="1" width="100%">
      <tr>
        <td align="center"><br>
        <form style="MARGIN: 0px" name="frmmail" action="Notify.asp?Action=send" method="post"
        onsubmit="submitonce(this);initAd();">
          <input type="hidden" name="mailfrom" value="<%=rs("email")%>">
		  <table border="0" cellspacing="1" width="600" cellpadding="3" bgcolor="<%=tablebordercolor%>">
            <tr bgcolor=<%=tabletitlecolor%>>
              <th colspan=2 align=center><img src="images/gb.gif"  align="absMiddle"> 
              <b>通知校友注册</b></th>
            </tr>

            <tr bgcolor=<%=tablebodycolor1%>>
              <td  colspan=2></td>
            </tr>
            <tr bgcolor=<%=tablebodycolor2%>>
              <td height="13" width=150>&nbsp;&nbsp;发 件 人</td><td> 
              &nbsp;&nbsp;<%=mfrom%></td>
            </tr>
            <tr bgcolor=<%=tablebodycolor2%>>
              <td height="13" >&nbsp;&nbsp;收 件 人</td><td>&nbsp;&nbsp<input size="41" name="receiver"></td>
            </tr>
            <tr bgcolor=<%=tablebodycolor2%>>
              <td height="13" >&nbsp;&nbsp;信件主题</td><td>&nbsp;&nbsp<input size="41" name="mailsub"> </td>
            </tr>
            <tr bgcolor=<%=tablebodycolor2%>>
              <td >&nbsp;&nbsp;信件内容</td>
                         <td >&nbsp;&nbsp;<textarea name="mailbody" rows="8" cols="40"></textarea></td>
            </tr>
			<tr bgcolor=<%=tablebodycolor2%>><td colspan=2>&nbsp;&nbsp;<img src="images/reminder.gif" hspace=4>若向多个校友发邮件，请用分号将邮件地址分开</td></tr>
            <tr bgcolor="<%=tablebodycolor1%>">
              <td height="20" align="center" colspan=2><input
              style="WIDTH: 80px; HEIGHT: 20px" type="submit" value="发送(S)" name="submit">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
              &nbsp; <input style="WIDTH: 80px; HEIGHT: 20px" type="reset" value="重置(R)"
              name="reset"> </td>
            </tr>
          </table>
        </form>
        <p><br>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table>
</body>
</html>
<%
set rs=nothing
end sub

sub sendemail()

		if trim(request("receiver"))="" then
			Errmsg=Errmsg+"<br>"+"<li>请输入您校友的邮件地址。"
			founderr=true
		else
			mailto=trim(request("receiver"))
		end if
		
		if request("mailsub")="" then
			Errmsg=Errmsg+"<br>"+"<li>请确认输入了邮件主题。"
			founderr=true
		else
			mailtopic=request("mailsub")
		end if

		if request("mailbody")="" then
			Errmsg=Errmsg+"<br>"+"<li>请确认输入了邮件内容。"
			founderr=true
		else
			mailbody=request("mailbody")
		end if


	if founderr=true then
	errorlevel="Information"
	call error(errorlevel,errmsg)
		exit sub
	end if
		mailfrom=request("mailform")
		if EmailFlag=0 then
			errmsg=errmsg+"<br>"+"<li>本同学录不支持发送邮件。</li>"
	errorlevel="Exclamation"
	call error(errorlevel,errmsg)
			exit sub
		elseif EmailFlag=1 then
			call jmail_smtp()
		elseif EmailFlag=2 then
			call Cdonts()
		elseif EmailFlag=3 then
			call aspemail()
		elseif EmailFlag=4 then
			call jmail_msg()
		end if

if SendMailStatus="OK" then
		stitle="邮件发送成功"
		smsg="您已经成功的向您的校友发送了邮件。"
		call success(stitle,smsg)
else
		errmsg=errmsg+"<br>"+"<li>由于以下原因邮件发送失败！</li>"
		errmsg=errmsg+"<br>"&SendMailStatus
	errorlevel="Exclamation"
	call error(errorlevel,errmsg)
end if
end sub

%></td></tr></table>
<%call footer%>