皮皮网

【web网页源码下载】【sds源码解析】【点数麻将源码】asp access网站源码_asp网站源代码

2024-12-24 20:34:32 来源:律师网站 源码下载

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

asp access网站源码_asp网站源代码

ASP+ACCESS网站调查代码,站源web网页源码下载不知道哪里有问题

       投票结果查看页的码a码sds源码解析代码:

       <!--#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>