bs_mail_default.asp

来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 86 行

<% data_path="../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../conn/conn.asp"-->
 <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>
      <table width="550" border="0" cellpadding="0" cellspacing="0" align="center">
        <tr> 
          <td width="36%">
					<form name="addcat" method="post"  action="Bs_Mail_Default.asp?act=ok">
						<table width="550" border="0" cellpadding="0" cellspacing="0" align="center">
          <tr>
            <td width="36%" valign="top"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="2">
                <tr>
                  <td height="25" bgcolor="#D3DCEE"><div align="center"><b><font color="#000000">&nbsp;设置邮件的默认发信人</font></b></div></td>
                </tr>
                <tr>
                  <td height="25" align="center" bgcolor="#D3DCEE">
                    <input name="frommail" type="text" value="<%=SystemEmail%>" size="25" maxlength="50"></td>
                </tr>
                <tr>
                  <td height="25" align="center" bgcolor="#D3DCEE"><b><font color="#000000">设置邮件默认密码</font></b></td>
                </tr>
                <tr>
                  <td height="30" align="center" bgcolor="#D3DCEE"><input name="mailpass" type="password" value="<%=HOPE_MailPwd%>" size="25" maxlength="50"></td>
                </tr>
                <tr>
                  <td height="25" align="center" bgcolor="#D3DCEE"><b><font color="#000000">设置邮件发送邮件服务器</font></b></td>
                </tr>
                <tr>
                  <td height="30" align="center" bgcolor="#D3DCEE"><input name="mailaddress" type="text" value="<%=SMTPServer%>" size="25" maxlength="50"></td>
                </tr>
            </table></td>
            <td width="36%"><table border="0" cellspacing="2" cellpadding="0" width="100%">
                <tr>
                  <td height="25" bgcolor="#D3DCEE"><b><font color="#000000">&nbsp;设置邮件默认标题</font></b></td>
                </tr>
                <tr>
                  <td height="25" bgcolor="#D3DCEE"><div align="center">
                      <input name="mailsubject" type="text" value="<%=webname%>" size="45" maxlength="50">
                  </div></td>
                </tr>
                <tr>
                  <td height="25" bgcolor="#D3DCEE">
                    <p><b><font color="#000000">&nbsp;设置邮件默认发送内容</font></b></p></td>
                </tr>
                <tr>
                  <td bgcolor="#D3DCEE" align="center">
                    <textarea name="mailbody" cols="45" rows="10"><%=webname%></textarea>
                  </td>
                </tr>
                <tr>
                  <td bgcolor="#D3DCEE" align="center" height="30"><input type="submit" name="Submit" value="设置" class="Tips_bo">                  </td>
                </tr>
            </table></td>
          </tr>
        </table>
					</form>
					</td>
        </tr>
        <tr> 
          <td width="36%">&nbsp;</td>
        </tr>
      </table>
		</td>
	</tr>
</table>
<BR>
 <%
If request("act")="ok" Then
	frommail=request("frommail")
	mailsubject=request("mailsubject")
	mailbody=request("mailbody")
	mailpass=request("mailpass")
	mailaddress=request("mailaddress")
	conn.execute "update maildefault set frommail='"&frommail&"',mailsubject='"&mailsubject&"',mailbody='"&mailbody&"',mailpass='"&mailpass&"',mailaddress='"&mailaddress&"'"
response.Redirect("Bs_Mail_Default.asp")
End If
conn.close
set conn = nothing
%>