asp怎么批量随机修改数据字体样式？
本帖最后由 sarahjenny 于 2012-11-30 11:00:54 编辑

asp怎么批量随机修改数据字体样式？

如原数据库：
ID                           标题                       样式
1                           aaaaa                       ,
2                           bbbbb                       ,
3                           ccccc                       ,
4                           ddddd                       ,
5                           eeeee                       ,
等。。。。

指定修改ID段 为3—100批量执行后  随机修改某个记录样式为字体,颜色  
修改率为 大概每5个记录随机修改1个记录
（注：有的只添加颜色，有的只添加字体，有的字体颜色都添加）

更新后：
ID                           标题                       样式
1                           aaaaa                       ,
2                           bbbbb                       ,
3                           ccccc                       粗体,红色
4                           ddddd                       粗体,
5                           eeeee                       ,蓝色 
 
等。。。。

求高手 给段代码 带注解那种  谢谢

[解决办法]

'模拟一下
    Public Function Rand(ByVal min, ByVal max)
        Randomize(Timer) : Rand = Int((max - min + 1) * Rnd + min)
    End Function

    Public Function SetStyle()
        Dim font, color
        font = Array("", "粗体")
        color = Array("", "红色", "蓝色")
        SetStyle = font(Rand(0, 1)) & "," & color(Rand(0, 2))
    End Function

    Dim arr(4), i
    arr(0) = ","
    arr(1) = ","
    arr(2) = ","
    arr(3) = ","
    arr(4) = ","
    For i = 0 To 4
        If Rand(1, 5) = 1 Then arr(i) = SetStyle()
    Next
    For i = 0 To 4
        Response.Write arr(i) & "<br>"
    Next