//-->
</SCRIPT>
</HEAD>
<%
set ecn=server.CreateObject("adodb.connection")
ecn.ConnectionString="driver={SQL Server};server="&application("server")&";uid="&application("user")&";pwd="&application("pwd")&";database=eschool2"
ecn.Open
%>
<BODY bgcolor="#E8FFE8" >
<div align=center>请选择一个</div>
<TABLE WIDTH=300 BORDER=1 CELLSPACING=0 CELLPADDING=0 >
<%
Set rs= Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From tea_info order by id",ecn,1,3
colcount=5
maincount=rs.RecordCount
if maincount>0 then
i=maincount
do while (i/colcount >=1)
Response.Write "<TR>"
for j=1 to colcount
teaname=rs("name")
tea_id=rs("id")
Response.Write "<TD width=60>"&rs("name")&"<INPUT type=radio id=radio1 name=radio1 vaule='"&teaname&"' onclick='return radio1_onclick(""&teaname&"",""&tea_id&"")'></TD>"
rs.MoveNext
next
Response.Write "</tr>"
i=i-colcount
loop
modnum=maincount mod colcount
if modnum<>0 then
Response.Write "<TR>"
for j=1 to modnum
teaname=rs("name")
tea_id=rs("id")
Response.Write "<TD width=60>"&rs("name")&"<INPUT type=radio id=radio1 name=radio1 vaule='"&teaname&"' onclick='return radio1_onclick(""&teaname&"",""&tea_id&"")'></TD>"
rs.MoveNext
next
for j=1 to colcount-modnum
Response.Write "<td width=60> </td>"
next
Response.Write "</tr>"
end if
else
Response.Write "无数据"
end if
rs.Close
set rs=nothing