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

主页

>> 人事信息

         济宁医学院附属医院2008年招聘方案

    根据事业单位人事制度改革的要求，结合医院实际情况，经院党委研究决定，将以下岗位向社会公开招聘，现制定招聘方案如下：
    一、招聘的岗位
    我院拟招聘普外科、肝胆外科、心外科、胸外科、神经外科、泌尿外科、小儿外科、骨外科、骨关节中心、手足外科、烧伤整形外科、肛肠外科、急诊科、妇科、产科、呼吸内科、消化内科、心内科、内分泌科、肾内科、风湿免疫血液科、神经内科、儿科、老年医学、皮肤科、肿瘤科(含放疗)、眼科、耳鼻喉科、口腔科、影像专业(CT、磁共振、放射、ECT)、超声、病理科、医学检验、心电图、临床药学、麻醉科、康复理疗科等专业的医疗、医技人员和护理专业人员。
    二、招聘的条件
    1、具有研究生以上学历。
    2、七年制的本硕连读硕士研究生和博士研究生优先。
    3、有在二级甲等以上医院工作经历，具有中级职称的研究生优先考虑。
    4、六年制医疗专业的本科生可以报名。
    5、护理专业的研究生优先考虑。
    三、报名的要求
    有意向者，请将个人求职简历（附相关证件复印件）邮寄济宁医学院附属医院人力资源处收，邮寄地址是济宁市古槐路79号。
    联系电话0537-2903205

人力资源处

2008年1月3日

供稿：xx 　　

[关闭窗口]