UC知道ASP 批量生成随机数并且写进数据库代码,帮忙查一下问题
来源：百度知道 编辑：UC知道 时间：2024/07/04 23:34:49
Set Rs=Server.CreateObject("Adodb.RecordSet")
Rs.Open "Select ClickTimes From buyok_produc",Conn,3,3
Dim i,e
e=Rs.RecordCount()
For i=2 to e
Dim ThenNumx
PicCount=2000
Randomize
TheNum=Int((PicCount*Rnd)+1000)
Rs.Open "Select ClickTimes From buyok_produc",Conn,3,3
Rs("ClickTimes")=TheNum
Rs.Update
'SQL="Update buyok_produc Set ClickTimes="&TheNum&" where ClickTimes=1"
'Conn.Execute(SQL)
i=i+1
Response.write(TheNum)
Next
不知道咋弄,弄不好,请大侠们帮帮忙
Rs.Open "Select ClickTimes From buyok_produc",Conn,3,3
Dim i,e
e=Rs.RecordCount()
For i=2 to e
Dim ThenNumx
PicCount=2000
Randomize
TheNum=Int((PicCount*Rnd)+1000)
Rs.Open "Select ClickTimes From buyok_produc",Conn,3,3
Rs("ClickTimes")=TheNum
Rs.Update
'SQL="Update buyok_produc Set ClickTimes="&TheNum&" where ClickTimes=1"
'Conn.Execute(SQL)
i=i+1
Response.write(TheNum)
Next
不知道咋弄,弄不好,请大侠们帮帮忙
'下面就是产生随机数的:
function RndCode(Num)
Str="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
StrLen=len(Str)
for i=1 to Num
Randomize
RndNum=int(rnd(StrLen)*StrLen)+1
RndStr=RndStr&mid(Str,RndNum,1)
next
RndCode=RndStr
end function
'写入时看看你的条件是否有配的数据!
HELLO，我是动态网页交流群的！！<%'Set Rs=Server.CreateObject("Adodb.RecordSet") 'Rs.Open "Select ClickTimes From buyok_produc",Conn,1,1Dim i,e e= Conn.Execute("Select Count(ClickTimes) From buyok_produc")'Rs.RecordCount() 这样写不更好么？For i=2 to e Dim ThenNumx PicCount=2000 Randomize TheNum=Int((PicCount*Rnd) 1000) 'Rs.Open "Select ClickTimes From buyok_produc",Conn,3,3 'Rs("ClickTimes")=TheNum 'Rs.Update i=i 1 Response.write(TheNum) Next '最后才写入，你不是要得到一个随机字符串吗？SQL="Update buyok_produc Set ClickTimes="