- 技术文章排行榜
- 免费空间排行榜
asp简单投票源代码
OK这里是都写个一个页面的投票代码，其实也很简单，不多说了大家自己看
<!--#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>- [时间：2008-12-13 16:47:16][点击:]
上下篇文章加载中...
