标题
作者
请选择栏目
所有栏目
<% sql = "select * from lm where lm<>'' order by id asc" Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open sql,conn,1,1 while not rs.eof %>
><%=rs("lm")%>
<% sql2 = "select * from lm where lmid='"&rs("id")&"' order by id asc" Set rs2 = Server.CreateObject("ADODB.RecordSet") rs2.Open sql2,conn,1,1 while not rs2.eof %>
> ├<%=rs2("lm2")%>
<% Set rs33 = Server.CreateObject("ADODB.RecordSet") rs33.Open "select * from [lm] where lmid='"&rs2("id")&"' and LM3<>'' order by id desc",conn,1,1 while not rs33.eof %>
> ├<%=rs33("lm3")%>
<% rs33.movenext wend rs2.movenext wend rs.movenext wend rs.close set rs=nothing %>
年份
不限
2005
2006
2007
2008
2009
2010
月份
不限
1
2
3
4
5
6
7
8
9
10
11
12
院务公开
组织管理
社会公开信息
患者公开信息
职工公开信息
组织管理 社会公开信息 患者公开信息 职工公开信息
