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

<%=c_src%><%=c_s_title%>
<% set fs = CreateObject("Scripting.FileSystemObject") src_file="images/" & a_event( a_event_n(rs("g_id")) , rs("e_id") ) & ".gif" realpath = server.mappath(src_file) if fs.FileExists(realpath) then %> <% end if %> <%=a_event( a_event_n(rs("g_id")) , rs("e_id") )%>	<%=a_class(rs("g_id"),rs("a_id"))%>
<% set fs = CreateObject("Scripting.FileSystemObject") src_file="images/" & a_country_f(rs("c_id")) & ".gif" realpath = server.mappath(src_file) if fs.FileExists(realpath) then %> <% end if %> <%=a_country(rs("c_id"))%> <% n_name_fs=nsw/15 if len(p_name)>8*7 then n_name_fs=nsw/25 end if %> 　<%=rs("n_id")%> 　<%=p_name %>
TOTAL <%=p_forma_s(rs("total"),a_sum_t( a_event_n(n_g), rs("e_id")))%> <% c_cw8=rs("cw8") if l_input_time and c_cw8<>"" then %> 　　時間:<%=c_cw8%> <% end if %>

<% for i=1 to c_chker show_c_sc="" if a_pass_b(a_event_n(n_g),rs("e_id"),i)<>"" then n_v_b=cint(InStr(a_pass_b(a_event_n(n_g),rs("e_id"),i),"[")) if n_v_b>0 then show_c_sc=mid(a_pass_b(a_event_n(n_g),rs("e_id"),i),1,n_v_b-1) else show_c_sc=a_pass_b(a_event_n(n_g),rs("e_id"),i) end if end if if show_c_sc="" and ll_avg<>10 then show_c_sc=c_exe_t & i end if n_fs=nsw2/(c_chker*5)' 細項字體大小 if n_fs>45 then n_fs=45 end if %> <% next %> <% for i=1 to c_chker %> <% next %>

<%=show_c_sc%>	<%=c_scer%>
<%=p_forma_s(a_jsc(i),a_sum_t( a_event_n(n_g), rs("e_id")))%>	<%=p_forma_s(rs("scer"),a_sum_t( a_event_n(n_g), rs("e_id")))%> <%=rs("note")%>

<% function sp2(n) '成績細 E 分 if(n=0 or isnull(n))then sp2="" else sp2=FormatNumber(n,2) end if end function function sp1(n) '一位小數 if(n=0 or isnull(n))then sp1="" else sp1=FormatNumber(n,1) end if end function function sp3(n) '三位小數 if(n=0 or isnull(n))then sp3="　" else 'sp3=FormatNumber(n,3) p_forma(n,0) sp3=p_forma(n,0) '平均分 end if end function function sp(n) '成績細 E 分 if(n=0 or isnull(n))then sp="" else spnsw=nsw/16 n1=FormatNumber(n,1) sp="" & n1 & "" end if end function %>