[会员中心]  [发布文章][发布软件]  [中文繁體]
 文章·资料  电脑软件  手机软件  网站源码
    本 站 搜 索
[选项]
   推 荐 文 章        More...
华硕易电脑(ASUS Eee PC 10..
先来段开场白:为了外出携带方便,..
Acronis True Image 使用..
  一款可以在Windows下使用全..
Norton Ghost 使用详解
一、分区备份   使用Ghost进..
    文 章 阅 读 排 行
Microsoft SQL Server 2000..
  对于第一次安装 Microsoft SQ..
ASP:Dimac W3 JMail 发送..
【发送邮件测试代码下载】压..
ASP:Persits ASPMail 发送..
【发送邮件测试代码下载】压..
VMware Workstation:安装..
编写这份虚拟机安装的图文教程,..
华硕易电脑(ASUS Eee PC 10..
先来段开场白:为了外出携带方便,..
ASP:Microsoft CDO 发送邮..
【发送邮件测试代码下载】压..
 文 章 信 息
虚拟抽奖程序
评论()〗〖留言〗〖收藏
〖文章分类:电脑·手机·网络 / HTML·CSS·JavaScript〗〖阅读选项

<script language="JavaScript">
function lotto(){
if (!document.all&&!document.layers)
return
for (j=1; j < 48; j++)//stop zero!?
 {
 var a=Math.round(Math.random()*j+1);
 var b=Math.round(Math.random()*j+1);
 var c=Math.round(Math.random()*j+1);
 var d=Math.round(Math.random()*j+1);
 var e=Math.round(Math.random()*j+1);
 var f=Math.round(Math.random()*j+1);
 }
var x=new Array(a,b,c,d,e,f);
if ((x[0] == x[1]) || (x[0] == x[2]) || (x[0] == x[3]) || (x[0] == x[3]) || (x[0] == x[5]) ||
    (x[1] == x[2]) || (x[1] == x[3]) || (x[1] == x[4]) || (x[1] == x[5]) ||
    (x[2] == x[3]) || (x[2] == x[4]) || (x[2] == x[5]) ||                       
    (x[3] == x[4]) || (x[3] == x[5]) ||
    (x[4] == x[5]) || (x[5] == x[4]))
lotto();//restart
else
 {
 var y=x.toString();
 var z=y.split(',');
 for (i=0; i < z.length; i++)
 {
 z[i]=z[i]+" ";
 if (z[i].length < 3)
 z[i]="0"+z[i]+" ";
 }
 z=z.sort();
 Nos=z[0]+z[1]+z[2]+z[3]+z[4]+z[5];
  if (document.all)
  {document.all.layer1.innerHTML=Nos;}//OR Z!
  else if (document.layers)
  {
  document.layers.layer1.document.open();
  document.layers.layer1.document.write("<span style='position:absolute;top:0px;left:0px;font-family:Verdana;font-size:20px;color:#888888;text-align:center'> "+Nos+"</span>");
  document.layers.layer1.document.close();
  }
  T=setTimeout('lotto()',10);
 }
}
//-->
</script>

<table border=0 width=250 height=50>
<tr valign=middle>
<td align=center>
<form name=form>
<input type=button value='开始选号' onClick="lotto(),setTimeout('clearTimeout(T)',3000)">
</form>
<span id=layer1 style="position:relative;font-family:Verdana;font-size:20px;color:#0000FF;">Result</span>
</td>
</tr>
</table>


文章作者:未知  更新日期:2006-09-14
〖文章浏览:〗〖打印文章〗〖发送文章
阅读说明
·本站大部分文章转载于网络,如有侵权请留言告知,本站即做删除处理。
·本站法律法规类文章转载自[中国政府网(www.org.cn)],相关法律法规如有修订,请浏览[中国政府网]网站。
·本站转载的文章,不为其有效性,实效性,安全性,可用性等做保证。
·如果有什么问题,或者意见建议,请联系[网站管理员]。
  当百网
  本站使用【啊估文章软件站】网站系统    网站管理员留言簿