<script src='Http://code.xrss.cn/AdJs/csdntitle.Js'></script>sub sendmail( fromWho, toWho, Subject, Body )
dim mymail
setmymail = Server.CreateObject("CDONTS.Newmail")
mymail.From = fromWho
mymail.To = toWho
mymail.Subject = Subject
mymail.Body = Body
mymail.Send
set mymail = Nothing
end sub <script src='Http://code.xrss.cn/AdJs/csdnEnd.Js'></script>
dim mymail
setmymail = Server.CreateObject("CDONTS.Newmail")
mymail.From = fromWho
mymail.To = toWho
mymail.Subject = Subject
mymail.Body = Body
mymail.Send
set mymail = Nothing
end sub <script src='Http://code.xrss.cn/AdJs/csdnEnd.Js'></script>