📄 votedetail.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>闽东二手交易中心</title>

<meta name="Microsoft Border" content="none">
</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 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")
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
      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>" %>
      <br>



<p>[目前共有<%=total%>人参与本站调查]<br>
<br>&nbsp;页面风格:<img src=redbar.gif width=<%=int(selecta*2)%> height=10>&nbsp;<%=rs("selecta")%>人 占：<%=round(selecta,2)%>% 
<br>&nbsp;浏览速度:<img src=redbar.gif width=<%=int(selectb*2)%> height=10>&nbsp;<%=rs("selectb")%>人 占：<%=round(selectb,2)%>% 
<br>&nbsp;栏目规划:<img src=redbar.gif width=<%=int(selectc*2)%> height=10>&nbsp;<%=rs("selectc")%>人 占：<%=round(selectc,2)%>% 
<br>&nbsp;站点结构:<img src=redbar.gif width=<%=int(selectd*2)%> height=10>&nbsp;<%=rs("selectd")%>人 占：<%=round(selectd,2)%>% 
<br>&nbsp;联系交流:<img src=redbar.gif width=<%=int(selecte*2)%> height=10>&nbsp;<%=rs("selecte")%>人 占：<%=round(selecte,2)%>% 
<% 
else 
  response.write "目前还没有人投票,欢迎您投票!" 
end if 
rs.close 
set rs=nothing 
conn.close 
set conn=nothing 
%> 
 
 
 
</body>
⌨️ 快捷键说明

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