ＡＳＰ：随机数的生成

Function sjs
    Dim MyValue
    Randomize '对随机数生成器做初始化的动作。

    MyValue = Int((8 * Rnd) + 1) ' 生成 1 到 8 之间的随机数值
    sjs=MyValue
End Function