<% nsw=800 '預設螢幕解析度 select case n_w case 1 ' n_f=7 nsw2=nsw*1.2 case 2 ' n_f=6 nsw2=nsw end select p_name=rs("name") '標題顯示設定 c_s_title="" & c_title & "" if l_hid_title then c_s_title="" end if %>

<%=c_src%><%=c_s_title%>
<%=a_event( a_event_n(rs("g_id")) , rs("e_id") )%>	<%=a_group(rs("g_id"))%>
<%=Convert_ASCII_Unicode(p_name)%>　　 <%=a_country_s(rs("c_id"))%>
TOTAL <%=FormatNumber(nz(rs("total")),3)%>

D分	A分	E分	特別加分	扣分
<%=rrp2(rs("scb"))%>	<%=rrp2(rs("scb_2"))%>	<%=rrp2(rs("scb_1"))%>	<%=rrp2(rs("scer_2"))%>	<%=rp3(rs("scer"))%> <%=rs("note")%><%=rs("note_1")%>

<% rs.close() function rp2(n) '成績細 E 分 有 if(n=0 or isnull(n))then rp2="" else rp2=FormatNumber(n,1) '有氧給分至2位 韻律給分至1位 end if end function function rrp2(n) if(n=0 or isnull(n)) then rrp2="" else rrp2=FormatNumber(n,3) end if end function function rp3(n) if(n=0 or isnull(n)) then rp3="" else spnsw=nsw2/30 rp3=FormatNumber(n,2) '' rp3="" & n1 & "" end if end function %>