<%
SET RS = Server.createObject ("AdoDb.Recordset")
Rs.open "SELECT * from btype Order By ID ASC", CONN, 1, 1
%>
<%
DIM TEMPNUM2
TEMPNUM2 = 1
Do While Not Rs.eof
%>
td>
|
"> <% = TRIM RS ("Type"))%>
<%
SET RS2 = Server.createObject ("AdoDb.Recordset")
rs2.open "Select Count (*) AS GS from St_infos Where Btype = '" & RS ("ID") & "' and flag = '0'", CONN
GS = RS2 (0)
%>
[<% response.write (gs)%>] font>
<%
RS2.Close
SET RS2 = Nothing
%>
strong>
td>
<%
IF (Tempnum2 MOD 2) = 0 Then Response.write " tr>" 'Two columns display MOD 2
TEMPNUM2 = TEMPNUM2 1
rs.movenext
loop
%>
TR>
<%
Rs.close
SET RS = Nothing
%>
TABLE>
转载请注明原文地址:https://www.9cbs.com/read-119811.html
|