showvote.asp

来自「超级购物网站支持支付宝比原来的时代商城好多了界面美观大方随拿随用」· ASP 代码 · 共 62 行

ASP

62 行

<!--#include file="const.asp"-->

<!--#include file="conn.asp"-->
<%classid=request("classid")
set rs=server.createobject("adodb.recordset")
set rs=conn.execute("select title from class where id="&classid)
title=rs("title")
rs.close
sql="select * from vote where class="&classid
rs.open sql,conn,3,1
totalcount=0
do while not rs.eof
totalcount=totalcount+rs("count")
rs.movenext
loop
totalren=totalcount
if totalcount=0 then
totalcount=1
end if
%>

<head>
<title></title>
<link rel="stylesheet" type="text/css" href="STYLE.CSS">
</head>

<body bgcolor="#93CA35">

<div align="center">
  <center>
  <table border="0" width="600" bordercolorlight="#000000" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" height="73">
    <tr>
      <td width="596" colspan="3" height="23" bgcolor="#E7E7E7">
        <p align="center"><b><font size=3 color=#0066cc>～<%=title%>～</font></b></td>
    </tr>
	<%rs.movefirst
	do while not rs.eof%>
    <tr>
      <td height="23" width="164" bgcolor="#E7E7E7">
        <p align="center"><%=rs("vote")%></td>
		<%h=(rs("count")*300)/totalcount%>
      <td height="23" width="300" valign="middle" bgcolor="#E7E7E7">
        <table border="0" width="<%=h%>" height="13" bgcolor="<%=rs("color")%>" cellspacing="0" cellpadding="0" bordercolorlight="#000000" bordercolordark="#FFFFFF">
          <tr>
            <td width="100%" style="border-style: solid; border-width: 1" valign="middle"></td>
          </tr>
        </table>
      </td>
      <td height="23" width="129" bgcolor="#E7E7E7">
        <p align="center"><font color=green><%=rs("count")%></font> 票(<%=cint((rs("count")*10000)/totalcount)/100%>%)</td> 
    </tr>
	<%rs.movenext
	loop%>
    <tr>
      <td width="596" colspan="3" height="21" bgcolor="#E7E7E7">
        <p align="center">共有投票<b><font color=red><%=totalren%></font></b>人次</td>
    </tr>
  </table>
  </center>
</div>

showvote.asp - 源码说明

本页面展示了「超级购物网站支持支付宝比原来的时代商城好多了界面美观大方随拿随用」中的 showvote.asp 源码文件，采用 ASP 编程语言编写，共 62 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与超级相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?