%
' ------------------------------------------
' 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)
%>
潜山县医院简介
 |
|
|
|
|

潜山县医院是该县唯一的二级甲等综合性医院、爱婴医院。集医疗、教学、科研、急救康复为一体,中西医兼顾、内外科并重、多学科共同发展、临床医技科室建设配套,是全县卫生行业的龙头单位。
医院设门诊、住院两部,行政职能科室齐全,现有内、外、妇、儿、耳鼻喉眼口腔、传染病、麻醉、急诊科、皮肤病、性病专科、防保、中医(含肛肠、针灸推拿)、家庭病床、康复等10多个一级临床科室和20多个二级专科,医技设有放射、检验、病理、药械、中心血库、制剂、彩超、B超、胃镜、心电图心功能、脑电图脑地形图、肺功能、消毒供应、CT室等。
医院的人才力量、技术水平、医疗设备居安庆市同级医院的先进行列。现有高级卫技人员68人,中级卫技人员180人,开设病床260张,急诊观察床15张。年门诊病人10万多人次,年出院病人近万人次。
医院还拥有全自动生化分析仪、血球计数仪、尿液分析仪、手术显微镜、泪道激光治疗仪、生命体征监测仪、全身麻醉呼吸机、心电监护仪、全自动洗片机、500MAX线机等大型高精尖医疗器械设备,为诊断、医疗提供了快捷、准确、高效的服务。
实行病员选择医生,就诊者可以指定你信得过的专家或医师给你提供优质高效的诊疗服务。
医院始终把社会效益放在第一位,坚持“以病人为中心,质量第一,安全第一”的办院宗旨,使医院的发展达到了一个崭新的阶段。
|
|
|
|
|
|
----友--情--链--接----
|
| 安徽热线 三九健康网 |
| 安庆信息港 医护网 |
| 市卫生局 123健康网 |
| 天柱信息港 健康报网 |
| 潜山信息港 |
|