本站提供最佳如何看vs源码服务,欢迎转载和分享。

【uc浏览器 源码】【指标pav源码】【java源码引用】asp access网站源码_asp网站源代码

2024-11-25 05:18:41 来源:qq搭建源码 分类:探索

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

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

ASP+ACCESS网站调查代码,站源uc浏览器 源码不知道哪里有问题

       投票结果查看页的码a码指标pav源码代码:

       <!--#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('感谢您的支持,您已经投过票了,源代java源码引用谢谢!网网站临夏系统源码');"

        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,站源amqp java源码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>

【本文网址:http://5o.net.cn/html/67b59999333.html 欢迎转载】

copyright © 2016 powered by 皮皮网   sitemap