大侠，帮帮我，谁能给我网上投票系统的代码阿？多少分都可以给你！！急啊！！

No001 2003-10-17 02:38:18
大概是这样的，我想做个喜爱球星的投票系统
在首页显示前五名的票最多的球星，和票数
有一页显示全部球星详细所得的票数
每个球星子页，可以投票，显示当前的的票数


哪里有这样的源代码，或者那位大侠能帮我，多少分都可以！！！



谢谢！！！
...全文
97 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
bineon 2003-10-19
  • 打赏
  • 举报
 回复
下面：

——————————————————————————————————
www.91asp.cn
有时间到这里找资料找书籍，你会发现asp以及.net很容易！
前提是你努力学习！
dafei0320 2003-10-17
  • 打赏
  • 举报
 回复
这样吧???
如果不清楚的话!发消息给我!!

<!--#include= file="conn.asp"-->
<% dim selecta,selectb,selectc,selectd,selecte,selectf
dim baia,baib,baic,baid,baie,baif
dim total
set rs=server.createobject("ADODB.recordset")
rs1="select * from research"
rs.open rs1,conn,1,1
if not rs.eof then
total=rs("selecta")+rs("selectb")+rs("selectc")+rs("selectd")+rs("selecte")+rs("selectf")
selecta=rs("selecta")
selectb=rs("selectb")
selectc=rs("selectc")
selectd=rs("selectd")
selecte=rs("selecte")
selectf=rs("selectf")
baia=int((rs("selecta")/total)*100)&"%"
baib=int((rs("selectb")/total)*100)&"%"
baic=int((rs("selectc")/total)*100)&"%"
baid=int((rs("selectd")/total)*100)&"%"
baie=int((rs("selecte")/total)*100)&"%"
baif=int((rs("selectf")/total)*100)&"%"
%>
<body bgcolor="#FFFFCC">
<div align="center">

<font size="4" color="#FF6699">调查结果：</font><p>
<table>
<tr>
<td><font size="4" color="#FF0000">[流行歌曲]</font></td>
<td width="150">有<%=rs("selecta")%>个人投票</td>
<td><img src="tu.gif" width="<%=int(selecta)%>" height="20" border="0" alt=""> <%=baia%></td>
</tr>
<tr>
<td><font size="4" color="#FF0000">[老歌]</font></td>
<td width="150">有<%=rs("selectb")%>个人投票</td>
<td><img src="tu.gif" width="<%=selectb%>" height="20" border="0" alt=""> <%=baib%></td>
</tr>
<tr>
<td><font size="4" color="#FF0000">[港台歌曲]</font></td>
<td width="150">有<%=rs("selectc")%>个人投票</td>
<td><img src="tu.gif" width="<%=selectc%>" height="20" border="0" alt=""> <%=baic%></td>
</tr>
<tr>
<td><font size="4" color="#FF0000">[外国歌曲]</font></td>
<td width="150">有<%=rs("selectd")%>个人投票</td>
<td><img src="tu.gif" width="<%=selectd%>" height="20" border="0" alt=""> <%=baid%></td>
</tr>
<tr>
<td><font size="4" color="#FF0000">[摇滚]</font></td>
<td width="150">有<%=rs("selecte")%>个人投票</td>
<td><img src="tu.gif" width="<%=selecte%>" height="20" border="0" alt=""> <%=baie%></td>
</tr>
<tr>
<td><font size="4" color="#FF0000">[大陆歌曲]</font></td>
<td width="150">有<%=rs("selectf")%>个人投票</td>
<td><img src="tu.gif" width="<%=selectf%>" height="20" border="0" alt=""> <%=baif%></td>
</tr>
<tr>
<td>一共有<font size="5" color="#FF00FF"><%=total%></font>个人参加投票！</td>
<td></td>
<td></td>
</tr>
</table>

<%
else
response.write"我日！！！目前还没有人投票呢！"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%><br>
<a href="index.asp">返回</a>  <a href="javascript:window.close()">关闭窗口</a>
</div>
</body>

No001 2003-10-17
  • 打赏
  • 举报
 回复
hksl(zzj) ，，，不是你说的那种，不过要谢谢你
qdubit 2003-10-17
  • 打赏
  • 举报
 回复
关注！
owen 2003-10-17
  • 打赏
  • 举报
 回复
我有整套带后台管理，防重复投票，可设定投票时间、投票项目、统计方式等等
给我发email/lwgyewen@21cn.com
hksl 2003-10-17
  • 打赏
  • 举报
 回复
index.htm

---------------------------------------------------------------------------------
<div align='center'><center><table border='0' width='90%' style='font-size: 9pt' cellspacing='0' cellpadding='0'><tr><form method='GET' action='dc/toupiao.asp'>
<td ><div align="left">◆主页改版成功了，您有什么看法？ <br>
<input type='radio' value='改后很好' name='R1'>
改后很好 <br>
<input type='radio' value='一般' name='R1'>
一般 <br>
<input type='radio' value='差不多' name='R1'>
差不多 <br>
<input type='radio' value='还不如从前' name='R1'>
还不如从前 <br>
　
<input type='submit' value='投票' name='B1'>
 
<input type='submit' value='结果' name='B2'>
</div></td></form></tr></table></center></div>
--------------------------------------------------------------------------------
toupiao.asp

----------------------------------------------------------------------------------
<!--#include file="filetou.asp"-->
<!--#include file="toupiao.ini"--><%
b2=request("b2")
if b2<>"" then response.redirect "disp.asp"
webdcsn=request.cookies(tou)
if webdcsn="yes" then response.redirect "../ever.asp?lr=您已在此次调查中投过票，一天内不能再次投票"
response.cookies(tou)="yes"
response.cookies(tou).expires=date+1

r1=request("r1")
if r1="" then response.redirect "../ever.asp?lr=请您选择投票项目"
sql="SELECT * FROM dc where name='"&r1&"'"
set rs=server.createobject("ADODB.Recordset")
rs.Open sql,conn, 1, 3
rs("ren")=rs("ren")+1
rs.update
rs.close
set conn=nothing
response.redirect "disp.asp"
%>
--------------------------------------------------------------------------------

disp.asp


<!--#include file="filetou.asp"-->
<%

sql="SELECT * FROM dc "
set rs=server.createobject("ADODB.Recordset")
rs.Open sql,conn, 1, 3
bt=rs("bt")
dat=rs("dat")
rs.movenext
do while not rs.eof
zs=zs+rs("ren")
rs.movenext
loop
if zs=0 then response.redirect "../ever.asp?lr=还没有人投票"
%>
<head>
<title>网上调查</title>
</head>
<body bgcolor="#D8EDF8" topmargin="0" leftmargin="0">
<div align="center">
<center>
<table border="1" cellspacing="0" width="100%" id="AutoNumber1" cellpadding="0" bgcolor="#00598C" height="21">
<tr>
<td width="50%"> <font size="2" color="#FFFFFF">调查结果</font></td>
<td width="50%">
<p align="right"><font color="#FFFFFF" size="2">调查时间：</font><font color=red size="2"><%=dat%></font><font size="2" color="#FFFFFF">至</font><font color=red size="2"><%=date%></font> 
</td>
</tr>
</table>
<table border="1" width="100%" bordercolorlight="#000000" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" style="font-size: 9pt" bgcolor="#C6C7C6">
<tr><td colspan='3'>

 <%
Response.Write "<font color=red>"&bt&"</font></td></tr><tr>"
rs.movefirst
rs.movenext
do while not rs.eof
Response.Write "<td width='22%' height='20' > "&rs("name")&"</td><td width='64%' height='20'> <table border='0' width='100%' cellspacing='0' cellpadding='0'><tr>"
Response.Write "<td bgcolor='#2299cc' width='"&cint(rs("ren")/zs*100)&"%'>   </td><td width='"&cint(100-rs("ren")/zs*100)&"%' style='font-size: 9pt'><div>"&formatnumber(rs("ren")/zs*100,2)&"%</div></td></tr></table></td>"
Response.Write "<td width='14%' p align='center'><font color=red>"&rs("ren")&"</font>人</td></tr>"
'Response.Write rs("name")&"："&rs("ren")&"  "&formatnumber(rs("ren")/zs*100,2)&"%   <br>"

rs.movenext
loop

rs.close
set conn=nothing
Response.Write " <tr> <td colspan='3' align='right'>　投票总人数：<font color=red>"&zs&"</font>人"

%>　</td>
</tr></table>
<a href="javascript:history.back()" style="text-decoration: none">
返回</a>    <a href="disp.asp" style="text-decoration: none">刷新</a></center>
</div>
<div align="center">
<center>



<p></p>



</center>
<p>　</p>
<p>　</p>
<p>
<center>



</p>
<table border="0" width="90%" style="font-size: 9pt" cellspacing="0" cellpadding="4">
<tr>
</tr>
</table>
</center>
</div>


好了就是这些了 你看看吧 可以结贴了吧
No001 2003-10-17
  • 打赏
  • 举报
 回复
没人理我？？？
C# For Unity系列之入门篇
你想当“李逍遥”式的“大侠”吗？ 这里无需计算机基础，无需编程经验，你也不必是计算机专业的在校大学生....只要爱好游戏，怀揣梦想！ 有一定自主学习能力，跟着刘老师从“编程小白”修炼为游戏研发“大虾”吧！！！学习好Unity，其先决条件是一定要有稳固、扎实的编程基础！课程 《C# For Unity系列之入门篇》配套学习资料链接：http://pan.baidu.com/s/1gflxreN 密码：sou5；刘老师讲Unity学员群(2) 497429806一、热更新系列(技术含量：中高级)：A：《lua热更新技术中级篇》https://edu.csdn.net/course/detail/27087B：《热更新框架设计之Xlua基础视频课程》https://edu.csdn.net/course/detail/27110C：《热更新框架设计之热更流程与热补丁技术》https://edu.csdn.net/course/detail/27118D：《热更新框架设计之客户端热更框架(上)》https://edu.csdn.net/course/detail/27132E：《热更新框架设计之客户端热更框架(中)》https://edu.csdn.net/course/detail/27135F：《热更新框架设计之客户端热更框架(下)》https://edu.csdn.net/course/detail/27136二：框架设计系列(技术含量：中级)： A：《游戏UI界面框架设计系列视频课程》https://edu.csdn.net/course/detail/27142B：《Unity客户端框架设计PureMVC篇视频课程(上)》https://edu.csdn.net/course/detail/27172C：《Unity客户端框架设计PureMVC篇视频课程(下)》https://edu.csdn.net/course/detail/27173D：《AssetBundle框架设计_框架篇视频课程》https://edu.csdn.net/course/detail/27169三、Unity脚本从入门到精通(技术含量：初级)A：《C# For Unity系列之入门篇》https://edu.csdn.net/course/detail/4560B：《C# For Unity系列之基础篇》https://edu.csdn.net/course/detail/4595C: 《C# For Unity系列之中级篇》https://edu.csdn.net/course/detail/24422D：《C# For Unity系列之进阶篇》https://edu.csdn.net/course/detail/24465四、虚拟现实(VR)与增强现实(AR):(技术含量：初级)A：《虚拟现实之汽车仿真模拟系统 》https://edu.csdn.net/course/detail/26618五、Unity基础课程系列(技术含量：初级) A：《台球游戏与FlappyBirds—Unity快速入门系列视频课程（第1部）》 https://edu.csdn.net/course/detail/24643B：《太空射击与移动端发布技术-Unity快速入门系列视频课程（第2部）》https://edu.csdn.net/course/detail/24645 C：《Unity ECS(二) 小试牛刀》https://edu.csdn.net/course/detail/27096六、Unity ARPG课程(技术含量：初中级)：A：《MMOARPG地下守护神_单机版实战视频课程(上部)》https://edu.csdn.net/course/detail/24965B：《MMOARPG地下守护神_单机版实战视频课程(中部)》https://edu.csdn.net/course/detail/24968C：《MMOARPG地下守护神_单机版实战视频课程(下部)》https://edu.csdn.net/course/detail/24979
(JAVA)哪位大侠帮帮我，帮我编个求最大公因值的代码
哪位大侠帮帮我，帮我编个求最大公因值的代码谢谢啦！！
计算机专业一定要走编程这条路吗？其实不然，你可以这样选择！
计算机专业出身的童鞋也可以有不同方向的发展，除了以后当程序员，你还可以有更多选择！ 可能每个人爱好不一样，有的人就比较喜欢编程之类的东西，但是有的同学就太适合编程。计算机专业出身的同学大致有两个方向的发展，一方面是技术类，一方面是非技术类。技术类当然就是你所说的敲代码啦，那非技术类呢，到底是什么概念呢？ 新媒体呀！每天你看的人工智能云计算大数据巴拉巴拉之类的文章是谁写出来的？你想过没有？程序员那么忙，有空天天给你报道马云马化腾刘强东说啥做啥吃啥啦？所以，有那么一个群体就是新媒体新闻工作者，简单来说就
学计算机等于写代码吗？计算机专业到底学什么？
很多人觉得学计算机就等于学写代码，每天就是不停的敲代码，是这样吗？计算机专业都学些什么？听小编一一道来! 学计算机==写代码，我觉得没什么错误。 计算机系正经的任务就是建模并实现，建模是通过将业务转化为代码的思想完成的。实现就是写代码，硬件也会涉及一些，但是真正去修改硬件，并不是大部分现代...
求助！！！组策略修改后无法保存！！急啊，求大侠指点

新装的系统，XP SP3，然后是管理员账号登录 ，却发现修改组策略的任何一项都不可以，都有下面的提示
 

 
网上说的修改注册表 还有 安全模式下的MMC方法都无法解决
急死了 系统现在不能重做，但是组策略需要修改。不知道怎么办。
希望知道的大侠能给留言。或者加QQ 4855122
万分感谢
ASP

28,390

社区成员

357,060

社区内容

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

加载中

查看更多榜单
社区公告
暂无公告

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

+ 用AI写文章