Multi-column display

xiaoxiao2021-03-06  63

<%

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

%>

"> <% = 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)%>]

<%

RS2.Close

SET RS2 = Nothing

%>

<%

IF (Tempnum2 MOD 2) = 0 Then Response.write "" 'Two columns display MOD 2

TEMPNUM2 = TEMPNUM2 1

rs.movenext

loop

%>

<%

Rs.close

SET RS = Nothing

%>

转载请注明原文地址:https://www.9cbs.com/read-119811.html

New Post(0)
CopyRight © 2020 All Rights Reserved
Processed: 0.051, SQL: 9