Классический ASP Случайное письмо

Question

Я хотел бы знать, есть ли способ получить случайное письмо (от AZ)

Спасибо за любую помощь.

Answer 1

Я думаю, это то, что вы ищете. Создать случайную букву в ASP :

Function RandomNumber(LowNumber, HighNumber)
    RANDOMIZE
    RandomNumber = Round((HighNumber - LowNumber + 1) * Rnd + LowNumber)
End Function

Присвойте функцию переменной и передайте LowNumber (26) и HighNumber (97) и преобразовать значение, возвращаемое в символ, который он представляет:

RandomLetter = CHR(RandomNumber(97,122))

Вам нужно, чтобы ваш диапазон составлял от 65 до 90 (от A до Z) для заглавных букв.

Answer 2

Вот еще один способ взглянуть на это без использования переключателя if /.

String alphabet = "abcdefghijklmnopqrstuvwxyz";
Random rand = new Random();
char randomCharacter = alphabet[rand.Next(0, 25)];

Answer 3

использовать случайное число ... как это:

Function RandomNumber(LowNumber, HighNumber)
     RANDOMIZE
     RandomNumber = Round((HighNumber - LowNumber + 1) * Rnd + LowNumber) 
End Function

, а затем используйте его из 1-26, используйте «если» или переключитесь, чтобы получить письмо.

Answer 4

Ответ Роджера Баретто исправлен намеком Джема))

Function RandomString(iSize)
    Const VALID_TEXT = "abcdefghijklmnopqrstuvwxyz1234567890"
    Dim Length, sNewSearchTag, I

    Length = Len(VALID_TEXT)

    For I = 1 To iSize
        Randomize()
        sNewSearchTag = sNewSearchTag & Mid(VALID_TEXT, Int(Rnd()*Length + 1), 1)
    Next

    RandomString = sNewSearchTag
End Function

Answer 5

Ответ Роджерио в порядке, но Round (Rnd * Len (VALID_TEXT)) может быть 0, а Mid не может начинаться с 0. Исправьте, если хотите использовать эту функцию.

Answer 6

Я пришел к решению, что вы можете легко контролировать допустимые значения для вашего генератора.

Function CreateRandomString(iSize)
    Const VALID_TEXT = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"
    Dim sNewSearchTag
    Dim I

    For I = 0 To iSize
        Randomize
        sNewSearchTag = sNewSearchTag & Mid(VALID_TEXT,Round(Rnd * Len(VALID_TEXT)),1)
    Next

    CreateRandomString = sNewSearchTag
End Function