📄 invest_view.asp

📁 ASP网页
💻 ASP
字号:
<%@ Language=VBScript %>

<%Response.Buffer=false%>
<%Response.Expires=0%>

<!-- #include file="../dsn.asp" -->
<%
parentno=Request.QueryString("parentno")
if parentno="" then 
	Response.End
end if		

set cn = Server.CreateObject("ADODB.Connection")
cn.Open(mycnstr)
set rs = Server.CreateObject("ADODB.Recordset")

if Request.ServerVariables("REQUEST_METHOD")="POST" then
	mychoice=Request.Form("invest")
	if mychoice<>"" then
		sqltext="update investigate set result=result+1 where keyno="&mychoice	
		cn.Execute sqltext
		'Response.Write("<script language=Javascript>")
		'Response.Write("window.close()")
		'Response.Write("</script>")
	end if	
end if
sqltext="select title from investigate where keyno="&parentno
rs.open sqltext,cn,1,1
title=trim(rs(0))
rs.Close
%>
<HTML>
<HEAD>
<title>调查结果</title>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<style type="text/css">
<!--
.cls1 {font-family: "Arial", "Helvetica", "宋体", "sans-serif"; font-size: 9pt; color:#FFFFFF; text-decoration: none}
.cls2 {font-family: "Arial", "Helvetica", "宋体", "sans-serif"; font-size: 9pt; text-decoration: none}
-->
</style>
</HEAD>
<BODY bgcolor=efefef topmargin=8>
<p class=cls12 style="color:darkred;" align=center><b>调　查　结　果</b></p>
<table width=90% bgcolor=#4682b4 border="0" cellspacing="5" cellpadding="0" class=cls2 align=center>
  <tr>
    <td valign=middle>
	  <table width=100% border="0" cellspacing="3" cellpadding="0" class=cls2 align=center>
	    <tr bgcolor=#4682b4 align=center><td class=cls1>“<%=title%>” 的调查结果</td></tr>
	    <tr bgcolor=#ffffff align=center>
	      <td height=200>
	        <table width=100% border="0" cellspacing="0" cellpadding="4" class=cls2 align=center>
			  <%
			  sqltext="select title,result from investigate where parentno="&parentno&" order by sortnum"
			  rs.Open sqltext,cn,1,1
			  tot=0
			  i=1
			  recc=rs.RecordCount
			  dim bt(20),resu(20)
			  do while not rs.EOF
					tot=tot+rs(1)
					resu(i)=rs(1)
					bt(i)=trim(rs(0))
					rs.MoveNext
					i=i+1
			  loop
			  for i=1 to recc				
					percent=round((resu(i)/tot*10000)/100,2)
	          %>
				<tr class=cls2><td width=130 align=right><%=bt(i)%></td><td><img src="../images/<%=(i mod 10)+1%>.gif" border=0 height=14 width=<%=percent*1.5%>></td><td width=250>（<%=resu(i)%>票，占<%=percent%>%）</td></tr>
	          <%
			  next
	          %>
 	           </table>
	      </td>
	    </tr>
	    <tr>
	      <td align=center valign=middle><INPUT type="button" value="关闭" id=button1 name=button1 class=cls2 style="width:80;height:20;" onclick="qx()">
	      </td>
	    </tr>
	  </table>
	</td>
  </tr>
</table>

</BODY>
</HTML>
<script language=Javascript>
	function qx()
	{
	window.close()
	}
</script>
⌨️ 快捷键说明

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