rsxx

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

主页

>> 人事信息

济宁医学院附属医院
公开招聘超声影像医学业务骨干的通知

　　济宁医学院附属医院是一所集医疗、教学、科研和预防保健为一体的大型现代化综合性医院，医院职工人数1727人，开放床位1631张，占地面积达到61724平方米，医疗用房建筑面积109739平方米，固定资产总值6.8亿元，医疗设备总值1.9亿元，现有50多个临床医技科室。现根据医院发展需要，面向社会招聘超声影像医学专业学科骨干：　

一、招聘对象及条件

超声影像医学心血管、腹部（含妇产）、介入治疗（含HIFU）等专业各1～2人。

年龄40以下，身体健康，从事本专业5年以上，专科以上学历，能熟练操作计算机。

研究生学历，二甲医院及以上本专业科主任，本系统市级学术学科带头人及后备人选或新世纪百千万国家级人才，可优先考虑。

临床经验丰富并有较高的专业技术水平和学科建设能力等专业条件优秀者以上招聘条件可适当放宽。

二、报名时间

长期有效。

三、报名方法

应聘者请将个人简历（含学术成就），学历（学位）证书、职称证书、执业医师资格证书、大型医用设备CDFI上岗证、获奖证书、个人身份证等复印件及一张免冠近照寄至：山东省济宁市中区古槐路79号济宁医学院附属医院人力资源处收，（邮编：272029）材料恕不退回。

E-MAIL：jyfy3205@163.com

联系电话：0537－2903205，2903568

四、根据报名情况由专家组初步进行筛选，面试时间另行通知，面试内容为专业理论、上机操作、英语等。

　　　　　　　　　　　　　　　　　　　　济宁医学院附属医院

2007年10月8日

供稿：xx 　　

[关闭窗口]