潜山县医院中心血库简介

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

首页

今天是

潜山县医院大门

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

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