?? admin_mail.asp
字號:
<!--#include file="conn.asp" -->
<!--#include file="admin_dn.asp" -->
<!--#include file="mail_inc.asp" -->
<%
if Trim(Request.QueryString("w"))="send" then
rs.open "user",conn,1,1
s=0
while not rs.eof
s=s+1
call SendMail(rs("email"),Request.Form("title"),Trim(Request.Form("body")))
rs.movenext
wend
%>
<div align="center"><font color="#FF0000">
<% Response.Write("郵件發送成功 一共發送了"&s&"封郵件") %>
</font></div>
<%
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="image/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="5" topmargin="5">
<form name="form1" method="post" action="admin_mail.asp?w=send">
<table width="80%" height="213" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2" bgcolor="#F3F3F3">向所有用注冊用戶發送郵件</td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td width="20%">郵件主題:</td>
<td width="80%"><input name="title" type="text" id="title"></td>
</tr>
<tr>
<td>郵件內容:</td>
<td><font color="#FF0000">
<textarea name="body" cols="50" rows="8" id="body"></textarea>
支持HTML</font></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="發送"></td>
</tr>
</table>
</form>
<p>注:這封email將發送到您所有的注冊用戶的郵箱里,這里是采用jmail組件發送郵件的,如果您的服務器不支持jmail請先安裝jmail,并在<a href="site_basicinfo.asp"><font color="#0000CC">網站基本資料修改</font></a>里面設定好您的smtp和網站的email,如果您的用戶比較多將會占用很大的服務器資源。</p>
<p> </p>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -