<%@language=vbscript codepage=936 %>
<!--#include file="Admin.asp"-->
<!--#include file="Conndb.asp"-->
<% 
set rs=server.createobject("adodb.recordset") 
sql="select * from maildefault order by id desc" 
rs.open sql,conn,1,1   
%>
<!-- #include file="Inc/Head.asp" -->
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="150" align="center" valign="top"> <table width="150" height="100%" border="0" cellpadding="0" cellspacing="0" class="HeaderTdStyle">
        <tr> 
          <td align="center" valign="top"><table width="100%" height="24" border="0" cellpadding="0" cellspacing="0">
              <tr> 
                <td align="center">功能菜單</td>
              </tr>
            </table>
            <table width="100%" height="90%" border="0" cellpadding="0" cellspacing="0" class="MenuBg">
              <tr> 
                <td align="center" valign="top"><br> <table width="90%" border="0" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td width="16%"><img src="../Img/Left_1.gif" width="28" height="11"></td>
                      <td width="84%" height="20"><font color="#FFFF00">郵件列表管理</font></td>
                    </tr>
                  </table>
                  <table width="90%" border="0" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td width="34%" height="20" align="right"><img src="../Img/Left_1_1.gif" width="29" height="16"></td>
                      <td width="66%" valign="bottom"><a href="Maildefault.asp"><font color="#FFFF00">郵件列表設置</font></a></td>
                    </tr>
                  </table>
                  <table width="90%" border="0" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td width="34%" height="20" align="right"><img src="../Img/Left_1_1.gif" width="29" height="16"></td>
                      <td width="66%" valign="bottom"><a href="Sendmail.asp"><font color="#FFFF00">發送郵件</font></a></td>
                    </tr>
                  </table>
                  <table width="90%" border="0" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td width="34%" height="20" align="right"><img src="../Img/Left_1_1.gif" width="29" height="16"></td>
                      <td width="66%" valign="bottom"><a href="Viewuser.asp"><font color="#FFFF00">用戶管理</font></a></td>
                    </tr>
                  </table>
                  <table width="90%" border="0" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td width="34%" height="20" align="right"><img src="../Img/Left_1_1.gif" width="29" height="16"></td>
                      <td width="66%" valign="bottom"><a href="Adduser.asp"><font color="#FFFF00">添加用戶</font></a></td>
                    </tr>
                    <tr>
                      <td height="20" align="right">&nbsp;</td>
                      <td valign="bottom">&nbsp;</td>
                    </tr>
                  </table></td>
              </tr>
            </table></td>
        </tr>
      </table></td>
    <td width="862" align="center" valign="top">
	<br>
      <br>
      <b>發 送 郵 件</b><br>
      <br>
      <br>
	  <form name="sendmail" action="sendmailto.asp" method="post" >
        <table border="0" cellspacing="2" cellpadding="0" width="550" align="center">
          <tr> 
            <td height="25" bgcolor="#C0C0C0">
<div align="center"><font color="#000000">發信人地址：</font></div></td>
            <td height="30" bgcolor="#E3E3E3"> <input type="text" name="frommail" value="<%=rs("frommail")%>"> 
            </td>
          </tr>
          <tr> <%email=request("email")%>
            <td bgcolor="#C0C0C0">
<div align="center"><font color="#000000">收信人地址：</font></div></td>
            <td bgcolor="#E3E3E3"> 
              <input name="tomail" type="text" value="<%=email%>">
              <br>
              <br>
              <font color="#000000">（如果為空，從數據庫取地址群發！） </font></td>
          </tr>
          <tr> 
            <td bgcolor="#C0C0C0">
<div align="center"><font color="#000000">信件標題：</font></div></td>
            <td bgcolor="#E3E3E3"> 
              <input type="text" name="mailsubject" size="50">
              <br> <br>
              <font color="#000000">（如果為空，則顯示<font color="#FF0000">“<%=rs("mailsubject")%>”</font>！） 
              </font></td>
          </tr>
          <tr> 
            <td bgcolor="#C0C0C0">
<div align="center"><font color="#000000">信件內容：</font></div></td>
            <td bgcolor="#E3E3E3"> 
              <textarea name="mailbody" cols="50" rows="8"></textarea>
              <br>
              <br>
            </td>
          </tr>
          <tr bgcolor="#336699"> 
            <td height="25" bgcolor="#C0C0C0"> 
              <div align="center"></div></td>
            <td height="22" bgcolor="#E3E3E3"> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
              <input type="submit" name="Submit" value="發送"> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
              <input type="reset" name="Submit" value="取消"> <input type="hidden" name="action" value="我發"> 
            </td>
          </tr>
        </table>
</form>
    </td>
  </tr>
</table>
<!-- #include file="Inc/Foot.asp" -->