程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> 關於ASP編程 >> asp 在線調查系統

asp 在線調查系統

編輯:關於ASP編程

    <head>
    <meta http-equiv="Content-Language" content="zh-cn">
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
    <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
    <meta name="ProgId" content="FrontPage.Editor.Document">
    <LINK href="new.css" rel=stylesheet type=text/css>
    <title>asp 在線調查系統</title>
    <meta name="Microsoft Border" content="none">
    <style type="text/css">
    <!--
    .test {  font-size: 13px}
    -->
    </style>
    </head>

    <body>
    <%
       dim conn  
       dim connstr
       connstr="DBQ="+server.mappath("vote.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
         set conn=server.createobject("ADODB.CONNECTION")
         conn.open connstr

    dim rs
    dim sql
    dim selecta
    dim selectb
    dim selectc
    dim selectd
    dim selecte
    dim selectf
    dim selectg
    dim selecth
    dim selecti
    dim selectj
    dim total
    set rs=server.createobject("adodb.recordset")
    sql="select * from vote where id=1"
    rs.open sql,conn,1,1
    if not rs.eof then
    total=rs("selecta")+rs("selectb")+rs("selectc")+rs("selectd")+rs("selecte")+rs("selectf")+rs("selectg")+rs("selecth")+rs("selecti")+rs("selectj")
    selecta=(rs("selecta")/total)*100
    selectb=(rs("selectb")/total)*100
    selectc=(rs("selectc")/total)*100
    selectd=(rs("selectd")/total)*100
    selecte=(rs("selecte")/total)*100
    selectf=(rs("selectf")/total)*100
    selectg=(rs("selectg")/total)*100
    selecth=(rs("selecth")/total)*100
    selecti=(rs("selecti")/total)*100
    selectj=(rs("selectj")/total)*100
          response.write "<table  cellspacing=0 cellpadding=0 border=1 valign='middle' width='100%' height='100%' align='center' bordercolor='#ffffff' ><tr><td bgcolor='#f7f3f7' bordercolor='#808080'>"
          response.write "<p align=center>::: 調 查 結 果 :::</p>" %>
    <span class="test"><br>
    </span>
    <p class="test">[目前共有<b><font color="#FF0000"><%=total%></font></b>人參與本站調查]<br>
      <br>
      &nbsp;
    <table width="424" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="147" class="test" height="20">
          <div align="right">城市花園:</div>
        </td>
        <td width="277" class="test" height="20"><img src=redbar.gif width=<%=int(selecta*2)%> height=10>&nbsp;<%=rs("selecta")%>人
          占:<%=round(selecta,2)%>% </td>
      </tr>
      <tr>
        <td width="147" class="test" height="20">
          <div align="right">新世界花園:</div>
        </td>
        <td width="277" class="test" height="20"><img src=redbar.gif width=<%=int(selectb*2)%> height=10>&nbsp;<%=rs("selectb")%>人
          占:<%=round(selectb,2)%>% </td>
      </tr>
      <tr>
        <td width="147" class="test" height="20">
          <div align="right">景湖花園:</div>
        </td>
        <td width="277" class="test" height="20"><img src=redbar.gif width=<%=int(selectc*2)%> height=10>&nbsp;<%=rs("selectc")%>人
          占:<%=round(selectc,2)%>% </td>
      </tr>
      <tr>
        <td width="147" class="test" height="20">
          <div align="right">東泰花園:</div>
        </td>
        <td width="277" class="test" height="20"><img src=redbar.gif width=<%=int(selectd*2)%> height=10>&nbsp;<%=rs("selectd")%>人
          占:<%=round(selectd,2)%>% </td>
      </tr>
      <tr>
        <td width="147" class="test" height="20">
          <div align="right">新世紀豪園:</div>
        </td>
        <td width="277" class="test" height="20"><img src=redbar.gif width=<%=int(selecte*2)%> height=10>&nbsp;<%=rs("selecte")%>人
          占:<%=round(selecte,2)%>% </td>
      </tr>
      <tr>
        <td width="147" class="test" height="20">
          <div align="right">景峰高爾夫別墅:</div>
        </td>
        <td width="277" class="test" height="20"><img src=redbar.gif width=<%=int(selectf*2)%> height=10>&nbsp;<%=rs("selectf")%>人
          占:<%=round(selectf,2)%>% </td>
      </tr>
      <tr>
        <td width="147" class="test" height="20">
          <div align="right">時富花園:</div>
        </td>
        <td width="277" class="test" height="20"><img src=redbar.gif width=<%=int(selectg*2)%> height=10>&nbsp;<%=rs("selectg")%>人
          占:<%=round(selectg,2)%>% </td>
      </tr>
      <tr>
        <td width="147" class="test" height="20">
          <div align="right">雍華庭花園:</div>
        </td>
        <td width="277" class="test" height="20"><img src=redbar.gif width=<%=int(selecth*2)%> height=10>&nbsp;<%=rs("selecth")%>人
          占:<%=round(selecth,2)%>% </td>
      </tr>
      <tr>
        <td width="147" class="test" height="20">
          <div align="right">金澤花園:</div>
        </td>
        <td width="277" class="test" height="20"><img src=redbar.gif width=<%=int(selecti*2)%> height=10>&nbsp;<%=rs("selecti")%>人
          占:<%=round(selecti,2)%>% </td>
      </tr>
      <tr>
        <td width="147" class="test" height="20">
          <div align="right">東湖花園:</div>
        </td>
        <td width="277" class="test" height="20"><img src=redbar.gif width=<%=int(selectj*2)%> height=10>&nbsp;<%=rs("selectj")%>人
          占:<%=round(selectj,2)%>%
          <% 
    else 
      response.write "目前還沒有人投票,歡迎您投票!" 
    end if 
    rs.close 
    set rs=nothing 
    conn.close 
    set conn=nothing 
    %>
        </td>
      </tr>
    </table>
    </body>

    1. 上一頁:
    2. 下一頁:
    Copyright © 程式師世界 All Rights Reserved