to_email.asp

百度搜索作弊系统 看了你就知道啦

<!--#include File="SQL.asp"-->
<!--#include File="Ckk_Conn.asp"-->
<%Ckk_NeiRong="目前已经有如下关键词Hots超过了15次：<br><br>"
set rstping=server.createobject("adodb.recordset")
sqlping="select * from Ckk_BaiDu Where NeiRongs='' and Go_Url='' and Hots>15 order by ID desc"
rstping.open sqlping,dsn,3,3
if not rstping.eof then 
do while not rstping.eof
Ckk_NeiRong=Ckk_NeiRong&"<a href=http://www.bm222.com/Ckk_Admin/XiuGai_Key.asp?ID="&rstping("ID")&" target=_blank>"&rstping("Key")&"</a> 关注："&rstping("Hots")&" 人<BR>"
rstping.movenext 
loop 
mailserver="smtp.qq.com"
'登录用户名
mailserverloginname="330256777"
'登录密码
mailserverloginpass="03070000"
'域名（如果你用“[e-mail]”这样的用户名登录时，请指明domain.com
mailuserdomain="qq.com"
		'=============== 发 信 ================
		set JMail=server.CreateObject("Jmail.message")
        JMail.Silent=true
		JMail.Charset = "gb2312"
		JMail.ContentType="text/html" 
		JMail.Priority = 5
        JMail.FromName = "Bm222s"
        JMail.from = "[e-mail]"
        JMail.AddRecipient "[e-mail]","CKKs"
		JMail.Subject = "Bm222修改。。。。。。。"
        jmail.Body=Ckk_NeiRong
        JMail.MailServerUserName = mailserverloginname
        JMail.MailServerPassWord = mailserverloginpass
        JMail.MailDomain = mailuserdomain
        sendok=JMail.send(mailserver)
End If 
rstping.close 
set rstping=nothing%>
<%
%>


<!--#include File="Close.asp"-->