用户名
<%=Main_Web.GetADUrl(16)%>
　今天是: 欢迎您来到浙江公共卫生网！
返回首页 | 卫生新闻 | 健康气象 | 精彩视频 | 图片世界 | 疾控前沿 | 卫生监督 | 农村卫生 | 社区卫生 | 公共医疗 | 爱国卫生 | 食品卫生 |
药品安全 | 卫生人才 | 健康讲台 | 老年人健康 | 青少年健康 | 妇幼保健 | 亚健康 | 职业病 | 精神卫生 | 两性卫生 | 医疗美容 | 论坛 | 博客 |
欢迎您光临浙江公共卫生网健康博客频道
　　　为了使您能分享更多、更好的精彩博客，我们正在积极对该频道进行完善，因此开博时间要稍稍推迟几日，到时公告通知，请您继续关注。
　　
　　 如果您是老“博”友或是正在准备进入的新“博”友，欢迎您来这里，构建您的博客家园。
　
　　 如需帮助可与我们联系，电话：0571-88888888
友
情
链
接
<%sql = "Select * from [Link_Information] where isIndex = 1 Order by CreateTime Desc,[ID] Desc" bll_web.CreateRs rs bll_web.OpenRs rs,sql,conn,1,3 if not rs.eof then do while not rs.eof %>" class="lj3"><%=Rs("Title")%> | <% rs.movenext loop end if bll_web.CloseRs rs %>        [更多]
首页 | 网站介绍 | 广告服务 | 常见问题 | 诚聘英才 | 网站地图 | 版权申明 | 友情链接 | 联系我们 |
地址：杭州拱墅区北部软件园西楼515 电话：0571-88888888 传真：0571-88888888
Copyright©浙江公共卫生网.All right reseved. 备案号：浙ICP备09092358号-2
<% sub ClassMain_1(ClassID) sql = "Select * from [News_Class] where [ID] = "&ClassID&"" bll_web.CreateRs rs bll_web.OpenRs rs,sql,conn,1,3 if not rs.eof then %>
<%=Rs("Name")%>　　　　　　　 " target="_blank" class="lj3">更多
<%sql2 = "Select top 6 * from [News_Class] where ParentID="&ClassID&" Order by OrderID ,ID desc" bll_web.CreateRS fo1 bll_web.OpenRs fo1,sql2,conn,1,3 if not fo1.eof then i = 0 do while not fo1.eof i = i + 1 %> " target="_blank" class="lj2"><%=trim(fo1("Name"))%> <% fo1.movenext if i mod 3 = 0 and not fo1.eof then %>
<% end if loop end if bll_web.CloseRs fo1 %>
<%sql1 = "Select top 6 * from [News_Information] where (ClassID="&ClassID&" Or ClassID in (Select ID from [News_Class] where ParentID="&ClassID&")) and (PageUrl<>'' Or PageUrl is not null) Order by CreateTime Desc,[ID] Desc" bll_web.CreateRs fo bll_web.OpenRs fo,sql1,conn,1,3 if not fo.eof then do while not fo.eof %> ·" title="<%=fo("title")%>" class="lj3"><%=left(fo("Title"),14)%>
<% fo.movenext loop end if bll_web.CloseRs fo %>
<% end if bll_web.CloseRs rs end sub %> <%sub ClassMain_2(ClassID) sql = "Select * from [News_Class] where [ID] = "&ClassID&"" bll_web.CreateRs rs bll_web.OpenRs rs,sql,conn,1,3 if not rs.eof then %> <%sql1 = " Select * from ( select top 1 [ID],[Title],istop,Content,ClassID,isPicture,Detail,PageUrl,PictureURl from [View_News_Information] where ( ClassID = "&ClassID&" Or ClassID in (Select ID from [News_Class] where ParentID="&ClassID&" )) and isTop = 1 Order by [ID] Desc UNION all select top 4 [ID],[Title],istop,Content,ClassID,isPicture,Detail,PageUrl,PictureURl from [View_News_Information] where ( ClassID = "&ClassID&" Or ClassID in (Select ID from [News_Class] where ParentID="&ClassID&" )) and istop <> 1 Order by [ID] Desc ) as NewsList" bll_web.CreateRs fo bll_web.OpenRs fo,sql1,conn,1,3 if not fo.eof then if fo("isTop") then %> <% fo.movenext end if %> <%end if bll_web.CloseRs fo %>
　　 " class="lj9"><%=Rs("Name")%>　　
" width="75" height="60" />
" target="_blank"><%=fo("Title")%>
<%do while not fo.eof%> ·" title="<%=fo("Title")%>" class="lj3"><%=left(fo("Title"),15)%>
<% fo.movenext loop%>
<%end if bll_web.CloseRs rs end sub %> <%sub ClassMain_3(ClassID) sql = "Select top 10 * from [News_Information] Where ClassID="&ClassID&" ORder by CreateTime Desc,[ID] Desc" bll_web.CreateRs rs bll_web.OpenRs rs,sql,conn,1,3 if not rs.eof then i = 0 %> <%do while not rs.eof i = i + 1 %> <% rs.movenext if i mod 2= 0 and not rs.eof then %> <% end if loop %>
" target="_blank" title="<%=Rs("Title")%>" class="lj3"><%=left(Rs("Title"),13)%>
<% end if bll_web.CloseRs rs end sub%>