|
|
 <%= belong_name %> |
| |
<%
set rs=server.createobject("adodb.recordset")
sqlstr="select * from model where belong='"&belong_name&"'"
rs.open sqlstr,conn,1,1
dim j '定义子模块的个数
j=rs.recordcount
dim m_title()
redim m_title(j)'定义数组及其元素个数
for i=1 to j
m_title(i-1)=rs("name")'得到模块的id号
rs.movenext
next
rs.close
set rs1=server.createobject("adodb.recordset")
for i=1 to j
%>
|
<%
response.write m_title(i-1)
%>
|
|
<%
'----------内容显示部分--------------
sql="select * from publish where type_small='"&m_title(i-1)&"' ORDER BY fb_time DESC"
'response.write m(i-1)&"dddddddddddddd"
rs1.open sql,conn,1,1
'Response.Write sql
if rs1.recordcount=0 then
response.write "没有记录"
end if
rs1.PageSize=Maxperpage
while not rs1.eof and NumRows<=rs1.PageSize
response.write " | "&"| "&""&""&rs1("title")&" | "
if trim(belong_name)="分析预测" then
Response.Write ""&rs1("fb_time")&" | "
end if
Response.Write " "
rs1.movenext
NumRows=NumRows+1
wend
NumRows=0
'---------------内容显示结束------------
rs1.close
%>
|
|
|
<%
next
set rs1=nothing
conn.close
set conn=nothing
%>
|
| |
|
