<%set conn=server.CreateObject("adodb.connection")conn.open "Driver={Microsoft Access Driver (*.mdb)}; dbq="&server.MapPath("../admin3130jyfy.mdb")set rs=server.createobject("adodb.recordset")Sub NiceError(text)conn.closeset conn=nothingResponse.Write "


" & textResponse.EndEnd Subsub openrs(rs, sql,i,j) Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql,conn,i,jend subfunction ChkString(strValue,strType)if IsNull(strValue) or trim(strValue)="" then ChkString = " "else if strType="unhtml" then strValue=RTrim(strValue) strValue=replace(strValue,"''","'") strValue=replace(strValue," "," ") strValue=replace(strValue,"<","<") strValue=replace(strValue,vbCrLf,"
") ChkString = strValue exit function end if if strType="replymail" then strValue=RTrim(strValue) strValue=replace(strValue," "," ") strValue=replace(strValue,vbCrLf,"
") ChkString = strValue exit function end if if strType="unhtml1" then strValue=RTrim(strValue) strValue=replace(strValue,"''","'") strValue=replace(strValue," "," ") strValue=replace(strValue,"<","<") strValue=replace(strValue,vbCrLf,"
") strValue=replace(strValue,"|"," ") ChkString = strValue exit function end if if strType="save" then strValue=RTrim(strValue) strValue=replace(strValue,"'","''") ChkString = strValue exit function end if if strType="unreplace" then strValue=RTrim(strValue) strValue=replace(strValue,"''","'") ChkString = strValue exit function end if if strType="save1" then strValue=RTrim(strValue) strValue=replace(strValue,"'","''") strValue=replace(strValue," ","|") ChkString = strValue exit function end if end ifend functionfunction ToURL(strValue) if IsNull(strValue) then strValue = "" ToURL = Server.URLEncode(strValue)end functionfunction DateToFilename(dtDateTime) DateToFilename = year(dtDateTime) & doublenum(Month(dtdateTime)) & doublenum(Day(dtdateTime)) & doublenum(Hour(dtdateTime)) & doublenum(Minute(dtdateTime)) & doublenum(Second(dtdateTime)) &".htm"end functionfunction doublenum(fNum) if fNum > 9 then doublenum = fNum else doublenum = "0"& fNum end ifend functionsub strDelete(strID,Forum,Pro) if not isempty(strID) then if instr(strID,",")>0 then dim idarr idArr=split(strID,",") dim id for i = 0 to ubound(idarr) id=idarr(i) del id,Forum,Pro next else del strID,Forum,Pro end if end ifset conn=nothingend subsub del(id,F,P) sql="delete from "& F &" where "& P & id conn.execute sql End sub%> hrhs
 
>>天使颂歌
 
>>好人好事
 
>>职工艺苑
 
 
 
 

 

我院2006年部分好人好事

8月份:
①8月3日嘉祥县李自轩送来锦旗、感谢信,感谢心内二病区乔增勇大夫在病人生命垂危之际为其安装心脏起搏器,挽救了患者的生命;
②8月11日,微山县鲁桥王连臣来信感谢儿科李秋波大夫治好了孩子的病;
③8月14日,济宁市高新区边茂春来信感谢心内科李清贤主任,患者先后在本市其他几家医院都没有治好病,花了4万多元,而在我院花了6000元就治好了病,并送锦旗一面;
④8月9日,一施工单位人员在烧伤科施工期间被电击伤,生命垂危,全科人员给予及时抢救,患者恢复心跳;
⑤一中退休教师李文坤来信感谢理疗科张娟医生服务好,治疗效果好。
9月份:
①9月6日,肾内科患者李仲阳的三个子女写来感谢信说:尽管患者去世了,但李新建主任和人工肾室的全体人员已经倾注了全部心血,已竭尽全力,家属表示深深地敬意;
②9月21日,济南铁路局患者刘福增来信感谢心内二病区全体人员医术高超、护理精心;
③任城区五里屯患者孔庆松感谢普外科刘启龙主任医德医风高,朱启英护士不怕脏不怕累。
④烧伤科患者张雷送来锦旗一面感谢全体医护人员。
⑤9月27日,林秀栋夫妻写来感谢信感谢儿科王瑜、冯兴为、单继平大夫挽救了孩子的生命,女儿患突发爆发性心肌炎,曾下病危通知,王瑜医生刚下班回家又赶回医院抢救,每天观察病情,时时看望,患者家属感激万分。
10月份:
①嘉祥马村李红启感谢儿科王瑜主任,女儿生命垂危,经过儿科抢救,转危为安。
②鱼台王鲁王介科送锦旗一面肛肠科孔大夫。
③红太阳酒业公司送口腔科、神经外科各一面锦旗。
④10月28日,枣庄矿业集团张美瑞来信感谢邵彤,六年的面肌痉挛病,在神经外科治好,感谢李元洋,李秋华护士长。
⑤山推患者齐乃瑞来信感谢医保办武维梅热情服务,为患者着想。
⑥肝胆外科患者贾卫东送来感谢信,感谢田志龙主任治好了自己的布卡式综合症,该患者曾在北京301医院治疗,医院介绍到我院找田主任治疗。
⑦小松山推有限公司送来感谢信,感谢我院外宾门诊、呼吸内科专家、科研处何华处长,在总经理山下修二先生患病期间得到上述人员的热情接待和服务。
⑧神经外科赵万巨拒收患者2000元。

 

 

 

 

供稿:xx      

 


 

 

济宁医学院附属医院 版权所有
地址:济宁市古槐路79号
总机电话:0537-2903399 医院传真:0537-2213030
急救中心办公室电话:0537-2900120 咨询电话(济宁市网通用户免费):0537-2966666