bs_mail_add_user.asp

此系统都是基于ASP+ACCESS技术开发的电子商务平台,属于全自动化、全智能的在线方式管理、维护、更新的网站管理系统。此系统直接上传到你的网站空间就可以使用了

<!--#include file="bsconfig.asp"-->
<!-- #include file="Inc/Head.asp" -->
<%
'=================================
'
'   冠龙科技 公司(企业)网站管理系统
'    Apollo  [e-mail] 
'        www.xnhost.cn
'
'  copyright(c)2006 LkStar
'
'=================================
%>
<BR>
<table cellpadding="2" cellspacing="1" border="0" width="560" align="center" class="a2">
	<tr>
		<td class="a1" height="25" align="center"><strong>添加用户</strong></td>
	</tr>
	<tr class="a4">
		<td align="center">
      <br>
      <form name="adduser" method="post" action="Bs_Mail_add_user.asp">
        <table border="0" cellspacing="2" cellpadding="0" width="300">
          <tr> 
            <td height="25" bgcolor="#C0C0C0"><b><font color="#000000">&nbsp;手动添加邮件地址</font></b></td>
          </tr>
          <tr> 
            <td bgcolor="#E3E3E3" 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="#C0C0C0"> 
              <input type="submit" name="Submit" value="添加" class="Tips_bo">
              <input type="hidden" name="action" value="adduser">
            </td>
          </tr>
        </table>
      </form>
		</td>
	</tr>
</table>
<BR>
<%htmlend%>
<%
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
%>