<!-- #include file="../common/include/con_help.asp" -->
<!-- #include file="include/config.asp" -->
<!-- #include file="ontest_data.asp"-->
<%
dim tsql,trs,t_name,tid
    tit="在线测试"
   call web_head(1,0,0,0,0)
    
   call left_help()
   call left_games()
   
   call web_center(0)
 
  response.write vbcrlf&"<table width=590 border=0 cellspacing=0 cellpadding=0 class=table>"&_
                 vbcrlf&"<tr><td width=590 height=23 background='ontest/bg1.gif'>"&_
                 vbcrlf&"<table border=0 cellspacing=0 width=590 cellpadding=0 style='border-collapse: collapse' bordercolor='#111111'>"&_
                 vbcrlf&"<tr><td width=25><img border=0 src='ontest/err1.gif' width=24 height=23></td>"&_
                 vbcrlf&"<td width=515 align=left>"&_
                 vbcrlf&"<table border=0 cellspacing=0 width='50%' cellpadding=0 height=15>"&_
                 vbcrlf&"<tr><td width='100%' valign='bottom' height=15>&nbsp;&nbsp;"

				tsql="select id,type_name from type"
				set rs=testconn.execute(tsql)
				do while not rs.eof
				t_name=rs("type_name")
				response.write "<font color='#FF0000'>"&joekoe_cms.code_html(t_name,1,20)&" </font> "
				rs.movenext
				loop
				rs.close
				set rs=nothing 

response.write vbcrlf&"<font color='#0000FF'> 在线测试：</font></td></tr>"&_
               vbcrlf&"</table></td>"&_
               vbcrlf&"<td width='50' valign='bottom' style='border-right: 1px solid #000000'>"&_
               vbcrlf&"<img border='0' src='ontest/help.gif' start='fileopen' width='15' height='18' align='absbottom'>"&_
               vbcrlf&"<a href='javascript:window.close()'>"&_
               vbcrlf&"<img border='0' src='ontest/close.gif' width='15' height='18' align='absbottom' alt='关闭窗口'></a>"&_
               vbcrlf&"</td></tr></table></td></tr>"&_
               vbcrlf&"<tr><td valign='top' style='border-left: 1px solid #000000; border-right: 1px solid #000000; border-bottom: 1px solid #000000'>"

  			tsql="select id,type_name From type"
				set rs=testconn.execute(tsql)
				do while not rs.eof
				tid=rs("id")
				t_name=rs("type_name")

response.write vbcrlf&"<table border=1 width=586 bordercolorlight='#C0C0C0' bordercolordark='#FFFFFF' cellspacing='0' background='ontest/bg2.gif' align='center'>"&_
            vbcrlf&"<tr><td width='100' valign='top' align='center'>"&_
            vbcrlf&"<p style='margin-top: 5'><img border='0' src='ontest/"&tid&".gif' width='80' height='60'></p>"&_
            vbcrlf&"<p><font color='#0000FF'>[</font> <font color='#FF0000'>"&joekoe_cms.code_html(t_name,1,20)&"</font> <font color='#0000FF'>]</font></td>"&_
            vbcrlf&"<td width='480' valign='top'><div align='center'><center>"&_
            vbcrlf&"<table border=0 cellspacing=3 width='98%' cellpadding='0' height='1' background='ontest/bg3.gif'>"&_
						vbcrlf&"<tr>"

dim o_name,o_id
sj=0
tsql="select top 12 id,c_id,name,istop from ontest where c_id="&tid&" and hidden=on"
 set trs=testconn.execute(tsql)
 do while not trs.eof
 o_id=trs("id")
 o_name=trs("name")
 o_istop=trs("istop")
response.write vbcrlf&"<td width='33%' height='16'><a href=ontest_show.asp?type="&tid&"&id="&o_id&">"&_
               vbcrlf&joekoe_cms.code_html(o_name,1,20)&"</a>"
               if o_istop=true then
response.write vbcrlf&"  <font color=red>[推荐]</font>"
              end if
response.write vbcrlf&"</td>"
sj=sj+1
if sj=3 then
sj=0
response.write "</tr><tr>"
end if
trs.movenext
loop
trs.close
set trs=nothing 
response.write "</tr></table></center></div></td></tr></td></td>"
 				rs.movenext
				loop
				rs.close
				set rs=nothing 
response.write "</tr></table></td></tr></table>"

   call web_end(0,0)
%>

