<%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
 
>>天使颂歌
 
>>好人好事
 
>>职工艺苑
 
 
 
 

 

2008年4月份收到患者感谢信、锦旗情况通报

受表扬人
感谢信
锦旗

 
条幅

 
寄送人、赠送人
主要内容
张元民王磊

 

1

 

 患者王继新 医术高超 医德高尚
内一科

 

 

1

 梁山一患者 治病救人 服务周到
心脏外科

 

 

1

 山西省一心脏病孤儿，母亲生下来死去，爸爸离孩子而去，跟姥姥独自生活。 生下来6个月的时候计划去北京看病，查出患有室缺。在山西晋城医院看过，听说我院开展手术好，来院得到成功治疗。家人说第一次看到这样的医院，好像宾馆一样，导医、工作人员和气，那里没有这样的好医院。
心内二病区张洪生、王芬

1

 

 

 谢文英 感谢无微不至的关心，不怕脏不怕累，亲手打开赛露。医院病人一家亲。
心内二乔增勇

1

 

 

 王运河 发现患者有危险，亲自送到病房，安排好手术，排除了血管堵塞的险情，使自己改变了“看病难医院牛”的观念。
儿科单主任

1

 

 

 济宁市劳动局高来印 医德高尚妙手回春
肝胆外科朱翠平

1

 

 

 病房患者 服务热情，耐心，关心病人
神经内科李宪章

 

 

 

 患者张开镇 住院号 350933 拒收患者购物卡1000元
神经内科李宪章

 

 

 

 神经内科26床患者住院号355213 拒收患者红包1000元

2008年5月份收到患者感谢信、锦旗情况通报

受表扬人 感谢信

锦旗

 

 条幅

 

 寄送人、赠送人

 主要内容
门诊手术室王德明、辛丽

1

 

 

 张惠

 患者患乳腺纤维腺瘤，心情紧张，他们宽慰患者，解除心理压力
神经外科赵万巨 郭强 任宪军等全体人员

1

1

 

 郭鹏全家

 感谢对住院期间的治疗和护理
呼吸内科二科张诚、闫梅

2

1

 

 

 鱼台患者李新智等，认为在大厅，门诊，病房，一声问候，一句慢走，春风负面，言语暖心，从医护人员到清洁工，电梯工无不令人感动。
骨科王海滨医生

1

 

 

 兖矿集团运输处州周永生

 母亲车祸在附院治疗，王大夫给予精心治疗，亲眼目睹了细致耐心为人热情的高尚医德。
肾内科李新建主任

1

 

 

 泗水病人徐甲兴

 在李新建治疗下患者病情转危为安，是个好医生。
神经外科护士长宋惠敏

 

 

 

 

 在输血科附近拣到现金1800元。
烧伤整形科全体人员

1

 

 

 东平县三庙周光益

 感谢全身心的关心，照顾。
保洁公司张小兰

1

 

 

 对不文明行为及时制止，随时打扫卫生，任劳任怨。

 济宁市公安局法医门诊
团委刘婷婷 卓越

1

 

 

 老两口都70多岁，老伴有偏瘫，孩子不在家，两个人来医院看病很为难，刘婷和卓越看到后赶忙借来了推车，陪着看病送出医院。

 门诊病人 张秀兰
烧伤外科李主任、梁护士长、董护士、特别是杜霞护士，

 

1

 

 

 一患者

 医生护士技术好、服务好。工作仔细认真。 对病人很关心，工作从不怕麻烦，病人眼角有分泌物时及时给予清理，点眼药水的时候，动作很轻，直到点到眼里。 杜霞护士从来什么活都干，而且干的很仔细，很体贴病人。我们几个临床的病人都有同感。一直想写封表扬信，直到出院没办，心里很后悔，今天在这里特别提出来，感谢烧伤科的医务人员，特别是李主任、护士长、感谢杜霞护士。

2008年6月份收到患者感谢信、锦旗情况通报

受表扬人

 感谢信 锦旗

 

 条幅

 

 寄送人、赠送人

 主要内容
心脏外科全体人员

 

 

1

 临沂爱心手术小患者丁美辰全家

 济宁医学院附属医院医德医高尚 医术精湛
骨科

1

 

1

 病人李全新

 精心治疗服务，关心病人
洗衣房潘述香

1

 

 

 李瑞朴

 拾到钱夹一个，现金290元。
药剂科郭勇、孔祥德

1

 

 

 一失主

 拾到现金、银行卡等重要物品一批，交还失主。
烧伤整形李鹰主任全科人员

 

1

 

 患者韩霞

 
手足外科韩清銮主任等

1

 

 

 患者程燕等

 4月18日晚8时，患者被耕地的旋转犁绞伤，左小腿下段和左螺关节全部绞烂，当夜在韩清銮主任带领下手术外科全体人员进行了18个小时的手术，两个月住院其间精心医疗，孩子恢复了战胜伤病的信心和勇气。
乳腺外科李主任、周广启，刘主任，护士很好，年轻

 

 

1

 患者吕桂荣

 费劲 刀口很小。做得很好，周大夫负责，血糖降不下去，负责办特殊病历，当时想不起来，确实关心。

 

 

 

 

 

 

 

 

 

 

 

 

 

 
供稿：xx    　　

 


 

 

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