<script language=vbscript> thenumstr="1,1,6,1,1,9,1,1,3" thenumarr=split(thenumstr,",") randomize thernd=cint(rnd()*8)+1 thenum=thenumarr(thernd) if thenum=null then thenum=1 sqladd="update counts set hits=hits+"&thenum&" where title='"&title&"'" msgbox thenum&"==="&sqladd </script>
[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]
时间: 2024-09-20 05:29:32