<%
j=0
Sort2ListSQL="Select * From system_text_sort Where big_id ="& Sort1ListRs("big_id") &" Order By sx "
Set Sort2ListRs=Server.CreateObject("ADODB.recordset")
Sort2ListRs.Open Sort2ListSQL,conn,2,2
If not Sort2ListRs.eof then
do while not Sort2ListRs.eof
if j/2=j\2 then
%><% end if %>
" ><%= Sort2ListRs("sort_name") %> |
<%
j=j+1
Sort2ListRs.movenext
loop
else
Response.Write "没有新闻记录!"
end if
Sort2ListRs.close
set Sort2ListRs=nothing
%>
|
