<%= Cls_WebName&" | "&Cls_Domain %>武进人力资源市场|武进人才市场|武进人才网|最新招聘网|常州武进人才网|武进人才招聘网|最新求职网|中国人才网|江苏|常州|大型|市场|www.95888.cc

武进人力资源市场招聘综合站点

<% dim week,w w=year(date)&"年"&month(date)&"月"&day(date)&"日,星期" week=weekday(date) select case week case 1: w=w&"日" case 2: w=w&"一" case 3: w=w&"二" case 4: w=w&"三" case 5: w=w&"四" case 6: w=w&"五" case 7: w=w&"六" end select response.write(w) %>

档案查询

交流论坛

人力资源报

团购网

拼车在线

会员注册 | 客服中心 |

现场招聘：0519-86529679 86529681 网络招聘：0519-86529816 报纸招聘：0519-86529676

<% If IsArray(Session("Person")) Then %> <% ElseIf IsArray(Session("Company")) Then %> <% ElseIf IsArray(Session("Intro")) Then %> <% ElseIf IsArray(Session("School")) Then %> <% ElseIf IsArray(Session("Educate")) Then %> <% Else %> <% End if %>

您好,『 <%= Session("Person")(0) %> 』用户欢迎使用<%= Cls_WebName %> 退出进入个人专区
您好,『 <%= Session("Company")(0) %> 』用户欢迎使用<%= Cls_WebName %> 退出进入企业专区
您好,『 <%= Session("Intro")(0) %> 』用户欢迎使用<%= Cls_WebName %> 退出进入中介专区
您好,『 <%= Session("School")(0) %> 』用户欢迎使用<%= Cls_WebName %> 退出进入院校专区
您好,『 <%= Session("Educate")(0) %> 』用户欢迎使用<%= Cls_WebName %> 退出进入培训专区
用户名：	密码：	类型：	免费注册忘记密码

市场动态

<%= Cls_News_List_Root(42,7,22) %>

职位搜索


职　能：
职　位：
地　区：
日　期：
关键字：

培训资讯

<% SQL = "Select Top 30 Jobid,Comid,JobName,LastUpdate_Time From [pH_Job_Base] Where JobFlag=1 And HotFlag=1 And DateDiff(d,Getdate(),End_Date)>0 Order By ViewClicks Desc,LastUpdate_Time Desc" Set Rs = Conn.Execute(SQL) While Not Rs.Eof Jobid = Rs(0) Comid = Rs(1) JobName = Left(Rs(2),11) LastUpdate_Time = Month(Rs(3))&"-"&Day(Rs(3)) %> <% Rs.Movenext Wend Rs.Close %>

<%= Cls_News_List_Root(33,7,17) %>

<% SQL = "Select Top 3 Adurl,ad_Width,ad_Height,AdFile,AdClass From [pH_Web_Ad] Where WebName=1 And ad_Width=178 And ad_Height=47 And DateDiff(d,BeginDate,GetDate())>=0 And DateDiff(d,EndDate,GetDate())<=0 And Cityid=0 Order By ad_Sort Asc" Set Rs_ads = Conn.Execute(SQL) While Not Rs_ads.Eof If Rs_ads("AdClass") = 1 Then %> <% Else %> <% End if Rs_ads.Movenext Wend Rs_ads.Close %>

" target="_blank">

" width="<%= Rs_ads("ad_Width") %>" height="<%= Rs_ads("ad_Height") %>" border="0" class="ad_img">

<% SQL = "Select Top 6 Adurl,ad_Width,ad_Height,AdFile,AdClass From [pH_Web_Ad] Where WebName=1 And ad_Width=183 And ad_Height=47 And DateDiff(d,BeginDate,GetDate())>=0 And DateDiff(d,EndDate,GetDate())<=0 And Cityid=0 Order By ad_Sort Asc" Set Rs_ads = Conn.Execute(SQL) For i = 1 to 3 If Rs_ads.eof Then Exit For %> <% For j = 1 to 2 If Rs_ads.eof Then Exit For If Rs_ads("AdClass") = 1 Then %> <% Else %> <% End if If j = 1 Then Response.write "" Rs_ads.Movenext Next %> <% Next Rs_ads.Close %>

" target="_blank">

" width="<%= Rs_ads("ad_Width") %>" height="<%= Rs_ads("ad_Height") %>" border="0" class="ad_img">

<% SQL = "Select Top 3 Adurl,ad_Width,ad_Height,AdFile,AdClass From [pH_Web_Ad] Where WebName=1 And ad_Width=181 And ad_Height=47 And DateDiff(d,BeginDate,GetDate())>=0 And DateDiff(d,EndDate,GetDate())<=0 And Cityid=0 Order By ad_Sort Asc" Set Rs_ads = Conn.Execute(SQL) While Not Rs_ads.Eof If Rs_ads("AdClass") = 1 Then %> <% Else %> <% End if Rs_ads.Movenext Wend Rs_ads.Close %>

" target="_blank">

" width="<%= Rs_ads("ad_Width") %>" height="<%= Rs_ads("ad_Height") %>" border="0" class="ad_img">

<% SQL = "Select Top 4 Adurl,ad_Width,ad_Height,AdFile,AdClass From [pH_Web_Ad] Where WebName=1 And ad_Width=193 And ad_Height=61 And DateDiff(d,BeginDate,GetDate())>=0 And DateDiff(d,EndDate,GetDate())<=0 And Cityid=0 Order By ad_Sort Asc" Set Rs_ads = Conn.Execute(SQL) While Not Rs_ads.Eof If Rs_ads("AdClass") = 1 Then %> <% Else %> <% End if Rs_ads.Movenext Wend Rs_ads.Close %>

" target="_blank">

" width="<%= Rs_ads("ad_Width") %>" height="<%= Rs_ads("ad_Height") %>" border="0" class="ad_img">

<% SQL = "Select Top 1 Adurl,ad_Width,ad_Height,AdFile,AdClass From [pH_Web_Ad] Where WebName=1 And ad_Width=193 And ad_Height=65 And DateDiff(d,BeginDate,GetDate())>=0 And DateDiff(d,EndDate,GetDate())<=0 And Cityid=0 Order By ad_Sort Asc" Set Rs_ads = Conn.Execute(SQL) While Not Rs_ads.Eof If Rs_ads("AdClass") = 1 Then %> <% Else %> <% End if Rs_ads.Movenext Wend Rs_ads.Close %>

" target="_blank">

" width="<%= Rs_ads("ad_Width") %>" height="<%= Rs_ads("ad_Height") %>" border="0" class="ad_img">

英才自荐

<% SQL = "Select Top 10 I.Perid,I.RealName,I.Sex,I.Edus,I.ResumeMode,I.WorkWill1,B.LastUpdate_Time From pH_Person_Base As B,pH_Person_Info As I Where B.Perid=I.Perid And Len(I.RealName)>0 And I.ResumeKeep<>1 And B.Flag=1 And B.Nc_Best_Flag=1 And DateDiff(d,Nc_Best_Date,Getdate())>=0 And DateDiff(d,Nc_Best_EndDate,Getdate())<=0 Order By B.LastUpdate_Time Desc" Set Rs = Conn.Execute(SQL) For i = 1 to 15 If Rs.Eof Then Exit For Perid = Rs(0) RealName = Rs(1) Sex = Rs(2) Edus = Rs(3) ResumeMode = Rs(4) WorkWillClass = Rs(5) LastUpdate_Time = Rs(6) If ResumeMode = null Then ResumeMode = 1 If WorkWillClass <> "" Then WorkWillClass = Left(WorkWillClass,10) Else WorkWillClass = "--" End if Time_Str = Month(LastUpdate_Time)&"-"&Day(LastUpdate_Time) %> <% If i < 10 Then Response.write "" Rs.Movenext Next Rs.Close %>

姓名	性别	学历	日期

<%= RealName %>	<%= Cls_Sex(Sex) %>	<%= Cls_Edus(Edus) %>	<%= Time_Str %>

品牌企业 | Brand Enterprise

<% SQL = "Select Top 20 Comid,CompanyName,Nc_Vip_Logo From [pH_Company_Base] Where Len(CompanyName)>0 And Nc_Vip_Flag=1 And DateDiff(d,Getdate(),Nc_Vip_Date)<=0 And DateDiff(d,Getdate(),Nc_Vip_EndDate)>=0 And Nc_Vip_Logo<>'' Order by LastUpdate_Time Desc" Set Rs = Conn.Execute(SQL) For i = 1 to 4 If Rs.Eof Then Exit For %> <% For j = 1 to 5 If Rs.Eof Then Exit For Comid = Rs("Comid") CompanyName = Left(Rs("CompanyName"),10) Vip_Logo = Rs("Nc_Vip_Logo") '//企业招聘 ad_Comid = Rs("Comid") '获取企业ID ad_CompanyName = Rs("CompanyName") If ad_Comid <> "" Then ad_Show = "" 'ad_Show = ad_Show &""& ad_CompanyName & "
" '获取招聘职位 Set Rs_com = Conn.Execute("Select Jobid,JobName From [pH_Job_Base] Where Comid='"&ad_Comid&"' And JobFlag=1 And DateDiff(d,End_Date,GetDate())<=0 Order By LastUpdate_Time Desc") If Not Rs_com.Eof Then ad_Show = ad_Show & "诚聘：
" While Not Rs_com.Eof ad_Show = ad_Show &"·"& Rs_com("JobName") & "
" Rs_com.Movenext Wend End if Rs_com.Close End if %> <% Rs.Movenext Next %> <% Next Rs.Close %>

<%= CompanyName %>

猎头职位

<% SQL = "Select TOP 6 Ncid,Locid,JobName,AddDate From [pH_Locale_Jobs] Where Len(JobName)>0 Order By Ncid Desc" Set Rs = Conn.Execute(SQL) For i = 1 to 6 If Rs.Eof Then Exit For Ncid = Rs("Ncid") Locid = Rs("Locid") JobName = Left(Rs("JobName"),11) AddDate = Month(Rs("AddDate"))&"-"&Day(Rs("AddDate")) %> <% If i < 6 Then Response.write "" Rs.Movenext Next Rs.Close %>

职位名称	日期

·<%= JobName %>	<%= AddDate %>

急聘职位

<% SQL = "Select Top 6 Schid,SchoolName,LastUpdate_Time From [pH_Educate_Base] Where Len(SchoolName)>0 And Flag=1 And VipFlag=1 And DateDiff(d,VipDate,Getdate())>=0 And DateDiff(d,VipEndDate,Getdate())<=0 Order By LastUpdate_Time Desc" Set Rs = Conn.Execute(SQL) For i = 1 to 6 If Rs.Eof Then Exit For Schid = Rs("Schid") SchoolName = Left(Rs("SchoolName"),11) LastUpdate_Time = Month(Rs("LastUpdate_Time"))&"-"&Day(Rs("LastUpdate_Time")) %> <% If i < 6 Then Response.write "" Rs.Movenext Next Rs.Close %>

<% SQL = "Select Top 13 Jobid,Comid,JobName,LastUpdate_Time From [pH_Job_Base] Where BestFlag=1 And DateDiff(d,Getdate(),End_Date)>0 Order By LastUpdate_Time Desc,Jobid Desc" Set Rs = Conn.Execute(SQL) While Not Rs.Eof Jobid = Rs(0) Comid = Rs(1) JobName = Left(Rs(2),11) LastUpdate_Time = Month(Rs(3))&"-"&Day(Rs(3)) %> <% Rs.Movenext Wend Rs.Close %>

·<%= JobName %>[<%= LastUpdate_Time %>]

中介公司

<% SQL = "Select top 5 Ncid,Corid,CorpName,LastUpdate_Time From [pH_Intro_Base] Where Len(CorpName)>0 And Flag=1 And Nc_Vip_Flag=1 And DateDiff(d,Nc_Vip_Date,Getdate())>=0 And DateDiff(d,Nc_Vip_EndDate,Getdate())<=0 Order By LastUpdate_Time Desc" Set Rs = Conn.Execute(SQL) For i = 1 to 5 If Rs.Eof Then Exit For Ncid = Rs("Ncid") Corid = Rs("Corid") CorpName = Left(Rs("CorpName"),11) LastUpdate_Time = Month(Rs("LastUpdate_Time"))&"-"&Day(Rs("LastUpdate_Time")) %> <% If i < 5 Then Response.write "" Rs.Movenext Next Rs.Close %>

公司名称	日期

·<%= CorpName %>	<%= LastUpdate_Time %>

推荐企业招聘

最新企业招聘

<% SQL = "Select Top 36 Comid,CompanyName From [pH_Company_Base] Where Comid In (Select Comid From [pH_Job_Base] Where Len(JobName)>0 And JobFlag=1 And DateDiff(d,End_Date,GetDate())<=0) And Len(CompanyName)>0 And Nc_Vip_Flag=1 And DateDiff(d,Getdate(),Nc_Vip_Date)<=0 And DateDiff(d,Getdate(),Nc_Vip_EndDate)>=0 Order by LastUpdate_Time Desc" Set Rs = Conn.Execute(SQL) For i=1 to 12 If Rs.Eof Then Exit For CompanyName = Left(Rs("CompanyName"),17) Comid = Rs("Comid") %> <% Rs.Movenext If Rs.Eof Then Exit For CompanyName = Left(Rs("CompanyName"),17) Comid = Rs("Comid") %> <% Rs.Movenext If Rs.Eof Then Exit For CompanyName = Left(Rs("CompanyName"),17) Comid = Rs("Comid") %> <% Rs.Movenext %> <% Next Rs.Close %>

<%= CompanyName %>

<% '企业的职位 Job_Str = "" Jobs = 0 SQL = "Select Top 8 JobId,JobName From [pH_Job_Base] Where Comid='"&Comid&"' And Len(JobName)>0 And JobFlag=1 And DateDiff(d,End_Date,GetDate())<=0 Order By LastUpdate_Time Desc" Set Rs_Job = Conn.Execute(SQL) For J = 1 to 8 If Rs_Job.Eof Then Exit For Jobid = Rs_Job(0) JobName = Rs_Job(1) Job_Str = Job_Str & JobName&" " If Len(Job_Str) <= 19 or J = 1 Then Response.Write ""&Left(JobName,19)&" " JobName_Len = Len(Job_Str) If JobName_Len > 19 Then JobName_Len = 19 Else Response.Write ""&Left(JobName,(19-JobName_Len))&" " Exit For End if Rs_Job.Movenext Next Rs_Job.Close Response.Write "." %>

<%= CompanyName %>

<% '企业的职位 Job_Str = "" Jobs = 0 JobName_Len = 0 SQL = "Select Top 8 JobId,JobName From [pH_Job_Base] Where Comid='"&Comid&"' And Len(JobName)>0 And JobFlag=1 And DateDiff(d,End_Date,GetDate())<=0 Order By LastUpdate_Time Desc" Set Rs_Job = Conn.Execute(SQL) For J = 1 to 8 If Rs_Job.Eof Then Exit For Jobid = Rs_Job(0) JobName = Rs_Job(1) Job_Str = Job_Str & JobName&" " If Len(Job_Str) <= 19 or J = 1 Then Response.Write ""&Left(JobName,19)&" " JobName_Len = Len(Job_Str) If JobName_Len > 19 Then JobName_Len = 19 Else Response.Write ""&Left(JobName,(19-JobName_Len))&" " Exit For End if Rs_Job.Movenext Next Rs_Job.Close Response.Write "." %>

<%= CompanyName %>

<% SQL = "Select Top 36 Comid,CompanyName From [pH_Company_Base] Where Comid In (Select Comid From [pH_Job_Base] Where Len(JobName)>0 And JobFlag=1 And DateDiff(d,End_Date,GetDate())<=0) And Len(CompanyName)>0 And Flag=1 Order by lastUpdate_Time Desc" Set Rs = Conn.Execute(SQL) For i=1 to 12 If Rs.Eof Then Exit For CompanyName = Left(Rs("CompanyName"),17) Comid = Rs("Comid") %> <% Rs.Movenext If Rs.Eof Then Exit For CompanyName = Left(Rs("CompanyName"),17) Comid = Rs("Comid") %> <% Rs.Movenext If Rs.Eof Then Exit For CompanyName = Left(Rs("CompanyName"),17) Comid = Rs("Comid") %> <% Rs.Movenext %> <% Next Rs.Close %>

<%= CompanyName %>

更多招聘职位

合作伙伴

<% Set Rs = Conn.Execute("Select top 12 LinkName,LinkUrl,LinkImgPath From [pH_FriendLink] Where State=1 And Style=1 And Class=0 And Cityid=0 Order By Ordernum Asc") if not rs.eof then j=0 do while not rs.eof%> <%rs.movenext j=j+1 if j mod 2 = 0 and not rs.eof then response.write "" end if loop end if rs.close%>

" target="_blank">

" border="0" alt="<%= Rs("LinkName") %>" width="88" height="31" class="ad_img2">

职业指导

HR资讯

培训资讯

就业指导

简历指导 | 面试技巧 | 求职实录 | 职场眺望

更多>>

<% SQL = "Select Top 1 Title,Content,FileName,Path From [pH_New_Info] Where (Typeid=11 or Typeid=10 or Typeid=7 or Typeid=8) And Flag=1 And Len(Title)>0 And HotNew=1 Order By DateAndTime Desc" Set Rs = Conn.Execute(SQL) If Rs.Eof Then Response.Write("") Else Title = Left(Rs("Title"),16) Content = Left(Rs("Content"),58) FileName = Rs("FileName") Path = Rs("Path") %> <% End if Rs.Close %>

没有相关报道
<%= Title %>
	<%= Content %> >> 阅读全文

<% SQL = "Select Top 16 Title,FileName,Path,DateAndTime From [pH_New_Info] Where (Typeid=11 or Typeid=10 or Typeid=7 or Typeid=8) And Flag=1 And Len(Title)>0 Order By DateAndTime Desc" Set Rs = Conn.Execute(SQL) For i = 1 to 6 If Rs.Eof Then Exit For %> <% For j = 1 to 2 If Rs.Eof Then Exit For Title = Left(Rs("Title"),16) FileName = Rs("FileName") Path = Rs("Path") DateAndTime = Month(Rs("DateAndTime"))&"."&Day(Rs("DateAndTime")) %> <% Rs.Movenext Next %> <% Next Rs.Close %>

·<%= Title %> [<%= DateAndTime %>]

更多>>

<% SQL = "Select Top 1 Title,Content,FileName,Path From [pH_New_Info] Where (Typeid=28 or Typeid=29 or Typeid=14 or Typeid=15 or Typeid=16 or Typeid=17) And Flag=1 And Len(Title)>0 And HotNew=1 Order By DateAndTime Desc" Set Rs = Conn.Execute(SQL) If Rs.Eof Then Response.Write("") Else Title = Left(Rs("Title"),16) Content = Left(Rs("Content"),58) FileName = Rs("FileName") Path = Rs("Path") %> <% End if Rs.Close %>

没有相关报道
<%= Title %>
	<%= Content %> >> 阅读全文

<% SQL = "Select Top 16 Title,FileName,Path,DateAndTime From [pH_New_Info] Where (Typeid=28 or Typeid=29 or Typeid=14 or Typeid=15 or Typeid=16 or Typeid=17) And Flag=1 And Len(Title)>0 Order By DateAndTime Desc" Set Rs = Conn.Execute(SQL) For i = 1 to 6 If Rs.Eof Then Exit For %> <% For j = 1 to 2 If Rs.Eof Then Exit For Title = Left(Rs("Title"),16) FileName = Rs("FileName") Path = Rs("Path") DateAndTime = Month(Rs("DateAndTime"))&"."&Day(Rs("DateAndTime")) %> <% Rs.Movenext Next %> <% Next Rs.Close %>

·<%= Title %> [<%= DateAndTime %>]

更多>>

<% SQL = "Select Top 1 Title,Content,FileName,Path From [pH_New_Info] Where Typeid>=30 And Typeid<=37 And Flag=1 And Len(Title)>0 And HotNew=1 Order By DateAndTime Desc" Set Rs = Conn.Execute(SQL) If Rs.Eof Then Response.Write("") Else Title = Left(Rs("Title"),16) Content = Left(Rs("Content"),58) FileName = Rs("FileName") Path = Rs("Path") %> <% End if Rs.Close %>

没有相关报道
<%= Title %>
	<%= Content %> >> 阅读全文

<% SQL = "Select Top 16 Title,FileName,Path,DateAndTime From [pH_New_Info] Where Typeid>=30 And Typeid<=37 And Flag=1 And Len(Title)>0 Order By DateAndTime Desc" Set Rs = Conn.Execute(SQL) For i = 1 to 6 If Rs.Eof Then Exit For %> <% For j = 1 to 2 If Rs.Eof Then Exit For Title = Left(Rs("Title"),16) FileName = Rs("FileName") Path = Rs("Path") DateAndTime = Month(Rs("DateAndTime"))&"."&Day(Rs("DateAndTime")) %> <% Rs.Movenext Next %> <% Next Rs.Close %>

·<%= Title %> [<%= DateAndTime %>]

初入职场 | 简历设计 | 求职案例 | 面试宝典

更多>>

<% SQL = "Select Top 1 Title,Content,FileName,Path From [pH_New_Info] Where Typeid>=38 And Typeid<=41 And Flag=1 And Len(Title)>0 And HotNew=1 Order By DateAndTime Desc" Set Rs = Conn.Execute(SQL) If Rs.Eof Then Response.Write("") Else Title = Left(Rs("Title"),16) Content = Left(Rs("Content"),58) FileName = Rs("FileName") Path = Rs("Path") %> <% End if Rs.Close %>

没有相关报道
<%= Title %>
	<%= Content %> >> 阅读全文

<% SQL = "Select Top 16 Title,FileName,Path,DateAndTime From [pH_New_Info] Where Typeid>=38 And Typeid<=41 And Flag=1 And Len(Title)>0 Order By DateAndTime Desc" Set Rs = Conn.Execute(SQL) For i = 1 to 6 If Rs.Eof Then Exit For %> <% For j = 1 to 2 If Rs.Eof Then Exit For Title = Left(Rs("Title"),16) FileName = Rs("FileName") Path = Rs("Path") DateAndTime = Month(Rs("DateAndTime"))&"."&Day(Rs("DateAndTime")) %> <% Rs.Movenext Next %> <% Next Rs.Close %>

·<%= Title %> [<%= DateAndTime %>]

<% Set Rs = Conn.Execute("Select top 40 LinkName,LinkUrl From [pH_FriendLink] Where State=1 And Style=0 And Class=1 And Cityid=0 Order By Ordernum Asc") if not rs.eof then j=0 do while not rs.eof %> <%rs.movenext j=j+1 if j mod 7 = 0 and not rs.eof then response.write "" end if loop end if rs.close%>

" target="_blank"><%=rs("LinkName")%>

<% CloseDB %>