ballot.asp

小型网上购物网站

<!--#include file="conn.asp" -->
<%
'=====================================================================================
'flash饼图投票系统单用户版多选2.0
'flashballot2.0
'作者:毛虫
'网地:www.flashado.com
'email:[e-mail]
'如有BUG请尽快向我提出，这样我会尽快更新
'=====================================================================================
	sql="select ballottop,mymode from ballottop" 
		set rs=server.createobject("adodb.recordset")
			rs.open sql,conn,3,2
	Response.Write "&mymode="& int(rs("mymode"))
	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
		batxt=batxt & flashSql(rs("ballot")) & "chr(124)"
		bahitid=bahitid & flashSql(rs("id")) & "chr(124)"
		bahit=bahit & flashSql(rs("hit")) & "chr(124)"
		rs.movenext
	Next
	Response.Write "&batxt="& batxt
	Response.Write "&bahitid="& bahitid
	Response.Write "&bahit="& bahit
	Response.Write "&bamyall="& rs.RecordCount
	Response.Write "&ff=aaaa"
set rs=nothing
set conn=nothing	
%>