📄 display.asp.txt
字号:
<HTML>
<HEAD><TITLE>返回</TITLE></HEAD>
<BODY bgcolor=LightYellow>
<%
Dim oConn ' 声明Connection对象
Dim oRS ' 声明Recordset对象
Dim FilePath ' 声明Search.mdb文件物理路径
Dim Sela, Selb, Selc ' 声明对应数据库中调查字段的变量
Dim Total ' 声明总票数
Dim strSQL ' 声明数据库查询字符串
' 从Request对象中获取选择项值
selected = Request.Form("options")
' 获取Search.mdb的物理路径
FilePath = Server.MapPath("Search.mdb")
' 创建ADO的Connection对象到Search.mdb数据库的连接
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & FilePath
oConn.Open
' 创建ADO的Recordset对象
Set oRS = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM Search WHERE ID=1"
oRS.Open strSQL, oConn, 1, 1
Total = oRS("Sela") + oRS("Selb") + oRS("Selc")
If Not oRS.Eof And Total <> 0 Then
Sela = (oRS("Sela") / Total) * 100
Selb = (oRS("Selb") / Total) * 100
Selc = (oRS("Selc") / Total) * 100
%>
<center>
<P><FONT size=5 face=方正舒体 color= blue>调查结果</FONT><hr>
<TABLE><TR><TD>
<P>八一队：<IMG src=bar.gif width=<%=Int(Sela * 5)%> height=10>
<%=oRS("Sela")%>人 占：<%=Round(Sela, 2)%>%</P>
<P>上海队：<IMG src=bar.gif width=<%=Int(Selb * 5)%> height=10>
<%=oRS("Selb")%>人 占：<%=Round(Selb, 2)%>%</P>
<P>说不清：<IMG src=bar.gif width=<%=Int(Selc * 5)%> height=10>
<%=oRS("Selc")%>人 占：<%=Round(Selc, 2)%>%</P>
</TD></TR>
</TABLE>
<P align=center>共有<%=Total%>人参加调查</P>
<%
Else
Response.Write "<FONT size=5 face=方正舒体 color= blue>还没有人参与调查!</FONT><hr>"
End If
Response.Write "<center><P><A href=Index.asp>返回调查页面</A>"
' 关闭数据库，释放内存变量
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -