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年护理专业毕业生通知

根据医院发展需要，现面向社会招聘护理专业毕业生，具体安排如下：

一、报名条件

1. 2008年毕业护理专业毕业生；

2. 高中起点全日制教育大专以上学历；

3. 医学类院校毕业生（不含职业技术学院毕业生）

二、考试安排

1. 报名截至时间：2008年5月6日星期二下午5：00

2. 领取准考证时间：2008年5月6日～7日，

领取准考证时携带：两张同底版一寸照片、身份证原件，

不得代领，逾期视为自动放弃。

3. 理论测试时间：2008年5月8日星期四上午8：30～11：30

考试内容：理论知识、人文知识、英语

4. 技能操作及面试：2008年5月10～11日上午8：00～12：00 下午2：00～6：00

三、报名方法

应聘者请将个人简历，就业推荐表、执业资格证书、获奖证书、个人身份证等复印件及一张免冠近照送到济宁医学院附属医院人力资源处，材料恕不退回。
联系电话：0537－2903205

附：求职简历模板、招聘告知书

济宁医学院附属医院

2008年5月3日

例：×××大学2008届护理专业求职简历
姓名	性别		出生年月	照片
民族	籍贯		计算机能力
政治面貌	婚否		外语等级
学位	毕业时间		执业证书
毕业学校		联系电话
专业		固定电话
E-MAIL		通讯地址
学习进修经历
工作实习经历
所获荣誉/主要论文/科研项目等

济宁医学院附属医院

2008年护理专业招聘告知书

护理求职考生：

你好！

欢迎你报名参加我院组织的护理专业招聘考试。现将招聘考试有关事宜告知如下：

一、我院招聘各类人员均本着公开、公正、公平、择优录用的原则，严格考试、体检程序；坚决制止任何行贿受贿行为，一经发现将取消考生考试、录用资格，因此所造成的一切后果责任自负！

二、 本次招聘只针对应届（2008年）、具备派遣资格、身体健康的护理专业本专科毕业生。

三、 对无派遣证或其他原因致不能在网上注册签约者，将不予录用。

本人签字：

本新闻摘自：招聘rlzyc供稿　　

[关闭窗口]