adminqunfachk.asp

人才招聘系统,用asp做的

<!--#include file=../conn.asp-->
<!--#include file=usercookies.asp-->
<!--#include file=onlinerz.asp-->
<!--#include file=../mail.asp-->
<%
dim Jmail,mailbody,rs,sql,mailSubject,Allrecord,obj
Server.ScriptTimeout=9999999
if request("mailSubject")="" then
call err()
else
mailSubject=request("mailSubject")
end if
if request("mailbody")="" then
call err
else
mailbody=request("mailbody")
end if
obj=request("obj")
sub err()
response.write "输入参数错误,你试图进行不合法的操作!" 
response.write "错误信息，标题或内容为空！" 
response.end
end sub

sub ado_close()
conn.close
set conn=nothing
end sub
set rs=server.createobject("adodb.recordset")
if request("huiyuan")="company" then
 select case obj
 case 1
 sql="select mailBox from [company] where len(mailBox)>1" 
 case 2
 sql="select mailBox from [company] where len(mailBox)>1 and zazhi<>0"
 case 3
 sql="select mailBox from [company] where len(mailBox)>1 and username='"&request("UserName")&"'"
 end select
else
 select case obj
 case 1
 sql="select useremail from [person] where len(useremail)>1" 
 case 2
 sql="select useremail from [person] where len(useremail)>1 and zazhi<>0"
 case 3
 sql="select useremail from [person] where len(useremail)>1 and username='"&request("UserName")&"'"
 end select
end if
rs.open sql,conn,1,1
if rs.eof or rs.bof then
response.write "没有用户符合条件呀!" 
response.end
else
Allrecord=rs.Recordcount
do while not rs.eof
mailbody=request("mailbody")
Set Jmail=server.createobject("Jmail.Message")
Jmail.Charset ="gb2312"
JMail.ContentType = "text/html"
Jmail.Silent =true
Jmail.Priority = 3
Jmail.MailServerUserName=mailname
Jmail.MailServerPassword=mailpass
Jmail.From=mailform
Jmail.FromName="猎才网"
Jmail.Subject=mailSubject
if request("huiyuan")="company" then
Jmail.AddRecipient ""&rs("mailbox")&""
else
Jmail.AddRecipient ""&rs("useremail")&""
end if
Jmail.Body = mailbody 
Jmail.Send(mailsmtp)
Set Jmail=nothing
rs.movenext
loop
end if

call ok
sub ok()
response.write "<p align=""center""><font color=""#ff0000"">群发成功！</font></p><br>"
response.write "<p align=""center"">发送给<font color=""#ff0000"">"
if request("huiyuan")="company" then 
response.write "企业用户 "
else 
response.write "个人会员"
end if
response.write "</font>邮件共<font color=""#ff0000"">"&Allrecord&"</font>封</p><br>"
end sub
call ado_close
%>
<p align="center"><!--#include file=../person/time.asp--></p>