Easy to creates dynamic stars rating system in
the Macromedia Flash™ SWF format.
Easy, interactive, XML data-driven Flash Stars Rating
System for you. Pretty rating stars can help you to find out
what your website visitors think, like, need and want. Why wait? Put Jobdao Flash
Stars Rating System to work now!
Flash
Samples
1. Stars Rating System example1.
data file sample1:
<jrating>
<licensekey>1</licensekey>
<cstyle>4</cstyle>
<defaulttitle>How do you rate this sofware?</defaulttitle>
<voteurl>jstarsrate/vote.asp</voteurl>
<voteid>1</voteid>
<allowvote>1</allowvote>
<showvotes>percent</showvotes>
<showresults>percent</showresults>
<startitle1>do not user it</startitle1>
<starvotes1>1</starvotes1>
<startitle2>I've seen better software</startitle2>
<starvotes2>2</starvotes2>
<startitle3>it's good</startitle3>
<starvotes3>5</starvotes3>
<startitle4>highly recommended</startitle4>
<starvotes4>1</starvotes4>
<startitle5>Best choice</startitle5>
<starvotes5>6</starvotes5>
<totalstars>5</totalstars>
<totalvotes>15</totalvotes>
<currentstar>5</currentstar>
</jrating>
Code To insert this Stars Rating System to HTML page:
dim
defaulttitle,allowvote,showvotes,showresults,totalstars,totalvotes,currentstar
set objCoet=Server.CreateObject("ADODB.Connection")
DataBasePath=Server.MapPath("jstarsrate.mdb")
objCoet.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&DataBasePath
sql="select * from vote where id="&voteid
set objRs=objCoet.execute(sql)
if not objRs.EOF then
defaulttitle=objRs("title")
allowvote=objRs("allowvote")
showvotes=objRs("showvotes")
showresults=objRs("showresults")
end if
%>
<cstyle><%=cstyle%></cstyle>
<defaulttitle><%=defaulttitle%></defaulttitle>
<voteurl>jstarsrate/vote.asp</voteurl>
<voteid><%=voteid%></voteid>
<allowvote><%=allowvote%></allowvote>
<showvotes><%=showvotes%></showvotes>
<showresults><%=showresults%></showresults>
<%
sql="select * from voteitem where voteid="&voteid&" order by itemid"
set objItem=objCoet.execute(sql)
totalstars=1
totalvotes=0
currentstar=0
maxvote=0
do while not objItem.EOF
%>
<startitle<%=totalstars%>><%=objItem("title")%></startitle<%=totalstars%>>
<starvotes<%=totalstars%>><%=objItem("votes")%></starvotes<%=totalstars%>>
<%
if maxvote<int(objItem("votes")) then
maxvote=int(objItem("votes"))
currentstar=totalstars
end if
totalvotes=totalvotes+int(objItem("votes"))
totalstars=totalstars+1
objItem.MoveNext
loop
objItem.close
set objItem=nothing