每次生成一个随机数并写入数据库问题

来源：百度知道 编辑：UC知道 时间：2024/05/29 08:01:19
情况是这样的
我数据库有一千条产品信息,有一个字段(ClickTimes)是记录点击数的.
我想批量执行生成随机数,并且写入数据库,使产品的点击数量都大致不同.

我这里有个思路,但没有成功
http://zhidao.baidu.com/question/30677568.html

大家可以参考以上代码,或者教下我应该怎么做吧,谢谢啦,哈

Dim ThenNumx
PicCount=2000
Set rs=conn.execute("Select id,ClickTimes From buyok_produc")
do while not rs.eof
Randomize
TheNum=Int((PicCount*Rnd)+1000)
Conn.Execute("Update buyok_produc Set ClickTimes="&TheNum&" where ClickTimes=1 and id="& rs("id") &"")
rs.movenext
loop
rs.close:set rs=nothing