本站为一个技术型PHP个人门户站,提供一些代码,技术文章、免费空间消息信息、让学习编程更轻松和不要钱买空间更方便-PHP小戴
你当前的位置:首页>>建站代码>>asp代码

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="">&nbsp;<%=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="">&nbsp;<%=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="">&nbsp;<%=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="">&nbsp;<%=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="">&nbsp;<%=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="">&nbsp;<%=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>&nbsp;&nbsp;<a   href="javascript:window.close()">关闭窗口</a>  
      </div>  
      </body>  


  • [时间:2008-12-13 16:47:16][点击:]

  • 上下篇文章加载中...
本站关键字:宁波网络公司/宁波网站建设公司/宁波网站制作公司/宁波做网站公司