
<%dim usermail,fsobj,txtobj

Set fsObj=Server.CreateObject("Scripting.FileSystemObject")
set txtObj = fsObj.OpenTextFile(Server.MapPath("./")&"\mail.txt",1)
i=0
do while not AtEndOfStream  
dim  objCDOMail,SendMail
	Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
	objCDOMail.From ="pp_code@hotmail.com"
	objCDOMail.To =txtobj.ReadLine()
	objCDOMail.Subject ="真水无香论坛换地址了"
	objCDOMail.BodyFormat = 0 
	objCDOMail.MailFormat = 0 
	objCDOMail.Body ="http://www.ppcode.com/bbs"
	objCDOMail.Send
	Set objCDOMail = Nothing
	if err then 
	SendMail=err.description
	err.clear
	else
	SendMail="OK"
	end if
i=i+1
loop
 txtobj.close()
 response.write i

 set txtObj=nothing
set fsObj=nothing
%>