<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 快3彩票网:粤北人民医院-专家门诊出诊排班表www.besttextdeals.com 蚂蚁彩票 北京赛车pk10 pk10开奖直播
  星期一 星期二 星期三 星期四 星期五 星期六 星期天
科室 上午 下午 上午 下午 上午 下午 上午 下午 上午 下午 上午 下午 上午 下午
<% dim db:db = "sunBird.mdb" dim conn Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db) dim sqlText,rs,sql,rst,cztime,n sqlText = "select KeShiName from KeShi order by id" set rs = conn.execute(sqlText) n = 0 do until rs.eof or rs.bof if (n mod 2=0) then Response.Write("") else Response.Write("") end if n = n + 1 Response.Write("") rs.movenext loop rs.close %>
                             
"&rs("KeShiName")) sql = "select id,ChuZhenTime,Doctor,Link from ChuZhenList where KeShiName = '"&rs("KeShiName")&"' order by ChuZhenTime,id asc" set rst = conn.execute(sql) cztime = 0 do until rst.eof or rst.bof if (rst("ChuZhenTime")<>cztime) then for i=cztime to rst("ChuZhenTime")-1 Response.Write("") if (rst("ChuZhenTime")-i>1) then Response.Write("  ") end if next cztime = rst("ChuZhenTime") end if if (rst("link")<>"") then Response.Write("
"&rst("doctor")&"
") else Response.Write("
"&rst("doctor")&"
") end if rst.movenext loop rst.close for i=cztime to 13 Response.Write("
  ") next Response.Write("
科室 上午 下午 上午 下午 上午 下午 上午 下午 上午 下午 上午 下午 上午 下午
  星期一 星期二 星期三 星期四 星期五 星期六 星期天
注意:个别专家因临时抢救、会诊等调整,以当天挂牌为准。咨询电话: 0751-8101346
网络技术支持:韶关家园 zh
友情链接:快3平台  快三在线投注平台  快3投注平台  快3彩票网  快3彩票网  

免责声明: 本站资料及图片来源互联网文章,本网不承担任何由内容信息所引起的争议和法律责任。所有作品版权归原创作者所有,与本站立场无关,如用户分享不慎侵犯了您的权益,请联系我们告知,我们将做删除处理!