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>
2025-01-20 04:5358人浏览
2025-01-20 04:40891人浏览
2025-01-20 04:211092人浏览
2025-01-20 04:152457人浏览
2025-01-20 04:142140人浏览
2025-01-20 03:501912人浏览
2024年3月25日，在江苏南通如皋市九华镇九华初中，民警向学生们讲解防范校园欺凌知识。(人民视觉/图)黄亮在多年前遇到过一起校园欺凌事件。他是广东省佛山市南海区一所公办高中的生物老师，带的班里一名男
1.安卓手机刷机失败后如何通过ADB命令恢复Recovery程式？2.android完整的java关机代码？安卓手机刷机失败后如何通过ADB命令恢复Recovery程式？安卓手机刷机失败无法开机？这里
1.C语言中十的负六次方怎么表示，在电脑里C语言中十的负六次方怎么表示，在电脑里 在计算机中，负数以其正值的补码形式表达。要得到一个数的补码，先得到反码，然后将反码加上1，所得数称为补码。 比
