<% ' ------------------------------------------ ' Web服务器文本文件的保存和读写 ' ------------------------------------------ Const ForReading = 1 Const ForWriting = 2 Const ForAppending = 8 ' 读取文件的内容 Function ReadTextFile(strFile) Dim strTestFile, objFSO, objInStream strTestFile = Server.Mappath(strFile) Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objInStream = objFSO.OpenTextFile (strTestFile, ForReading, False, False) ReadTextFile = objInstream.ReadALL objInStream.Close Set objInStream = Nothing Set objFSO = Nothing End Function ' 保存文本文件的内容 Sub SaveTextFile(strFile, strFileIn) Dim objFSO, objOutStream, strTestFile strTestFile = Server.Mappath(strFile) Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objOutStream = objFSO.OpenTextFile(strTestFile, ForWriting, True, False) objOutStream.WriteLine(strFileIn) objOutStream.Close Set objOutStream = Nothing Set objFSO = Nothing End Sub ' ------------------------------------------ ' 指定测试的文件名 Dim strFile, strLine strFile = "/qsxyy/TestTXT.txt" strLine = ReadTextFile(strFile) %> 潜山县医院主要业务简介
潜医 全心全意为您的健康服务  急救电话：0556-8933999
无偿献血  无尚光荣    献血热线：0556-8931403

首   页

医院简介

临床科室

医技科室

专家介绍

主要业务

中心血库
今天是

安庆卫生新闻全文检索 关键字

    潜山县医院主要业务项目：

    肝、胆、胃、脾、胰手术；胃癌、食道癌、乳癌、直肠癌根治术；颅内血肿清除等颅脑手术，肺切除，椎间盘摘除，小儿麻痹后遗症矫治，肾切除，输精管和输卵管吻合术，子宫全切术，膀胱阴道瘘修补，心、脑、小儿及老年疾病诊疗，急性传染病抢救，人工晶体植入和白内障复明手术，外科整形手术，中医和中西医结合治疗，CT诊断，肿瘤化疗及介入放射治疗中晚期肝癌、肺癌、造影摄片，临床检验、免疫、生化、细菌等检验和中心血库采供血项目，
B超、心电图、脑地形图、心功能、肺功能诊断，病理诊断等。

    兼有临床教学、卫生宣传、疫情监测、预防保健、救灾抢险医疗急救工作项目。

shou shu.jpg (7481 字节)

显微手术

安庆卫生法规数据查询
关键字

安庆卫生专家数据查询
姓名
 

如有任何意见或建议，敬请来信! E-mail:qsxyy@aqws.net.cn  最新更新日期06-01-10
版权所有 ©潜山县医院，未经授权禁止复制或建立镜像
安庆卫生互联网络信息中心  技术支持