<%
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 rsfl=Server.CreateObject("ADODB.RecordSet")
sqlfl="select * from sysfl where parentcid=489"
rsfl.Open sqlfl,conn,1,1
d=1
do while not rsfl.eof
%>
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from news where cid="&rsfl("cid")&" and tuiguang=true 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 cid="&rsfl("cid")&" and tuiguang=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"))
%>
<%
end if
rsfl.movenext
d=d+1
loop
rsfl.close
set rsfl=nothing
%>
麦默通
微波功能
钼靶技术
彩超技术
半导体激光
动力治疗
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select top 1 * from news where id=13620 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"),130))
%>
>>/<%=datetime%>_<%=rs("id")%>.html" target="_blank">详细
<%
rs.close
set rs=nothing
%>
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select top 1 * from news where id=14767 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"),130))
%>
>>/<%=datetime%>_<%=rs("id")%>.html" target="_blank">详细
<%
rs.close
set rs=nothing
%>
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select top 1 * from news where id=14757 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"),130))
%>
>>/<%=datetime%>_<%=rs("id")%>.html" target="_blank">详细
<%
rs.close
set rs=nothing
%>
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select top 1 * from news where id=14758 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"),130))
%>
>>/<%=datetime%>_<%=rs("id")%>.html" target="_blank">详细
<%
rs.close
set rs=nothing
%>
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select top 1 * from news where id=14759 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"),130))
%>
>>/<%=datetime%>_<%=rs("id")%>.html" target="_blank">详细
<%
rs.close
set rs=nothing
%>
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select top 1 * from news where id=14756 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"),130))
%>
>>/<%=datetime%>_<%=rs("id")%>.html" target="_blank">详细
<%
rs.close
set rs=nothing
%>
COPYRIGHT (C) 2009-2011 HEILONGJIANG MARIA MATERNITY HOSPITAL ALL RIGHTS RESERVED.
版权所有：黑龙江玛丽亚妇产医院
医院地址：黑龙江省哈尔滨市南岗区宣化街2号
乘车路线：2、3、28、30、60、68、69、82、101、103、108路 省政府或省公安厅下车
健康热线：0451-82632326 黑ICP备07501378号
