本文发表在 rolia.net 枫下论坛<%@ Language=JavaScript %>
<!-- #include file="_ScriptLibrary/function.asp" -->
<%
var fso, f, receiver;
fso = new ActiveXObject("Scripting.FileSystemObject")
f = fso.OpenTextFile("c:\\ResNETMP3\\sendMail.txt", 1)
receiver = f.ReadAll()
var rec = receiver.split(";")
f.close()
var sub = "University of Waterloo ResNET"
var sender = "\"ResNETMP3 Administrator\" <Res@NET.com>"
var recCC = ""
var mes = "Dear Friend:\n\n"
+ "I have developed an intranet ResNETMP3 application which allow residence of Student Village 1 "
+ "download music from my web site without costing any quota {^-^} because "
+ "it is counted as internal file transfer. \n\n"
+ "This web site will run from 5:30pm to 8:30am in weekday and full day "
+ "during the weekend in order to avoid being scanned. Please take a look!\n\n"
+ "http://129.97.235.118:38888/\n\n"
+ "Please feel free to forward this link to everyone who's living in Village "
+ "and allow them to share this quota-less mp3 site with you.\n\n"
+ "Thanks very much and enjoy downloading!\n\n"
+ "ResNETMP3 Administrator"
for (var i=0; i < rec.length; i++) {
sendMail(rec[i],recCC,sender,sub,mes)
}
Response.Write("Finished!")
function sendMail(rec,recCC,sender,sub,mes) {
mes = mes.replace(/\r\n/g, "")
var msg = Server.CreateObject("CDONTS.NewMail")
msg.From = sender
msg.To = rec
if (recCC != "")
msg.Cc = recCC
msg.Subject = sub
msg.Body = mes
msg.Importance = CdoHigh
msg.Send()
}
%>更多精彩文章及讨论,请光临枫下论坛 rolia.net
<!-- #include file="_ScriptLibrary/function.asp" -->
<%
var fso, f, receiver;
fso = new ActiveXObject("Scripting.FileSystemObject")
f = fso.OpenTextFile("c:\\ResNETMP3\\sendMail.txt", 1)
receiver = f.ReadAll()
var rec = receiver.split(";")
f.close()
var sub = "University of Waterloo ResNET"
var sender = "\"ResNETMP3 Administrator\" <Res@NET.com>"
var recCC = ""
var mes = "Dear Friend:\n\n"
+ "I have developed an intranet ResNETMP3 application which allow residence of Student Village 1 "
+ "download music from my web site without costing any quota {^-^} because "
+ "it is counted as internal file transfer. \n\n"
+ "This web site will run from 5:30pm to 8:30am in weekday and full day "
+ "during the weekend in order to avoid being scanned. Please take a look!\n\n"
+ "http://129.97.235.118:38888/\n\n"
+ "Please feel free to forward this link to everyone who's living in Village "
+ "and allow them to share this quota-less mp3 site with you.\n\n"
+ "Thanks very much and enjoy downloading!\n\n"
+ "ResNETMP3 Administrator"
for (var i=0; i < rec.length; i++) {
sendMail(rec[i],recCC,sender,sub,mes)
}
Response.Write("Finished!")
function sendMail(rec,recCC,sender,sub,mes) {
mes = mes.replace(/\r\n/g, "")
var msg = Server.CreateObject("CDONTS.NewMail")
msg.From = sender
msg.To = rec
if (recCC != "")
msg.Cc = recCC
msg.Subject = sub
msg.Body = mes
msg.Importance = CdoHigh
msg.Send()
}
%>更多精彩文章及讨论,请光临枫下论坛 rolia.net