📄 sendmail_user.asp

📁 图书管理系统图书管理系统图书管理系统图书管理系统图书管理系统图书管理系统图书管理系统图书管理系统图书管理系统
💻 ASP
字号:
<!--#include file="conn.asp"-->
<%if session(hxCacheName&"_admin")<>"OK" then
    response.redirect("admin_login.asp")
    end if
 if request.cookies(hxCacheName&"_rank")("rank")>2 then
  	response.write "<script language='javascript'>"
	response.write "alert('您的级别不够！');"
	response.write "location.href='javascript:history.go(-1)';"			
	response.write "</script>"
    end if%>

<%'===========================================
'天天智能友情链接管理系统
'天天DV网制作 http://www.ttdv.cn
'电脑家园http://www.pc326.com
'文秘家园http://www.wm326.com
'博大网址库http://www.ip126.com

'可自由传播和免费使用，但必须保留此完整版权信息
'本程序撷取了ITlearner、博大网址库智能友情链接系统、飞
'越智能友情链接系统等优秀程序中的源代码，对他们的作者表示感谢
'=============================================
%>
<script language=javascript src=../images/mouse_on_title.js></script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style.css" rel="stylesheet" type="text/css">
<BODY background="../images/back.gif">
<script language=javascript>
<!--
function CheckAll(form){
for (var i=0;i<form.elements.length;i++){
var e = form.elements[i];
if (e.name != 'chkall') e.checked = form.chkall.checked; 
}
}
-->
</script>
</head>
<BODY background="../images/back.gif">
<BODY background="../images/back.gif">

<%dim action,pages,sql,rs,totaluser,allPages,page,email
action=request("action")
if action="sendmail" then
call sendmail()
else
%>
<style type="text/css">
<!--
body {
	background-color: #dadae9;
}
.style1 {
	color: #FFFFFF;
	font-weight: bold;
	font-size: 12px;
}
.style2 {font-size: 12px}
-->
</style>
<form action=sendmail_user.asp method=post name=email>
<table width="98%" border="1"  style="border-collapse: collapse; border-style: dotted; border-width: 0px"  bordercolor="#DADAE9" cellspacing="0" cellpadding="2">
<tr>
<td colspan=4 bgcolor="#BDBEDE" height=28><font color="#ffffFF">友情链接邮件列表</font></td></tr>

<%  
pages = 20
sql="select * from tt_Link where email<>'' and maillist=1   order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if rs.eof and rs.bof then 
response.write "<tr><td colspan=4 align=center height=50>没有注册网站，未生成邮件列表</td></tr>"
response.end 
rs.close
set rs=nothing
end if

totaluser=RS.RecordCount
rs.pageSize = pages
allPages = rs.pageCount
page = Request("page")
If not isNumeric(page) then page=1
if isEmpty(page) or clng(page) < 1 then
page = 1
elseif clng(page) >= allPages then
page = allPages 
end if
rs.AbsolutePage = page

response.write "<tr><td align=center width='5%' bgcolor='#DADAE9'>选择</td><td width=30% align=center bgcolor='#DADAE9'>注册ID号</td><td width=30% align=center bgcolor='#DADAE9'>网站名称</td><td align=center bgcolor='#DADAE9'>Email</td></tr>"

Do While Not rs.eof and pages>0 
response.write "<tr><td height=25 bgcolor='#FAFAFA'><input type='checkbox' value='"&rs("eMail")&"' name=email></td><td bgcolor='#FAFAFA'>"&rs("UserName")&"</td><td bgcolor='#FAFAFA'>"&rs("ttName")&"</td><td bgcolor='#FAFAFA'>"&rs("email")&"</td></tr>"

pages = pages - 1
rs.movenext
if rs.eof then exit do
loop
%>

<tr><td colspan=4 bgcolor='#DADAE9'>
<input type='checkbox' name=chkall onclick='CheckAll(this.form)'>全选 
<input type=hidden name=action value=sendmail>
<input type=submit value="群发邮件">
</td></tr>
<table>
</form>
<%
call listPages()
end if

sub listPages() 
'分页
'if allpages<=1 then exit sub
response.write "<br>总记录数<font color=red>"&totaluser&"</font> &nbsp; 每页<font color=red>20</font>&nbsp; "
if page = 1 then
response.write "<font color=darkgray>首页 前页</font>"
else
response.write "<a href=sendmail_user.asp?keywords="&keywords&"&page=1>首页</a> <a href=sendmail_user.asp?keywords="&keywords&"&page="&page-1&">前页</a>"
end if
if page = allpages then
response.write "<font color=darkgray> 下页 末页</font>"
else
response.write " <a href=sendmail_user.asp?keywords="&keywords&"&page="&page+1&">下页</a> <a href=sendmail_user.asp?keywords="&keywords&"&page="&allpages&">末页</a>"
end if
end sub


sub sendmail()

email=request("email")
if email="" or isnull(email) then
response.write "<script language='javascript'>"
response.write "alert('出错了，您什么也没有选择！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
end if
email=replace(email,", ",";")
response.redirect "sendmail.asp?"&email
end sub
%>

</body>
</html>
<%
conn.close
set conn=nothing
%>
⌨️ 快捷键说明

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