mail.asp

多用户个人主页系统(ASP)

<%
response.buffer=true
response.expires=0
%>
<!--#include file="includes/dataconn.inc"-->
<!--#include file="includes/setup.asp"-->
<% Server.ScriptTimeout = 1000 %>
<%
selectt = trim(request.form("selectt"))
zt = trim(request.form("zt"))
nr = trim(request.form("nr"))
sql="select * from user where kt='否'"
if selectt="所有开通用户" then sql="select * from user where kt='是'"
if adminlogin=session("username") and adminpassword=session("password") then
set rs = Conntemp.Execute(sql)
counttemp=rs.fields.count-2
do while not rs.eof
for i=0 to counttemp step 14
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = fromemail
objCDOMail.Subject = zt
objCDOMail.Body = nr
objCDOMail.To = rs("email")
objCDOMail.Send
set objCDOMail = nothing
next
rs.movenext
loop
Response.write("<script>alert('邮件群发成功！');location.href='email.asp'</script>")
else
%>
<script>alert('您的操作非法，已被系统记录！');location.href='index.asp'</script>     
<%
end if
%>