vote.asp

电子商城代码

<!--#include file="connshop.asp"-->
<!--#include file="webconfig.asp"-->
<%
on error resume next
strwebtitle=www56770com_word606
response.write c_skin_56770(c_skin_word(skin_head))
set rs=conn.execute("select * from vote")
if rs.eof then 
response.write"<meta http-equiv='refresh' content=1;url=javascript:window.close()>"
end if 
rs.close:set rs=nothing 
%>
<script language=javascript>
function killErrors() {
return true;
}

window.onerror = killErrors;
dd
</script>
<%
dim options,total,answer
	if request.cookies(""&cookiesname&"")("IPAddressvote")<>"" and request("stype")="" then
                	response.write"<meta http-equiv='refresh' content=5;url=javascript:window.close()>"
                	tl=www56770com_word675
                	mes="路"&www56770com_word605&""
                	mes=mes&"<br><br>路<a href='javascript:window.close();'><img border=0 src=images/close.gif align=absmiddle>"&www56770com_word235&"</a>"
		call sendinfo(tl,mes)
	elseif request.cookies(""&cookiesname&"")("IPAddressvote")="" and request("stype")="" then
		options=request.form("options")
		response.cookies(""&cookiesname&"")("IPAddressvote")=Request.ServerVariables("REMOTE_ADDR") 
		conn.execute("update [vote] set answer"&options&"=answer"&options&"+1 where IsChecked=1")                
%>
      <table border="0" cellpadding="0" cellspacing="0" width="98%" class="bk" align="center">
        <%
total=0
set rs=server.createobject("adodb.recordset")
sql="select * from vote where IsChecked=1"
rs.open sql,conn,1,3
if not rs.eof then 
%>
        <tr> 
          <td height="30" valign="top" colspan="3" align=center class="bk_h">&nbsp;
<%=rs(""&lan_Title&"")%></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)*100
		end if
%>
        <tr> 
          <td valign="top">
          <%=i%>.<%=rs("Select"&i)%>锛