1.ASP+ACCESS网站调查代码，网网站不知道哪里有问题
ASP+ACCESS网站调查代码，站源怎么获取tomcat源码不知道哪里有问题
投票结果查看页的码a码源码好东西分享代码:
<!--#include file="inc/conn.asp"-->
<%
dim options,total,sql,i,answer,action
if request.QueryString("stype")="" then
if Request.ServerVariables("REMOTE_ADDR")=request.cookies("IPAddress") then
response.write"<SCRIPT language=JavaScript>alert('感谢您的支持，您已经投过票了，源代商业端游源码谢谢！网网站付费算命系统源码');"
response.write"javascript:window.close();</SCRIPT>"
else
options=request.form("options")
response.cookies("IPAddress")=Request.ServerVariables("REMOTE_ADDR")
conn.execute("UPDATE vote set answer"&options&"=answer"&options&"+1 where IsChecked=1")
end if
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb" />
<title>投票结果</title>
<LINK href=images/css.css rel=stylesheet>
</head>
<body>
<table width="%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="">
<table width= height="" align="center" cellpadding=0 cellspacing=0>
<tr>
<td width=5> </td>
<td width=>
<div align="center"></div>
</td>
<td class=hg valign=bottom width=""> <font color="#"><b>投票结果</b></font></td>
<td width=> </td>
</tr>
</table>
</td>
</tr>
</table>
<table width="%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="">
<table border="0" cellpadding="0" cellspacing="0" width="%" height="" style="border-collapse: collapse" align="center">
<%
total=0
set rs=server.createobject("adodb.recordset")
sql="select * from vote where IsChecked=1"
rs.open sql,站源凯利指标源码conn,3,3
%>
<tr>
<td height="" valign="top" colspan="3" align=left><font color="#"><br>
=======================================================<br>
</font> <font color="#"> <%=rs("Title")%></font> </td>
</tr>
<tr>
<td valign="top">序号</td>
<td valign="top">百比分</td>
<td valign="top">人数</td>
</tr>
<%
for i=1 to 8
if rs("Select"&i)<>"" then
total=total+rs("answer"&i)
end if
next
%>
<%for i=1 to 8
if rs("Select"&i)<>"" then
if total=0 then
answer=0
else
answer=(rs("answer"&i)/total)
*end if
%>
<tr>
<td valign="top"><%=i%>.<%=rs("select"&i)%>：</td>
<td valign="top"><img src=images/RSCount.gif width=<%=int(answer*2)%> height=8>
<%=round(answer,3)%>%</td>
<td valign="top"><%=rs("answer"&i)%>人</td>
<%
end if
next
%>
<tr>
<td colspan="3"> 共有<%=total%>人参加投票<br>
=======================================================</td>
</tr>
</table>
<div align="center"></div>
<p align="center"><a href="javascript:window.close()">关闭窗口</a>
<% rs.close
set rs=nothing
conn.close
set conn=nothing %>
</td>
</tr>
</table>
<table width="%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="">
<div align="center"></div>
</td>
</tr>
</table>
</body>
</html>
