可以用程序控制实现的

不知你的意思是不是这样？
改变J值即可
<table cellspacing="0" cellpadding="0" border="1" bordercolor="#FF0000" style="border-collapse:collapse">
<tr>
<%
dim j,k
j=4
Randomize
k=cint(rnd()*(j-1))+1
%>
<%for i=1 to j
%>
<td<%if k=i then%> bgcolor="#FF0000"<%end if%> height="20" width="40"></td>
<%next%>
</tr>
</table>