<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title> </title> <link rel="stylesheet" type="text/css" href="css/style.css" mce_href="css/style.css"> <!--#include file="conn.asp"--> <mce:script language=JavaScript><!-- var TemID = new Array(); var TemDep = new Array(); var TemName = new Array(); var TempCode = new Array(); var countid,oknumber; document.οnkeydοwn=tabclick; function tabclick() { var a=window.event.keyCode var b=document.Form1.tabvalue.value if (a==32) { if (document.Form1.tabvalue.value==0) {document.Form1.tabvalue.value=1} else {document.Form1.tabvalue.value=0} if (document.Form1.tabvalue.value==0) {startrnd()} else {stoprnd()} } } function init() { <% set rs=server.createobject("adodb.recordset") sql="select * from mytab where code not in (select code from Win_List) " rs.open sql,conn,1,3 if rs.bof and rs.eof then %> alert('查不到相关记录'); <% else %> countid= <%=rs.recordcount %>; <% i = 0 do while not rs.eof strCode = cstr(rs("Code")) strID = cstr(rs("ID")) strDep = cstr(rs("dep")) strName = cstr(rs("Name")) %> TemID ["<%=i%>"]= new Array("<%=strID %>"); TemDep ["<%=i%>"]= new Array("<%=strDep%>"); TempCode ["<%=i%>"]= new Array("<%=strCode %>"); TemName ["<%=i%>"]= new Array("<%=strName %>"); <% i = i + 1 rs.movenext loop end if rs.Close %> }; rnd.today=new Date(); rnd.seed=rnd.today.getTime(); function rnd() { rnd.seed = (rnd.seed*930100+49297) % 233280000 ; return rnd.seed/(233280000.0); }; function rand(number) { return Math.ceil(rnd()*number); }; function Clear() { document.Form1.action = "Clear.asp"; document.Form1.submit(); } function startrnd() { var i,j,k; j=rand(countid); if(j == countid) { j = j -1; } oknumber=j; document.Form1.xyid.value = "工号为 " + TempCode[oknumber] + "的" + TemName[oknumber] ; document.Form1.StartBnt.disabled= true; document.Form1.StopBtn.disabled = false; timer1=setTimeout("startrnd()",5); }; function stoprnd() { var i=0; i++; document.Form1.StartBnt.disabled= false; document.Form1.StopBtn.disabled = true; //document.Form1.tabvalue.value = 0; clearTimeout(timer1); if(i==5) { document.Form1.xyid.value = "工号为 " + TempCode[oknumber] + "的" + TemName[oknumber] ; } } function save() { document.Form1.StartBnt.disabled= false; document.Form1.StopBtn.disabled = true; //document.Form1.tabvalue.value = 0; clearTimeout(timer1); document.Form1.xyid.value = "工号为 " + TempCode[oknumber] + "的" + TemName[oknumber]; document.Form1.action = "Save.asp?ID="+TemID[oknumber]+"&Code="+TempCode[oknumber]+"&Dep="+TemDep[oknumber]+"&Name="+TemName[oknumber]+""; document.Form1.submit(); } document.οnkeydοwn=stoprnd function click() { if (event.button==2) {alert('现在正在抽奖，别想别的事情啦!!!') }} document.οnmοusedοwn=click // --></mce:script> </head> <mce:style><!-- body{background-image:url(image/1.gif); background-attachment:fixed; border:0px ; background-repeat:no-repeat; background-position:center;} --></mce:style><style mce_bogus="1">body{background-image:url(image/1.gif); background-attachment:fixed; border:0px ; background-repeat:no-repeat; background-position:center;}</style> <body bgcolor="#B80000" onLoad="init()" style="margin:0px" mce_style="margin:0px"> <div align="center"><IFRAME src="top.asp" mce_src="top.asp" frameBorder=0 width=1024 scrolling=no height=219></IFRAME></div> <form name = "Form1" method="POST"> <table border="0" cellspacing="0" cellpadding="0" align="center"> <tr> <td width="3"></td> <td align="center" style="text-align: center" mce_style="text-align: center"><input name="xyid" type=text style="border-style:solid;border:1px solid #FFCC00;background-color:#ffffff;color:#000000; font-size:42pt; font-family:黑体; width:680; text-align:center" <% if request("id")<>"" then response.write "value="& "工号为" & request("Code") & "的" & request("Name") else %>value= "祝※您※中※奖※" <% end if %> size=16 maxlength=12></td> </tr> </table> <div align="center"> <br> <input type=button name="StartBnt" value="开始摇号" OnClick="startrnd()" style="color: #008080; border: 3px double #FFFF00" mce_style="color: #008080; border: 3px double #FFFF00"><input type=hidden name=tabvalue value=0> <input type=button name="StopBtn" value="停止摇号" disabled OnClick="stoprnd()" style="color: #008080; border: 3px double #00FF00" mce_style="color: #008080; border: 3px double #00FF00"> <input type=button name="saveBtn" value="保存记录" onClick="save()" style="color: #008080; border: 3px double #00FF00" mce_style="color: #008080; border: 3px double #00FF00"> <input type=hidden name="StartBnt0" value="清除记录" onClick="Clear()" style="color: #008080; border: 3px double #FFFF00" mce_style="color: #008080; border: 3px double #FFFF00"> <table width="542" border="1" cellpadding="2" cellspacing="0" bordercolor="#FFCC00" id="table1"> <tr> <td colspan="6" height="39"> <p align="center"><b><font size="6" color="#FFFFFF">中奖名单</font></b></td> </tr> <tr> <td align="center"><b><font color="#FFFFFF" size="6">序 号</font></b></td> <td align="center"><b><font color="#FFFFFF" size="6">奖项</font></b></td> <td align="center"><font color="#FFFFFF" size="6">幸运号</font></td> <td align="center"><font color="#FFFFFF" size="6">幸运名单</font></td> </tr> <% dj=0 sql="select * from Win_List order by shunxu " rs.open sql,conn,1,3 if rs.bof and rs.eof then else do while not rs.eof dj=dj+1 if dj<37 then %> <tr> <td align="center"><b><font size="5" color="#FFFFFF"><%=rs("sx")%></font></b></td> <td align="center"><b><font size="5" color="#FFFFFF"> <% if dj<=20 then response.write "三等奖 " elseif 20<dj and dj<=30 then response.write "二等奖 " elseif 30<dj and dj<=35 then response.write "一等奖 " elseif 35<dj and dj<=36 then response.write "特等奖 " end if %></font></b></td> <td align="center"><b><font size="5" color="#FFFFFF"><%=rs("Code")%></font></b></td> <td align="center"><b><font size="5" color="#FFFFFF"><%=rs("name")%></font></b></td> </tr> <% else response.write "<mce:script language=JavaScript><!-- document.Form1.xyid.value ='抽奖已结束！您就认了吧！^^' // --></mce:script>" end if rs.movenext loop end if rs.Close() set rs = nothing %> </table> <table width="100%" height="60" border="0" cellpadding="0" cellspacing="0"> <tr> <td align="center"> <font color="#008080">Design By:</font><a href="http://www.csuper.cn" mce_href="http://www.csuper.cn"><font color="#008080">Csuper</font></a> <a href="default.asp" mce_href="default.asp"><font color="#008080">Back</font></a> </td> </tr> </table> </div> </form> </body> </html>
1133
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
