📄 votedetail_1.asp

📁 这个也是一个功能强大的企业整站的ASP源代码

💻 ASP

字号:

<!--#include file="../include/connstr.asp"-->
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>调查系统</title>

<meta name="Microsoft Border" content="none">
<link href="../Include/mycss.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td> 
      <%
  set rs_sum=server.CreateObject("adodb.recordset")
  sql_sum="select sum(result) as a1 from tResearchAns where QuestionID="&request("que_id_temp")
  rs_sum.open sql_sum,conn,1,1
  total=rs_sum("a1")
'  response.write "total="&total&"<br>"&request("que_id_temp")
'  response.end
  set rs=server.CreateObject("adodb.recordset")
  sql="select * from tResearchAns where QuestionID="&request("que_id_temp")
  rs.open sql,conn,1,1
'  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>" %>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="27" align="center" class="fontleft"><strong>::: 调 查 结 果 
            :::</strong></td>
        </tr>
      </table>
      <br> <p class="fontleft">[目前共有<%=total%>人参与本站调查]<br>
        <br>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <% do while not rs.eof 
      selectx=(rs("result")/total)*100
  %>
        <tr> 
          <td width="29%" height="23" class="fontleft">&nbsp;<%=rs("Title")&"："%></td>
          <td width="71%" class="fontleft">
            <% response.write "<img src=images/redbar.gif width="&int(selectx*2)&" height=10>&nbsp;"&rs("result")&"人&nbsp;占："&round(selectx,2)&" %"%>
          </td>
        </tr>
        <%
  rs.movenext
loop
%>
      </table></td>
  </tr>
</table>
</body>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -