|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp对于服务器的要求较高,一般的服务器如果访问量一大就垮了,不得不重启。cookie|程序|随机<html>
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<title>体育彩票抽奖</title>
<scriptLANGUAGE="JavaScript"><!--
/*-----------------------------------------------------
应几个同事千般请求,为他们写了这个程序,何况我从不买彩票,也不懂.
不外你如果真的中了年夜奖,可别忘了告知我老蒋哟,甚么?怕我分你的钱?
我不贪财的,顶多送我张classicmusic碟我就很欢乐了!
byjianglixin@163.net(匆仓促写就,代码庞杂未及收拾)2001.2.28
-------------------------------------------------------*/
functionSetCookie()
{
varThen=newDate();
if(document.all.luckNum.innerText.length>20)
{
Then.setTime(Then.getTime()+1000*60*1000);
document.cookie="LastNum="+document.all.luckNum.innerText+";expires="+Then.toGMTString();
}
}
functionGetCookie()
{
varcookieHeader="LastNum=";
varbeginPosition=document.cookie.indexOf(cookieHeader);
varstatus=document.cookie.substring(beginPosition+cookieHeader.length);
document.all.lastNum.innerText="前次为您选的数:"+status;
}
functioncheck(form)
{
if(form.inputName.value.length<1)
{alert("请输出您的姓名!");
form.inputName.focus();
return(false);}
if(form.inputNum.value.length<1)
{alert("请输出您诞辰或侥幸数字!");
form.inputNum.focus();
return(false);}
if(!(checknum(form.inputNum.value)))
{alert("侥幸数必需是数字!");
form.inputNum.focus();
return(false);}
varrandNum,seeds,repeat;
varmy_array=newArray();
vartest_array=newArray();
varsort_array=newArray();
seeds=form.inputNum.value;
selectNum=7;totalNum=36;
for(i=0;i<totalNum;i++)sort_array[i]=i;
for(i=0;i<totalNum;i++)test_array[i]=0;
for(p=0;p<seeds;p++)
{
vari=0;
while(i<7)
{
repeat=false;
randNum=Math.ceil(totalNum*Math.random(seeds));
for(j=0;j<i;j++)
{
if(randNum==my_array[j])
repeat=true;
}
if(repeat==false)
{
my_array[i]=randNum;
test_array[randNum]+=1;
i++;
}
}
}
//my_array排序
vartemp;
for(i=0;i<selectNum-1;i++)
{
for(j=1;j<selectNum-i;j++)
{
if(my_array[i]>my_array[i+j])
{
temp=my_array[i];
my_array[i]=my_array[i+j];
my_array[i+j]=temp;
}
}
}
//排序
vartempNum;
for(i=0;i<selectNum;i++)
{
for(j=1;j<totalNum-i;j++)
&nbs</p>ASP是依赖组件的,能访问数据库的组件好多就有好多种,再有就是你微软的工具可是什么都要收钱的啊! |
|