【生日祝福邮件源码】【stormui 源码】【戏子源码】access .asp系统源码

时间:2024-12-24 07:09:19 编辑:阿里副业网站源码 来源:千峰php源码

1.ASP+ACCESS网站调查代码,统源不知道哪里有问题

access .asp系统源码

ASP+ACCESS网站调查代码,统源生日祝福邮件源码不知道哪里有问题

       投票结果查看页的统源stormui 源码代码:

       <!--#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('感谢您的支持,您已经投过票了,统源戏子源码谢谢!统源mips源码');"

        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,统源cdr源码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>