📄 savebroadcast.asp

📁 人民医院眼科全站
💻 ASP
字号:
<!-- #include file="../include/bkconn.asp" -->
<!--#include file="checkUser.asp"-->
<!--#include file="test.asp"-->
<html>
<head>
<title>后台管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../main.css" type="text/css">
</head>
<body bgcolor="#9CC7EF" text="#000000">
<%
strfrom=Request.Form ("from")
strsubject=Request.Form ("title")
strbody=Request.Form ("content")
set rs=server.CreateObject ("adodb.recordset")
%><br>
<font face="Wingdings 3" color="#FFFFFF">a</font> 开始发送消息给本网站会员,请你等待……<br>
<%
if Request("member")=1 then
	sql="select * from member where email<>''"
	rs.Open sql,conn,1,1
	do while not rs.EOF 
		set objcdomail=server.CreateObject ("cdonts.newmail")
		objcdomail.From =strfrom
		objcdomail.To =rs("email")
		objcdomail.Subject =strsubject
		objcdomail.Body =strbody
		objcdomail.Send 
		set objcdomail=nothing
		Response.Write " 　　"& rs("email")&"!<br>"
		rs.MoveNext
	loop
end if
%>
发送结束<br><br>
<font face="Wingdings 3" color="#FFFFFF">a</font> 开始发送消息给邮件列表用户（主动申请者）,请你等待……<br>
<%
set rs=server.CreateObject ("adodb.recordset")
sql="select email from mailList where 1=0"
if Request("apply")=1 then
	sql=sql&" or mailListSort=1"
end if
rs.Open sql,conn,1,1
do while not rs.EOF 
	set objcdomail=server.CreateObject ("cdonts.newmail")
	objcdomail.From =strfrom
	objcdomail.To =rs("email")
	objcdomail.Subject =strsubject
	objcdomail.Body =strbody
	objcdomail.Send 
	set objcdomail=nothing
	Response.Write "　　"& rs("email")&"!<br>"
	rs.MoveNext
loop
%>
发送完成<br><br>
<font face="Wingdings 3" color="#FFFFFF">a</font> 开始发送消息给邮件列表用户（被动添加者）,请你等待……<br>
<%
set rs=server.CreateObject ("adodb.recordset")
sql="select email from mailList where 1=0"
if Request("noapply")=1 then
	sql=sql&" or mailListSort=0"
end if
rs.Open sql,conn,1,1
do while not rs.EOF 
	set objcdomail=server.CreateObject ("cdonts.newmail")
	objcdomail.From =strfrom
	objcdomail.To =rs("email")
	objcdomail.Subject =strsubject
	objcdomail.Body =strbody
	objcdomail.Send 
	set objcdomail=nothing
	Response.Write "　　"& rs("email")&"!<br>"
	rs.MoveNext
loop
%>
发送完成<br><br>
<input type=button value="返回" onclick="history.back()">
<P>&nbsp;</P>

</BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -