【电视源播放源码】【在线抓取源码】【C WinForms源码】aspaccess源码-皮皮网

【电视源播放源码】【在线抓取源码】【C WinForms源码】aspaccess源码

时间：2024-12-28 05:27:26 来源：windows编译源码作者：乐众天龙按键源码

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

aspaccess源码

ASP+ACCESS网站调查代码，电视源播放源码不知道哪里有问题

投票结果查看页的在线抓取源码代码:

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('感谢您的支持，您已经投过票了，C WinForms源码谢谢！802.11 mac 源码');"

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

<html>

<head>

</head>

<body>

<tr>

<tr>

</td>

</tr>

</table>

</td>

</tr>

</table>

<tr>

total=0

set rs=server.createobject("adodb.recordset")

sql="select * from vote where IsChecked=1"

rs.open sql,gdx指标源码conn,3,3

<tr>

=======================================================<br>

</font> <font color="#"> <%=rs("Title")%></font> </td>

</tr>

<tr>

</tr>

for i=1 to 8

if rs("Select"&i)<>"" then

total=total+rs("answer"&i)

end if

<%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"><img src=images/RSCount.gif width=<%=int(answer*2)%> height=8>

<%=round(answer,3)%>%</td>

end if

<tr>

<td colspan="3"> 共有<%=total%>人参加投票<br>

=======================================================</td>

</tr>

</table>

<% rs.close

set rs=nothing

conn.close

set conn=nothing %>

</td>

</tr>

</table>

<tr>

</td>

</tr>

</table>

</body>

</html>

关键词：源码不显示注释

【电视源播放源码】【在线抓取源码】【C WinForms源码】aspaccess源码

热点关注