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人，开放床位1651张，占地面积达到61724平方米，医疗用房建筑面积109739平方米，固定资产总值8.9亿元，医疗设备总值1.9亿元，现有50多个临床医技科室。根据病人需求和医院事业发展的需要，医院拟公开招聘符合以下条件的护理专业毕业生。

一、招聘对象及条件：

1. 护理专业本科以上毕业生；

2. 国家“211”工程大学毕业；

3. 五官端正、身心健康，热爱护理专业。二、报名时间：
　长期有效。

三、报名方法：
应聘者请将个人简历，学历（学位）证书、执业资格证书、获奖证书、个人身份证等复印件及一张免冠近照寄至：山东省济宁市中区古槐路79号济宁医学院附属医院人力资源处收（邮编：272029）材料恕不退回。

人力资源处联系电话：0537－2903205

济宁医学院附属医院

2008年5月11日

供稿：人力资源处　　

[关闭窗口]