asp制作大屏幕抽奖程序思路

hblzg 2004-04-12 09:10:21
现在需要一个电视直播的抽取用户的手机号码的小程序。使用asp怎么来实现呢?
...全文
566 8 打赏 收藏 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
sportdog 2004-07-12
  • 打赏
  • 举报
回复
<%@ Language=VBScript %>
<%
on error resume next
Set InfoDB = Server.CreateObject("ADODB.Connection")
InfoDB.Open "provider=sqloledb;server=dbserver;uid=infouser;pwd=infouser;database=infodb"
sql = "select rtrim(fcst_name)+':'+fcp_series as card from t_customer a,T_CUSTOMER_PURCHASE b where a.fcst_id=b.fcp_cst_id"
set rs = infodb.Execute(sql)
if err.number<>0 then
Response.Write "提取数据失败"
Response.End
end if
strinfo=""
while not rs.eof
strinfo=strinfo&trim(rs("card"))&","
rs.movenext
wend
%>

<HTML><HEAD><TITLE>抽奖</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 5.50.4807.2300" name=GENERATOR>
<style>
.input_text{ Height:27;font-size: 20;font-weight: bold;font-family: 黑体;BORDER-RIGHT: silver 1px solid; BORDER-TOP: silver 1px solid; OVERFLOW: hidden; BORDER-LEFT: silver 1px solid; BORDER-BOTTOM: silver 1px solid; FONT-FAMILY: 宋体; BACKGROUND-COLOR:#ccffcc;color:#006600}
.input_text2{ Height:27;font-size: 20;font-weight: bold;font-family: 黑体;BORDER-RIGHT: silver 1px solid; BORDER-TOP: silver 1px solid; OVERFLOW: hidden; BORDER-LEFT: silver 1px solid; BORDER-BOTTOM: silver 1px solid; FONT-FAMILY: 宋体; BACKGROUND-COLOR:#000000;color:#33ff66}
</style>
</HEAD>
<BODY>
<INPUT size=22 name=show1 class="input_text2" readonly style="WIDTH: 315px; HEIGHT: 27px">
<br><br><BUTTON id=startb onclick='timer = setInterval("giveone()",27);this.disabled=true;endb.disabled=false;'>开始</BUTTON>
   <BUTTON id=endb onclick='StopGo();' disabled>停止</BUTTON>
<SCRIPT language=JavaScript>
var timer;
var strtmp ;
var arr;
var allstr;
allstr="<%=strinfo%>";
//allstr = "苏A AA021,苏B U8201,苏A W3351,";//苏A X2455,苏A AE666,苏A AF888,苏A AG443,苏A Y4545,苏A X3221,
strtmp = allstr.split(",");
function giveone()
{
var rndNum1 = parseInt(Math.random() * strtmp.length+1);
var i;
var cfflag;
arr = Go1.innerText.split(",");
if(arr.length>=strtmp.length)
{
document.all.show1.value="";
clearInterval(timer);
alert("已经抽出的等于总数");
startb.disabled=false;
endb.disabled=true;
return false;
}
else
{
if(strtmp[rndNum1-1].length!=0)
{
for(i=0;i<arr.length;i++)
{
if(arr[i]!=strtmp[rndNum1-1])
{
cfflag=0;
}
else
{
return false;
}
}
}
}
if(cfflag==0)
{
document.all.show1.value = " "+strtmp[rndNum1-1];
}
else
{
return false;
}
}

function StopGo()
{
var str;
str=Go1.innerText;
if(str.indexOf(document.all.show1.value)==-1)
{
clearInterval(timer);
Go1.innerText+=document.all.show1.value+",";
if(arr.length>=strtmp.length)
{
document.all.show1.value="";
clearInterval(timer);
alert("已经抽出的等于总数");
startb.disabled=true;
endb.disabled=true;
return false;
}
else
{
//setInterval("startb.click()",1000);
//setInterval("givetwo()",1000);
}
startb.disabled=false;
endb.disabled=true;
}
else
{
startb.disabled=true;
endb.disabled=false;
}

}

function givetwo() {
clearInterval(timer);
Go1.innerText+=document.all.show1.value+",";
startb.disabled=false;
endb.disabled=true;
return false;
}
</SCRIPT>
<TABLE>
<TR>
<TD id=Go0 height=27></TD></TR>
<TR>
<TR>
<TD id=Go1></TD></TR>
<TR>
<TD id=Go2></TD></TR>
<TR>
<TD id=Go3></TD></TR>
<TR>
<TD id=Go4></TD></TR></TABLE>
</BODY></HTML>
Mr Messi 2004-06-10
  • 打赏
  • 举报
回复
我以前做过一个这样的抽奖程序,其实是个很简单的程序!
思路:抽取所有符合条件的数据,写入一个临时表中,该表中有一个关键字段ID(自增类的KEY),然后用生成一个从0到记录总数之间的随机数,取ID等于随机数的记录为中奖者,然后从临时表中删除该记录,更新一下ID值。然后重复循环抽取数据即可。

呵呵呵,楼主你该不会是在嘉兴工作的吧?????
wanzhouxu 2004-06-09
  • 打赏
  • 举报
回复
同意一楼的做法,
flytyger 2004-06-09
  • 打赏
  • 举报
回复
如果有重复怎么办呢?关注
clkun 2004-06-09
  • 打赏
  • 举报
回复
关注。不知是什么好的解决方法。
Camelot 2004-06-09
  • 打赏
  • 举报
回复
这个用asp没办法吧,这已经应该在客户端了,用javascript了吧。
baisun 2004-06-09
  • 打赏
  • 举报
回复
考虑点停止的时候,隔0.5秒显示一个号码,直到得到所需个数 :)
liuyu202 2004-04-12
  • 打赏
  • 举报
回复
将被抽取的手机号码以一定的时间(例如200ms)循环显示,当按下停止按钮时,就停止选环显示,选取当前显示的号码作为中奖号码!
内容概要:本文围绕【复现IEEE二区文献】基于状态空间表示与组件连接法的构网型逆变器统一小信号建模框架研究,提出了一种适用于多控制策略构网型逆变器的小信号建模方法。该方法结合状态空间建模理论与组件连接法(Component Connection Method),实现了对复杂逆变器系统动态特性的精确描述,尤其适用于分析系统在不同运行工况下的稳定性。通过Matlab代码实现,构建了包含控制环路、滤波器、锁相环等关键模块的完整小信号模型,并利用特征值分析与模态参与度评估系统稳定性,解决了传统建模方法在面对多时间尺度、强耦合非线性控制结构时建模困难、精度不足的问题。研究还探讨了关键控制参数对系统稳定边界的影响,为构网型逆变器的参数整定与优化设计提供了理论依据和技术支撑。; 适合人群:具备电力电子、自动控制理论基础,从事新能源发电、微电网、电力系统稳定性研究的研究生、科研人员及工程技术人员,尤其适合致力于高水平期刊论文复现与仿真实践的科研工作者。; 使用场景及目标:① 掌握构网型逆变器统一小信号建模的核心方法,复现IEEE二区高水平文献成果;② 理解状态空间法与组件连接法在复杂电力电子系统建模中的集成应用;③ 利用Matlab进行特征值分析与稳定性判据研究,支撑科研仿真与论文写作;④ 为多逆变器并联系统、微电网稳定性分析等课题提供建模工具与技术路线参考。; 阅读建议:建议读者结合Matlab代码与文中建模流程逐步调试,重点关注各子模块状态方程的推导与系统整体矩阵组装过程,深入理解控制参数对系统极点分布的影响规律,建议配合其他稳定性分析案例进行对比学习以加深理解。

28,402

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧