<% '------------------------------------------- dim sql dim rs '实例 dim totalPut '总记录数 dim CurrentPage '当前页 dim TotalPages '总页数 dim i,j dim errmsg founderr=false state="新闻浏览" havajava=1 subid=trim(request("subid")) call nav() Set rs= Server.CreateObject ("ADODB.RecordSet") sql = "select * from news where subtype="&(subid)& " order by addtime desc" 'response.write (sql) 'response.end rs.open sql, conn,1,3 '---------------------------------- '----------------------------------空记录 if rs.bof then errmsg=errmsg+"
"+"
  • 还没有记录,请返回!!" founderr=true call error() response.end end if rs.MoveFirst '到第一条记录 rs.pagesize=MaxPerPage '定义每页记录数 'howmanyfields=rs.Fields.Count-1 If trim(Request("Page"))<>"" then CurrentPage= CLng(request("Page")) If CurrentPage> rs.PageCount then CurrentPage = rs.PageCount End If Else CurrentPage= 1 End If totalPut=rs.recordcount 'totalput=总记录数 if CurrentPage<>1 then if (currentPage-1)*MaxPerPage < totalPut then rs.move(currentPage-1)*MaxPerPage end if end if %> 河津市人民医院
    　　　　　网站首页 ┃ 医院简介 ┃ 医院荣誉 ┃ 医院领导 ┃ 领导致词 ┃ 组织机构 ┃ 科室介绍 ┃ 专家介绍 ┃ 医疗设备 ┃ 大事记　　

    　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　您现在的位置是：组织机构　 　
       
    ──────────────────────────────────────────

    院
    长


    书
    记


    副
    院
    长








    院
    长
    办
    公
    室

    　医务科--质控科
    　护理部--各护理站
    　门诊部--营养室
    　　　　　　病案室
    　　　　　　统计室
    　信息科　{　图书室
    　　　　　　住院结算处
    　财务科　{　收款室
    　　　　　 　审计室
    　总务器械科
    　防保科
    　医保科
    　内一科(心脑血管病、内分泌)
    　内二科(心内、消化专业)
    　内三科(神经、呼吸专业)
    　康复科――风湿科、高压氧舱
    　中医科
    　儿 科
    　急诊科
    　社区科
    　感染科
    　监护室
    ────────────────────────
    　外一科(神经外科)
    　外二科(普外科)
    　综合外科(含皮肤专业)
    　妇 科
    　产 科
    　骨 科
    　麻醉科
    　五官科――眼科 耳鼻喉科　口腔
    ────────────────────────
    　CT 室
    　放射科
    　检验科——病理室、血库、血流变
    　功能科——脑电图、经颅多普勒
    　　　　　　胃镜室、彩超、B超、
    　　　　　　运动平板、动态心电、
    　　　　　　心电图室
    　药剂科――门诊中西药房
    　　　　　　住院药房、药库
    　供应室
    主办单位：河津市人民医院　联系电话：0359--6321333
    技术支持：河津市经济信息中心　联系电话：0359--5023938