<!--#include file="Conn.asp"-->
<!--#include file="Admin.asp"-->
<!-- #include file="Inc/Head.asp" -->
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="862" align="center" valign="top"><br> <br> <br> <br> 
      <br> <form name="adduser" method="post" action="adduser.asp">
        <table border="0" cellspacing="2" cellpadding="0" width="560">
          <tr> 
            <td height="25" bgcolor="#A4B6D7"><b><font color="#000000">&nbsp;手動添加郵件地址</font></b></td>
          </tr>
          <tr> 
            <td bgcolor="#ECF5FF" align="center" height="95"> 
              <table border="0" cellspacing="0" cellpadding="4">
                <tr> 
                  <td align="right"><font color="#000000">Email地址</font></td>
                  <td valign="top"> <input type="text" name="email" maxlength="50" class="bk"> 
                  </td>
                </tr>
                <tr> 
                  <td align="center" colspan="2" height="35"><font color=#000000>不用填寫其他資料</font></td>
                </tr>
              </table>
            </td>
          </tr>
          <tr> 
            <td height="25" align="center" bgcolor="#A4B6D7"> 
              <input type="submit" name="Submit" value="添加" class="Tips_bo"> 
              <input type="hidden" name="action" value="adduser">
            </td>
          </tr>
        </table>
      </form>
      <br> </td>
  </tr>
</table>
<!-- #include file="Inc/Foot.asp" -->
<%
if request("action")<>"adduser" then
response.end
else
email=request("email")
mailnow=now()
conn.execute "insert into email (dateandtime,email) values ('"&mailnow&"','"&email&"')"
response.write"<SCRIPT language=JavaScript>alert('帳號添加成功，你可以繼續添加！');"
response.write "</SCRIPT>"
end if
%>