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
