📄 sendmail.asp
字号:
<%@language=vbscript codepage=936 %>
<!--#include file="Admin.asp"-->
<!--#include file="Conndb.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from maildefault order by id desc"
rs.open sql,conn,1,1
%>
<!-- #include file="Inc/Head.asp" -->
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="150" align="center" valign="top"> <table width="150" height="100%" border="0" cellpadding="0" cellspacing="0" class="HeaderTdStyle">
<tr>
<td align="center" valign="top"><table width="100%" height="24" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center">功能菜单</td>
</tr>
</table>
<table width="100%" height="90%" border="0" cellpadding="0" cellspacing="0" class="MenuBg">
<tr>
<td align="center" valign="top"><br> <table width="90%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="16%"><img src="/Img/Left_1.gif" width="28" height="11"></td>
<td width="84%" height="20"><font color="#FFFF00">邮件列表管理</font></td>
</tr>
</table>
<table width="90%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="34%" height="20" align="right"><img src="/Img/Left_1_1.gif" width="29" height="16"></td>
<td width="66%" valign="bottom"><a href="Maildefault.asp"><font color="#FFFF00">邮件列表设置</font></a></td>
</tr>
</table>
<table width="90%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="34%" height="20" align="right"><img src="/Img/Left_1_1.gif" width="29" height="16"></td>
<td width="66%" valign="bottom"><a href="Sendmail.asp"><font color="#FFFF00">发送邮件</font></a></td>
</tr>
</table>
<table width="90%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="34%" height="20" align="right"><img src="/Img/Left_1_1.gif" width="29" height="16"></td>
<td width="66%" valign="bottom"><a href="Viewuser.asp"><font color="#FFFF00">用户管理</font></a></td>
</tr>
</table>
<table width="90%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="34%" height="20" align="right"><img src="/Img/Left_1_1.gif" width="29" height="16"></td>
<td width="66%" valign="bottom"><a href="Adduser.asp"><font color="#FFFF00">添加用户</font></a></td>
</tr>
<tr>
<td height="20" align="right"> </td>
<td valign="bottom"> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="862" align="center" valign="top">
<br>
<br>
<b>发 送 邮 件</b><br>
<br>
<br>
<form name="sendmail" action="sendmailto.asp" method="post" >
<table border="0" cellspacing="2" cellpadding="0" width="550" align="center">
<tr>
<td height="25" bgcolor="#C0C0C0">
<div align="center"><font color="#000000">发信人地址:</font></div></td>
<td height="30" bgcolor="#E3E3E3"> <input type="text" name="frommail" value="<%=rs("frommail")%>">
</td>
</tr>
<tr> <%email=request("email")%>
<td bgcolor="#C0C0C0">
<div align="center"><font color="#000000">收信人地址:</font></div></td>
<td bgcolor="#E3E3E3">
<input name="tomail" type="text" value="<%=email%>">
<br>
<br>
<font color="#000000">(如果为空,从数据库取地址群发!) </font></td>
</tr>
<tr>
<td bgcolor="#C0C0C0">
<div align="center"><font color="#000000">信件标题:</font></div></td>
<td bgcolor="#E3E3E3">
<input type="text" name="mailsubject" size="50">
<br> <br>
<font color="#000000">(如果为空,则显示<font color="#FF0000">“<%=rs("mailsubject")%>”</font>!)
</font></td>
</tr>
<tr>
<td bgcolor="#C0C0C0">
<div align="center"><font color="#000000">信件内容:</font></div></td>
<td bgcolor="#E3E3E3">
<textarea name="mailbody" cols="50" rows="8"></textarea>
<br>
<br>
</td>
</tr>
<tr bgcolor="#336699">
<td height="25" bgcolor="#C0C0C0">
<div align="center"></div></td>
<td height="22" bgcolor="#E3E3E3">
<input type="submit" name="Submit" value="发送">
<input type="reset" name="Submit" value="取消"> <input type="hidden" name="action" value="我发">
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<!-- #include file="Inc/Foot.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -