ballot.asp

一个非常好的旅游网站程序.

<!--#include file="const.asp" -->
<%
'=====================================================================================
'flash饼图投票系统多用户版1.0
'flashballot1.0
'作者:毛虫
'网地:www.flashado.com
'email:[e-mail]
'如有BUG请尽快向我提出，这样我会尽快更新
'=====================================================================================
id=request("cdid")
If(id="") Then
	sql="select ballottop from ballottop" 
		set rs=server.createobject("adodb.recordset")
			rs.open sql,conn,3,2
	Response.Write "&batxttop="& rs("ballottop")
	sql="select * from ballot where ballot<>'' ORDER BY id asc"
		set rs=server.createobject("adodb.recordset")
			rs.open sql,conn,3,2
	For i=1 to 5
	if rs.eof then Exit for
		Response.Write "&batxt"& i &"="& rs("ballot")
		Response.Write "&bahitid"& i &"="& rs("id")
		Response.Write "&bahit"& i &"="& rs("hit")
		rs.movenext
	Next
	Response.Write "&bamyall="& rs.RecordCount
else
	if(filtrate=true)then
		If(request.Cookies("ballot")="yes") Then
			avert="yes"
			Response.Write "&avert="& avert
		else
			sql="update ballot set hit=hit+1 where id="& intSql(id)
				set rs=conn.execute(sql)
				Response.Cookies("ballot").Expires=Date+myday
				Response.Cookies("ballot")="yes"
		end if
	else
		sql="update ballot set hit=hit+1 where id="& intSql(id)
			set rs=conn.execute(sql)
	End if
End if
Response.Write "&read=yes"
set rs=nothing
set conn=nothing	
%>