<%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_news_STRING Recordset1.Source = "SELECT * FROM article ORDER BY articleid DESC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Recordset2__MMColParam Recordset2__MMColParam = "2" If (Request("MM_EmptyValue") <> "") Then Recordset2__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Recordset2 Dim Recordset2_numRows Set Recordset2 = Server.CreateObject("ADODB.Recordset") Recordset2.ActiveConnection = MM_article_STRING Recordset2.Source = "SELECT * FROM article WHERE Nclassid = " + Replace(Recordset2__MMColParam, "'", "''") + " ORDER BY articleid DESC" Recordset2.CursorType = 0 Recordset2.CursorLocation = 2 Recordset2.LockType = 1 Recordset2.Open() Recordset2_numRows = 0 %> <% Dim Recordset3__MMColParam Recordset3__MMColParam = "4" If (Request("MM_EmptyValue") <> "") Then Recordset3__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Recordset3 Dim Recordset3_numRows Set Recordset3 = Server.CreateObject("ADODB.Recordset") Recordset3.ActiveConnection = MM_article_STRING Recordset3.Source = "SELECT * FROM article WHERE Nclassid = " + Replace(Recordset3__MMColParam, "'", "''") + " ORDER BY articleid DESC" Recordset3.CursorType = 0 Recordset3.CursorLocation = 2 Recordset3.LockType = 1 Recordset3.Open() Recordset3_numRows = 0 %> <% Dim Recordset4__MMColParam Recordset4__MMColParam = "7" If (Request("MM_EmptyValue") <> "") Then Recordset4__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Recordset4 Dim Recordset4_numRows Set Recordset4 = Server.CreateObject("ADODB.Recordset") Recordset4.ActiveConnection = MM_article_STRING Recordset4.Source = "SELECT * FROM article WHERE Nclassid = " + Replace(Recordset4__MMColParam, "'", "''") + " ORDER BY articleid DESC" Recordset4.CursorType = 0 Recordset4.CursorLocation = 2 Recordset4.LockType = 1 Recordset4.Open() Recordset4_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 4 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = 2 Repeat3__index = 0 Recordset3_numRows = Recordset3_numRows + Repeat3__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 2 Repeat2__index = 0 Recordset2_numRows = Recordset2_numRows + Repeat2__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> 广州经济技术开发区医院专家推介2(2006.11)
医院logo 急诊电话02082215583

妇产科副主任医师 黄玉珍  

    毕业于哈尔滨医科大学医疗系,几十年来一直从事妇产科临床工作,爱岗敬业,工作中勇于开拓进取,富于 创新精神和实干精神,除具有过硬的业务技术能力外,还具有很强的人际沟通能力及协调能力。有团队的合作意识和精神,其间曾系 统进修学习过妇科、产科等疾病的诊治。

    在几十年的临床工作中,对妇科、产科、计划生育的常见病、多发病、疑难病、危重症的诊治有丰富的临床经验。能独立完成妇 产科及计划生育的各种手术。曾是黑龙江医学会妇产科分会会员,并在国家级医学杂志上发表论文多篇。



外科副主任医师 郭宇申

    毕业于哈尔滨医科大学,几十年一直从事外科临床工作,曾于1983年在哈尔滨医科大学附属第一医院进修学 习肝、胆、胃肠、甲状腺、肛肠等外科疾病的诊治。对甲状腺外科、胃肠外科、乳腺外科及脑、胸、四肢外伤以及外科常见病、多发 病、疑难病的诊治有丰富的临床经验。曾是黑龙江医学会外科分会会员。并在国家级医学杂志上发表论文多篇。



ICU副主任医师 谢鹤龄

    从事内科临床工作30年。主要工作经历是内科危重症的诊断和抢救,内科疑难病例的诊断和治疗,神经科疑 难病例的诊断和治疗。医学基础理论扎实,临床经验丰富厚重。诊断疾病细致,治疗疾病周全。阅历丰富,厚积薄发,曾在南方医院 、珠江医院、解放军总医院、北京协和医院长时间进修学习和短期培训。临床主要工作重点涉猎老年病诊治,神经内科疾病诊治,疑 难病诊治,内科相关专业疾病诊治,医疗咨询和神经康复及心理障碍咨询指导,内科危重症救治。


妇产科副主任医师 辜为为
    1987年毕业于湖北三峡医学院,本科学历,副主任医师。曾任湖北省荆州市第二人民医院妇科主任、江汉医学院客座 教授、荆州市妇产医学会委员。从事妇产科临床工作20年,曾先后在武汉同济医科大同济医院进修妇产科临床,专修妇科内分泌,在 山东齐鲁医院专修妇科宫腔镜腹腔镜微创手术,具有丰富的临床工作经验与教学经验,娴熟的腹式、阴式及宫腔镜、腹腔镜手术技术 :如腹式子宫切除、输卵管吻合术,阴式子宫切除、阴道壁修补术、生殖道畸形矫正术,腹腔镜下子宫切除、肌瘤与卵巢囊肿剔除术 ,妇科恶性肿瘤减灭术、广泛子宫切除术及盆腔淋巴结清扫术。开设妇科内分泌不孕症专家门诊多年,对青春期功血、育龄期内分泌 失调、更年期综合征、女性不孕不育症诊疗经验丰富,见解独到。从医20年,以高尚的医德,精湛的医术赢得广大患者的信赖与赞誉 。


内科副主任医师 吴燕霞 

    1983年本科毕业于西安医科大学临床医学专业。从事内科临床工作20余年,专业理论知识扎实,业务 技术熟练,临床经验较丰富,先后在西安医科大学附属医院心脏内科和消化内科进修学习两年,在普内基本功底的基础上,尤擅长心 血管内科,消化内科及急诊医疗,熟练掌握内科常见病、多发病的诊治,对相关疑难病症具一定分析。诊治能力,能熟练进行内科常 规操作,对消化道内窥镜操作、诊治娴熟。在相关医学专业杂志上发表论文多篇。西安医学会内科分会会员。



副主任医师 丁建江
   湖北中医学院毕业。广东省社区康复学会委员、广州市康复学会委员、荔湾区中医学会常务理事、从事颈肩腰腿疼痛、中风后遗症、各种神经疼痛治疗。主要治疗颈椎病、肩周炎、LDP、强直性脊椎炎、各种增生性骨关节炎、风湿、类风湿性关节炎、神经性疼痛、脑血管疾病,尤其擅长治疗颈腰椎间盘突出症。

   从医25年,多次在北京中国针灸研究院、上海龙华医院进修学习,先后有十余篇论文在国家级省级杂志发表,“腰九针配服腰疼安治疗腰椎间盘突出症临床研究”、“风湿仙丹治疗类风湿性关节炎临床研究”、“爆压法炮制马钱子”、获湖北省重大科技成果奖。并著有《五官疾病外治》一书(40万字)。多次在全国社区康复及广州市康复学会讲课。
 
  版权所有© 2005-2010 广州开发区医院 广州经济技术开发区友谊路 196号 电话:020-82087088 (总机)
急救电话:82215583
 
办公室:82215578 传真:82224589
医院邮箱  站长邮箱  留言簿
诚聘英才
网址:www.getddhospi.com
网络实名:广州经济技术开发区医院南方生物诊疗中心
粤ICP备05020797号

 

<% Recordset1.Close() Set Recordset1 = Nothing %> <% Recordset2.Close() Set Recordset2 = Nothing %> <% Recordset3.Close() Set Recordset3 = Nothing %> <% Recordset4.Close() Set Recordset4 = Nothing %>