潜山县医院临床科室简介

<% ' ------------------------------------------ ' 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

首页

今天是

    内一科：消化、神经、普内等专科
    内二科：老干部病区
    外一科：脑外、胸、肿瘤、整形、肝胆、脑、泌尿、普外专科
    五官科：眼、耳鼻喉、口腔专科
    中医科：针灸推拿、肛肠专科
    妇产科
    儿科
    麻醉科
    手术室
    传染病科：肝病、结核病、肠道病等专科
    皮肤科：含性病诊疗科
    男性科
    家庭病房科
    急诊科等。

shou shu.jpg (7481 字节)

显微手术

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

].value,'_blank')" style="background-color: #E3EAFA; border-style: solid; border-color: #E3EAFA" class="shared"> 江西省卫生厅省卫生厅 .selectedIndex].value,'_blank')" style="background-color:#E3EAFA" class="shared"> 卫生局