📄 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;">
<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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -