maillistmng.asp

诚信商店系统源代码

<%@LANGUAGE="VBScript"%>
<!--#include file="../public/wxl_conn.asp"-->
<!--#include file="../public/PublicFunction.asp"-->
<%
response.expires = 0
Const PageSize=18
Page=CInt(request("Page"))
if Page<=0 then Page=1
wxl=request("wxl")
if wxl="" then
	ShowHtml
else
	response.write "邮件发送成功！"
end if


sub ShowHtml()

HtmlHead("发送邮件")
%>
<SCRIPT language=JavaScript>
  <!--
  function checkvalue() {
    aa=document.form1
    if (aa.txtSubject.value=="") {
        window.alert ("请输入邮件主题!"); aa.txtSubject.focus();return false}
    if (aa.txtContent.value=="") {
        window.alert ("请输入邮件内容!"); aa.txtContent.focus();return false}
     }

//-->
</SCRIPT>
<table border="1" width="600" cellpadding="3" cellspacing="0" bgcolor="#D6D3CE" bordercolordark="#FFFFFF" bordercolorlight="#808080" align="center" >
<form name=form1 action="<%=UrlFile%>" method="POST" onSubmit='return checkvalue();'>
<tr>
	<td width=80>收信人地址：</td>
	<td><input type='text' name='txtTo' value=''></td>
	<td width=80>发信人地址：</td>
	<td><input type='text' name='txtFrom' value=''></td>
</tr>
<tr>
	<td width=80>邮件主题：</td>
	<td colspan=3><input type='text' name='txtSubject' size=60 value=''></td>
</tr>
<tr>
	<td width=80 valign=top>邮件内容：<br><br>[如果不填写收信人则对所有注册用户发信]</td>
	<td colspan=3><TEXTAREA NAME="txtContent" ROWS="10" COLS="60"></TEXTAREA></td>
</tr>
</table>
          <table border="0" width="100%" cellspacing="0" cellpadding="0" bgcolor="#D6D3CE">
            <tr>
              <td height="6"></td>
            </tr>
            <tr>
              <td height="2" align="center">
			  <input type="submit" value=" 发 送" name="B1" class="submit" style="width:60; height:25;">&nbsp;&nbsp;  
                &nbsp; <input type="reset" value=" 返 回" name="B2" class="submit" style="width:60; height:25;" onClick="history.back();"></td> 
            </tr>
            <tr>
              <td height="6"></td>
            </tr>
          </table>
	<input type='hidden' name='wxl' value='Add'>
	</form>
<%
HtmlEnd

end sub
%>