📄 votedetail.asp

📁 商店程序商店程序商店程序商店程序商店程序商店程序

💻 ASP

字号:

<html>
<head>
<title>调查结果</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<link rel="stylesheet" type="text/css" href="../style.css">
</head>

<body bgcolor="#FFFFFF">

  <%  
    Set myConnection = Server.CreateObject("ADODB.Connection")
    myConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../data/9mnh52_vote.asp")
    
    Set tempRs = Server.CreateObject("ADODB.Recordset")
    tempRs.ActiveConnection = myConnection
    tempRs.Open "SELECT sum(c_num) AS abc FROM vote"
    if tempRs("abc")<>0 Then
      tot_num=tempRs("abc")
      tempRs.Close
      tempRs.Open "SELECT id,note,c_num FROM vote Order BY id"
%> 
  <div align="center">
    <p align="center">显示调查结果，共有<%=tot_num%>人参加了我们的投票</p>
    <center> 
    </center>
  </div>
  <div align="center">
  <table width="600" border="0" cellspacing="1" height="19" bgcolor="#000000" bordercolorlight="#FFFFFF">
    <tr bgcolor="#99CCFF"> 
      <td class="text1" height="1" width="39" bgcolor="#BECFF1">编号</font></td>
      <td class="text1" height="1" width="130" bgcolor="#BECFF1">调查项目</font></td>
      <td class="text1" height="1" width="354" bgcolor="#BECFF1">比率</font></td>      
      <td class="text1" height="1" width="156" bgcolor="#BECFF1">得票数</font></td>      
    </tr>      
  </table>       
    <center> 
  <table width="600" border="0" cellspacing="1" height="19" bgcolor="#000000" bordercolorlight="#FFFFFF">
<%i=1
   do while not tempRs.eof%>
    <tr> 
      <td class="text1" height="1" width="41" bgcolor="#FFFFFF"><%=i%></td>
      <td bgcolor="#FFFFFF"></center>
      <td class="text1" height="1" width="132" bgcolor="#FFFFFF"><%=tempRs("note")%></td>
      <td class="text1" height="1" width="347" bgcolor="#FFFFFF"><img src="../images/back.gif" width="<%=int(tempRs("c_num")/tot_num*200)%>" height="8"> <%=int(tempRs("c_num")/tot_num*100)%>%&nbsp;</td>       
      <td class="text1" height="1" width="159" bgcolor="#FFFFFF"><%=tempRs("c_num")%>票</td>       
    </tr>       
<center> 
<%   tempRs.movenext        
    i=i+1        
    loop%>        
  </table>        
    </center>      
  </div>      
  <%Else        
  %><p class="text1" align="center">还没有人投票<%        
  End if%>        
  <p><%  Set tempRs = Nothing        
    Set myConnection = Nothing        
%></p>        
      
</body>        
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -