<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from yishi where classid=7 and zd=true order by id desc"
rs.Open sql,conn,1,1
%>
专家在线
<%
if lmid="" then lmid=1
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from yishi where lmid="&lmid&" order by px desc"
rs.Open sql,conn,1,1
do while not rs.eof
%>
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select top 1 * from jibing where zd=true and lmid=6 order by id desc"
rs.Open sql,conn,1,1
datetime=year(rs("ystimes"))&month(rs("ystimes"))&day(rs("ystimes"))
response.Write(left(rs("xwgy"),24))
%>
..【/<%=datetime%>_<%=rs("id")%>.html" title="<%=rs("xwgy")%>" target="_blank">详细】
<%
rs.close
set rs=nothing
%>
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select top 5 * from jibing where zd=false and lmid=6 order by id desc"
rs.Open sql,conn,1,1
do while not rs.eof
datetime=year(rs("ystimes"))&month(rs("ystimes"))&day(rs("ystimes"))
%>
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select top 1 * from news where (cid=218 or cid=222 or cid=226 or cid=230 or cid=234) and zd=true order by id desc"
rs.Open sql,conn,1,1
datetime=year(rs("ystimes"))&month(rs("ystimes"))&day(rs("ystimes"))
response.Write(left(rs("xwgy"),24))
%>
..【/<%=datetime%>_<%=rs("id")%>.html" title="<%=rs("xwgy")%>">详细】
<%
rs.close
set rs=nothing
%>
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select top 5 * from news where (cid=218 or cid=222 or cid=226 or cid=230 or cid=234) and zd=false order by id desc"
rs.Open sql,conn,1,1
do while not rs.eof
datetime=year(rs("ystimes"))&month(rs("ystimes"))&day(rs("ystimes"))
%>
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select top 5 * from news where cid=490 order by id desc"
rs.Open sql,conn,1,1
i=1
do while not rs.eof
datetime=year(rs("ystimes"))&month(rs("ystimes"))&day(rs("ystimes"))
if i=1 then
%>
<%
end if
rs.movenext
i=i+1
loop
rs.close
set rs=nothing
%>
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select top 5 * from mlynews where classid=3 order by id desc"
rs.Open sql,conn,1,1
i=1
do while not rs.eof
datetime=year(rs("ystimes"))&month(rs("ystimes"))&day(rs("ystimes"))
if i=1 then
%>
<%
end if
rs.movenext
i=i+1
loop
rs.close
set rs=nothing
%>
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select top 5 * from news where cid=213 order by id desc"
rs.Open sql,conn,1,1
i=1
do while not rs.eof
datetime=year(rs("ystimes"))&month(rs("ystimes"))&day(rs("ystimes"))
if i=1 then
%>
<%
end if
rs.movenext
i=i+1
loop
rs.close
set rs=nothing
%>
乳腺专科
乳腺增生
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select top 1 * from news where zd=true and parentcid=208 order by id desc"
rs.Open sql,conn,1,1
datetime=year(rs("ystimes"))&month(rs("ystimes"))&day(rs("ystimes"))
%>
<%
rs.close
set rs=nothing
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select top 4 * from news where zd=false and parentcid=208 order by id desc"
rs.Open sql,conn,1,1
do while not rs.eof
datetime=year(rs("ystimes"))&month(rs("ystimes"))&day(rs("ystimes"))
%>
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select top 1 * from news where zd=true and parentcid=210 order by id desc"
rs.Open sql,conn,1,1
datetime=year(rs("ystimes"))&month(rs("ystimes"))&day(rs("ystimes"))
%>
<%
rs.close
set rs=nothing
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select top 4 * from news where zd=false and parentcid=210 order by id desc"
rs.Open sql,conn,1,1
do while not rs.eof
datetime=year(rs("ystimes"))&month(rs("ystimes"))&day(rs("ystimes"))
%>
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select top 1 * from news where zd=true and cid=214 order by id desc"
rs.Open sql,conn,1,1
datetime=year(rs("ystimes"))&month(rs("ystimes"))&day(rs("ystimes"))
%>
<%
rs.close
set rs=nothing
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select top 4 * from news where zd=false and cid=214 order by id desc"
rs.Open sql,conn,1,1
do while not rs.eof
datetime=year(rs("ystimes"))&month(rs("ystimes"))&day(rs("ystimes"))
%>
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select top 1 * from news where zd=true and cid=495 order by id desc"
rs.Open sql,conn,1,1
datetime=year(rs("ystimes"))&month(rs("ystimes"))&day(rs("ystimes"))
%>
<%
rs.close
set rs=nothing
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select top 4 * from news where zd=false and cid=495 order by id desc"
rs.Open sql,conn,1,1
do while not rs.eof
datetime=year(rs("ystimes"))&month(rs("ystimes"))&day(rs("ystimes"))
%>
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select top 1 * from news where zd=true and parentcid=209 order by id desc"
rs.Open sql,conn,1,1
datetime=year(rs("ystimes"))&month(rs("ystimes"))&day(rs("ystimes"))
%>
<%
rs.close
set rs=nothing
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select top 4 * from news where zd=false and parentcid=209 order by id desc"
rs.Open sql,conn,1,1
do while not rs.eof
datetime=year(rs("ystimes"))&month(rs("ystimes"))&day(rs("ystimes"))
%>
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select top 1 * from news where zd=true and parentcid=211 order by id desc"
rs.Open sql,conn,1,1
datetime=year(rs("ystimes"))&month(rs("ystimes"))&day(rs("ystimes"))
%>
<%
rs.close
set rs=nothing
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select top 4 * from news where zd=false and parentcid=211 order by id desc"
rs.Open sql,conn,1,1
do while not rs.eof
datetime=year(rs("ystimes"))&month(rs("ystimes"))&day(rs("ystimes"))
%>
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select top 1 * from news where zd=true and cid=494 order by id desc"
rs.Open sql,conn,1,1
datetime=year(rs("ystimes"))&month(rs("ystimes"))&day(rs("ystimes"))
%>
<%
rs.close
set rs=nothing
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select top 4 * from news where zd=false and cid=494 order by id desc"
rs.Open sql,conn,1,1
do while not rs.eof
datetime=year(rs("ystimes"))&month(rs("ystimes"))&day(rs("ystimes"))
%>
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select top 1 * from news where zd=true and cid=496 order by id desc"
rs.Open sql,conn,1,1
datetime=year(rs("ystimes"))&month(rs("ystimes"))&day(rs("ystimes"))
%>
<%
rs.close
set rs=nothing
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select top 4 * from news where zd=false and cid=496 order by id desc"
rs.Open sql,conn,1,1
do while not rs.eof
datetime=year(rs("ystimes"))&month(rs("ystimes"))&day(rs("ystimes"))
%>
