⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 result.asp

📁 这是一个基于JSP设计的论坛网站(源码)
💻 ASP
字号:
<script>
function window.onload(){
var ObjStr='<object id="Cls" classid=clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11 type=application/x-oleobject><param name="Command" value="CloseX"></object>'
document.body.insertAdjacentHTML("BeforeEnd",ObjStr)
if(parseInt(window.navigator.appVersion.split(";")[1].substr(5))>=6){
window.opener=''
setTimeout("self.close();",8000) 
}
else Cls.Click()
}
</script>
<!--#include file="dbconn.asp"-->
<%
dim rs
dim sql
dim selecta
dim selectb
dim selectc
dim selectd
dim total
set rs=server.createobject("adodb.recordset")
sql="select * from research where id=1"
rs.open sql,conn,1,1
if not rs.eof then
total=rs("selecta")+rs("selectb")+rs("selectc")+rs("selectd")
selecta=(rs("selecta")/total)*100
selectb=(rs("selectb")/total)*100
selectc=(rs("selectc")/total)*100
selectd=(rs("selectd")/total)*100
%>
<STYLE type=text/css>
body, td { FONT-FAMILY: "宋体"; FONT-SIZE: 9pt }
</STYLE>
<title>投票结果</title>
<div align="center">
<center>
<table border="0" cellspacing="0" cellpadding="2">
  <tr>
        <td colspan="3"> <p align="center"><strong><font color="#003399">从何处得知本公司网站开通?</font></strong></td>
  </tr>
  <tr> 
        <td>报刊,电视,等媒体:</td>
    <td><img src=bar.gif width=<%=int(selecta*5)%> height=10> </td>
    <td><%=rs("selecta")%>人占:<%=round(selecta,2)%>%</td>
  </tr>
  <tr> 
        <td>企业宣传活动,广告:</td>
    <td><img src=bar.gif width=<%=int(selectb*5)%> height=10></td>
    <td><%=rs("selectb")%>人占:<%=round(selectb,2)%>%</td>
  </tr>
  <tr> 
        <td>朋友,他人的相告:</td>
    <td><img src=bar.gif width=<%=int(selectc*5)%> height=10></td>
    <td><%=rs("selectc")%>人占:<%=round(selectc,2)%>%</td>
  </tr>
  <tr> 
        <td>通过网络搜索引擎:</td>
    <td><img src=bar.gif width=<%=int(selectd*5)%> height=10></td>
    <td><%=rs("selectd")%>人占:<%=round(selectd,2)%>%</td>
  </tr>
  <tr> 
    <td colspan="3"> 
      <div align="center">谢谢您的参与。共有:<%=total%>人参加调查 
        <%
else
  response.write "还没有人参与调查"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
      </div>
    </td>
  </tr>
</table></center>
</div>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -