欢迎进入中国最大的视频招聘人才网站。全国客服热线：400-626-4185  
设为首页 | 添加到收藏夹 会员注册 | 客服中心 |
　
首页
个人服务
企业服务
视频招聘
合作联盟
培训教育
高校就业
资讯中心
人才论坛
大华猎铺
我要创业
今天是： <% 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) %> 职位搜索 | 简历搜索 | 企业视频 | 视频简历 | 品牌企业 | 英才自荐 | 视频面试 | 视频集锦
会员登录
<% If IsArray(Session("Person")) Then %> <% ElseIf IsArray(Session("Company")) 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("School")(0) %> 』
欢迎使用<%= Cls_WebName %>
退出 进入院校专区
您好,『 <%= Session("Educate")(0) %> 』
欢迎使用<%= Cls_WebName %>
退出 进入培训专区
用户名：
密  码：
类  型：
免费注册 忘记密码
职位搜索 　
职　能：
职　位：
地　区：
日　期：
关键字：
　
　
地区站点 　
　
<% SQL = "Select top 28 * From [pH_Web_City] Where Flag=1 Order by c_level ASC" Set Rs = Server.CreateObject("Adodb.recordset") Rs.open SQL,Conn,1,1 RCount = Rs.RecordCount For i = 1 to 7 If Rs.Eof Then Exit For %> <% For j = 1 to 4 If Rs.Eof Then Exit For temp_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<>'' And Cityid="&Rs("Cityid")&" and Cityid not in(1038,1049,1076) Order by LastUpdate_Time Desc" Set temp_Rs = Conn.Execute(temp_SQL) 'or Rs("Cityid") ="1047" if not temp_Rs.Eof or Rs("Cityid") ="1034" then %> <%else%> <% end if Rs.Movenext Next %> <% Next Rs.Close %>
"><%= Left(Rs("c_Name"),3) %><%= Left(Rs("c_Name"),3) %>
热门职位
<% 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 %>
·<%= JobName %> <%= LastUpdate_Time %>
<% 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">
" height="<%= Rs_ads("ad_Height") %>"> "> " quality=high PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" TYPE="application/x-shockwave-flash" width="435" height="75">
<% SQL = "Select Top 3 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) 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">
" height="<%= Rs_ads("ad_Height") %>"> "> " quality=high PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" TYPE="application/x-shockwave-flash" width="435" height="75">
<% SQL = "Select Top 3 Adurl,ad_Width,ad_Height,AdFile,AdClass From [pH_Web_Ad] Where WebName=1 And ad_Width=182 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">
" height="<%= Rs_ads("ad_Height") %>"> "> " quality=high PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" TYPE="application/x-shockwave-flash" width="435" height="75">
<% 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">
" height="<%= Rs_ads("ad_Height") %>"> "> " quality=high PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" TYPE="application/x-shockwave-flash" width="435" height="75">
<% SQL = "Select Top 5 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">
" height="<%= Rs_ads("ad_Height") %>"> "> " quality=high PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" TYPE="application/x-shockwave-flash" width="435" height="75">
您现在的位置是： >>友情链接




阳澄湖大闸蟹专卖，阳澄湖大闸蟹
http://www.shdazhaxie.com/
苏蟹阁阳澄湖大闸蟹品牌

北京阳澄湖大闸蟹，北京大闸蟹
http://www.shdazhaxie.com/beijing/
北京苏蟹阁阳澄湖大闸蟹品牌连锁

深圳阳澄湖大闸蟹
http://www.shdazhaxie.com/shenzhen/
苏蟹阁深圳分店，阳澄湖大闸蟹品牌连锁

广州阳澄湖大闸蟹
http://www.shdazhaxie.com/guangzhou/
广州分店：苏蟹阁阳澄湖大闸蟹品牌连锁

重庆阳澄湖大闸蟹，重庆大闸蟹
http://www.shdazhaxie.com/chongqing/
苏蟹阁阳澄湖大闸蟹品牌连锁重庆店

杭州阳澄湖大闸蟹，杭州大闸蟹
http://www.shdazhaxie.com/hangzhou/
苏蟹阁阳澄湖大闸蟹品牌连锁杭州分店

天津阳澄湖大闸蟹，天津大闸蟹
http://www.shdazhaxie.com/tianjing/
苏蟹阁阳澄湖大闸蟹品牌连锁杭州分店


阳澄湖大闸蟹 ， 大闸蟹
http://www.17dazhaxie.cn/
正宗阳澄湖大闸蟹超好

北京大闸蟹
http://www.17dazhaxie.cn/beijing/
正宗阳澄湖大闸蟹北京店

深圳大闸蟹，深圳阳澄湖大闸蟹
http://www.17dazhaxie.cn/shenzhen/
深圳阳澄湖大闸蟹超好

重庆阳澄湖大闸蟹 ， 重庆大闸蟹
http://www.17dazhaxie.cn/chongqing/
重庆阳澄湖大闸蟹超好

广州阳澄湖大闸蟹 ， 广州大闸蟹
http://www.17dazhaxie.cn/guangzhou/
正宗阳澄湖大闸蟹超好，全国都有实体店

西安阳澄湖大闸蟹 ， 西安大闸蟹
http://www.17dazhaxie.cn/xian/
西安阳澄湖大闸蟹最棒

杭州阳澄湖大闸蟹 ， 杭州大闸蟹
http://www.17dazhaxie.cn/hangzhou/
杭州最大的阳澄湖大闸蟹店全国连锁

天津阳澄湖大闸蟹
http://www.17dazhaxie.cn/tianjing/
苏蟹阁阳澄湖大闸蟹品牌连锁杭州分店


海鲜大礼包
http://www.haixianzhijia.com/
海鲜大礼包之家

海鲜礼包
http://www.52haixian.com/
海鲜礼包连锁


二手压路机
http://www.shchengjian.cn/
上海二手压路机之家

二手叉车
http://www.jcgch.com/
上海叉车之家


二手挖掘机
http://www.shhong8.com/
上海沪港二手挖掘机市场


打标机，激光打标机，激光雕刻机
http://www.ltlaser.cn/
上海镭天激光打标机


月饼，年货
http://www.zqyb.net/
中华礼券网



不锈钢制品，上海不锈钢制品，保温杯
http://www.sh-honghao.com/
上海虹豪不锈钢制品有限公司



二手推土机
http://www.shludi.cn/
上海路帝二手工程机械有限公司



二手装载机
http://www.gchjx.com.cn/
上海伟成二手工程机械有限公司




二手压路机，二手汽车吊
http:/www.lvdaidiao.cn/
上海华展二手工程机械有限公司



二手工程机械，二手叉车，二手压路机，二手装载机，二手汽车吊，二手推土机，二手推土机
http://www.021huafu.com/
上海伟博工程机械有限公司
友情链接：
　
企业视频 视频简历 　
<% SQL = "Select Top 14 Comid,CompanyName,LastUpdate_Time From pH_Company_Base Where Flag=1 And Nc_Video=1 And Video_Flag<>2 And DateDiff(d,Video_Date,Getdate())>=0 And DateDiff(d,Video_EndDate,Getdate())<=0 Order By LastUpdate_Time Desc" Set Rs = Conn.Execute(SQL) For i = 1 to 14 If Rs.Eof Then Exit For Comid = Rs("Comid") CompanyName = Rs("CompanyName") if CheckStringLength(Rs("CompanyName"))>20 then CompanyName = InterceptString(Rs("CompanyName"),17)&".." end if 'LastUpdate_Time = FormatDateTime(Rs("LastUpdate_Time"),2) %> <% Rs.Movenext Next Rs.Close %>
企业名称 播放
<%= CompanyName %> [播放]
  
品牌企业 | Brand Enterprise
<% SQL = "Select Top 30 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<>'' and shouye=1 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 = Rs("CompanyName") if len(Rs("CompanyName"))>11 then CompanyName = Left(Rs("CompanyName"),10)&".." end if 'CompanyName = Rs("CompanyName") 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 10 I.Perid,I.RealName,I.Sex,I.Edus,I.ResumeMode,I.WorkWill1,B.Nc_Best_Ads 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 10 If Rs.Eof Then Exit For Perid = Rs(0) RealName = Rs(1) Sex = Rs(2) Edus = Rs(3) ResumeMode = Rs(4) WorkWillClass = Rs(5) Best_Ads = Left(Rs(6),12) If ResumeMode = null Then ResumeMode = 1 If WorkWillClass <> "" Then WorkWillClass = Left(WorkWillClass,10) Else WorkWillClass = "--" End if if CheckStringLength(WorkWillClass)>8 then WorkWillClass= InterceptString(WorkWillClass,5)&".." end if %> <% If i < 10 Then Response.write "" Rs.Movenext Next Rs.Close %>
姓名 学历 求职意向
<%= RealName %> <%= Cls_Edus(Edus) %> <%= WorkWillClass %>
  
推荐企业招聘 最新企业招聘 　
<% SQL = "Select Top 39 Comid,CompanyName,Nc_Vip_Flag,Nc_Vip_Date,Nc_Vip_EndDate 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 and shouye=1 Order by LastUpdate_Time Desc" Set Rs = Conn.Execute(SQL) For i=1 to 20 If Rs.Eof Then Exit For CompanyName = Left(Rs("CompanyName"),17) Comid = Rs("Comid") Nc_Vip_Flag = Rs("Nc_Vip_Flag") Nc_Vip_Date = Rs("Nc_Vip_Date") Nc_Vip_EndDate = Rs("Nc_Vip_EndDate") %> <% Rs.Movenext If Rs.Eof Then Exit For CompanyName = Left(Rs("CompanyName"),17) Comid = Rs("Comid") Nc_Vip_Flag = Rs("Nc_Vip_Flag") Nc_Vip_Date = Rs("Nc_Vip_Date") Nc_Vip_EndDate = Rs("Nc_Vip_EndDate") %> <% Rs.Movenext If Rs.Eof Then Exit For CompanyName = Left(Rs("CompanyName"),17) Comid = Rs("Comid") Nc_Vip_Flag = Rs("Nc_Vip_Flag") Nc_Vip_Date = Rs("Nc_Vip_Date") Nc_Vip_EndDate = Rs("Nc_Vip_EndDate") %> <% Rs.Movenext %> <% Next Rs.Close %>
<%= CompanyName %> <% If Nc_Vip_Flag<>0 And Nc_Vip_Flag = True And DateDiff("d",Nc_Vip_Date,Date()) >= 0 And DateDiff("d",Nc_Vip_EndDate,Date()) <= 0 then %> 该企业是VIP会员,通过诚信认证! <% end If %>
<% '企业的职位 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) <= 16 or J = 1 Then Response.Write ""&Left(JobName,16)&" " JobName_Len = Len(Job_Str) If JobName_Len > 16 Then JobName_Len = 16 Else Response.Write ""&Left(JobName,(16-JobName_Len))&" " Exit For End if Rs_Job.Movenext Next Rs_Job.Close Response.Write "." %>
<%= CompanyName %> <% If Nc_Vip_Flag<>0 And Nc_Vip_Flag = True And DateDiff("d",Nc_Vip_Date,Date()) >= 0 And DateDiff("d",Nc_Vip_EndDate,Date()) <= 0 then %> 该企业是VIP会员,通过诚信认证! <% end If %>
<% '企业的职位 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) <= 16 or J = 1 Then Response.Write ""&Left(JobName,16)&" " JobName_Len = Len(Job_Str) If JobName_Len > 16 Then JobName_Len = 16 Else Response.Write ""&Left(JobName,(16-JobName_Len))&" " Exit For End if Rs_Job.Movenext Next Rs_Job.Close Response.Write "." %>
<%= CompanyName %> <% If Nc_Vip_Flag<>0 And Nc_Vip_Flag = True And DateDiff("d",Nc_Vip_Date,Date()) >= 0 And DateDiff("d",Nc_Vip_EndDate,Date()) <= 0 then %> 该企业是VIP会员,通过诚信认证! <% end If %>
<% '企业的职位 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) <= 16 or J = 1 Then Response.Write ""&Left(JobName,16)&" " JobName_Len = Len(Job_Str) If JobName_Len > 16 Then JobName_Len = 16 Else Response.Write ""&Left(JobName,(16-JobName_Len))&" " Exit For End if Rs_Job.Movenext Next Rs_Job.Close Response.Write "." %>
更多招聘职位
　
猎头职位 　
<% SQL = "Select Top 6 Ncid,Locid,CompanyName,JobName,Users,Locus_Area,AddDate From [pH_Locale_Jobs] Order By AddDate Desc" Set Rs = Conn.Execute(SQL) For i = 1 to 8 If Rs.Eof Then Exit For Ncid = Rs("Ncid") Locid = Rs("Locid") CompanyName = Rs("CompanyName") JobName = Rs("JobName") Users = Rs("Users") Locus_Area = Rs("Locus_Area") AddDate = Month(Rs("AddDate"))&"/"&Day(Rs("AddDate")) ' FormatdateTime(Rs("AddDate"),3) %> <% If i < 8 Then Response.write " " Rs.Movenext Next Rs.Close %>
职位名称 日期
·<%= left(JobName,10) %> <%= AddDate %>
  
培训机构 　
<% SQL = "Select Top 6 Ncid,Schid,Username,SchoolName,RegDate From [pH_Educate_Base] where Flag=1 and VipFlag=1 order by Ncid desc" Set Rs = Conn.Execute(SQL) For i = 1 to 8 If Rs.Eof Then Exit For Ncid = Rs("Ncid") Schid = Rs("Schid") SchoolName = Rs("SchoolName") if CheckStringLength(SchoolName)>21 then SchoolName= InterceptString(SchoolName,19)&".." end if 'JobName = Rs("JobName") Users = Rs("Username") ' Locus_Area = Rs("Locus_Area") AddDate = Month(Rs("RegDate"))&"/"&Day(Rs("RegDate")) ' FormatdateTime(Rs("AddDate"),3) %> <% If i < 8 Then Response.write " " Rs.Movenext Next Rs.Close %>
机构名称 日期
·<%= SchoolName %> <%= AddDate %>
  
中介公司 　
<% SQL = "Select Top 4 Ncid,Corid,Username,Corpname,RegDate From [pH_Intro_Base]" Set Rs = Conn.Execute(SQL) For i = 1 to 8 If Rs.Eof Then Exit For Ncid = Rs("Ncid") Corid = Rs("Corid") Corpname = Rs("Corpname") 'JobName = Rs("JobName") Users = Rs("Username") 'Locus_Area = Rs("Locus_Area") RegDate = Month(Rs("RegDate"))&"/"&Day(Rs("RegDate")) ' FormatdateTime(Rs("AddDate"),3) %> <% If i < 8 Then Response.write " " Rs.Movenext Next Rs.Close %>
公司名称 日期
·<%= Corpname %> <%= RegDate %>
  
职业指导 HR资讯 培训资讯 就业指导 　
简历指导 | 面试技巧 | 求职实录 | 职场眺望 更多>>
<% SQL = "Select Top 1 Title,Content,FileName,Path From [pH_New_Info] Where Typeid=10 Order By DateAndTime Desc" Set Rs = Conn.Execute(SQL) If Rs.Eof Then Response.Write("") Else Title = Left(Rs("Title"),20) Content = Left( RemoveHTML(Rs("Content")),60) FileName = Rs("FileName") Path = Rs("Path") %> <% End if Rs.Close %>
没有相关报道
<%= Title %>
<%= Content %>
<%= Cls_Info_List(8,6,20) %> <%= Cls_Info_List(11,6,20) %>
　
法律常识 　
<% SQL = "Select Top 7 Title,FileName,Path,t_Color From [pH_New_Info] Where Title <>'' And Typeid=17 And Flag=1 Order By DateAndTime Desc" Set Rs = Conn.Execute(SQL) While Not Rs.Eof %> <% Rs.Movenext Wend Rs.Close %>
·/<%= Rs("FileName") %>" target="_blank">"><%= Left(Rs("Title"),14) %>
鸣谢链接： <% Set Rs = Conn.Execute("Select top 700 LinkName,LinkUrl From [pH_FriendLink] Where State=1 and cityid=0 Order By ordernum desc") 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")%>
关于我们 | 网站声明 | 服务专区 | 加盟合作 | 广告服务 | 用户反馈 | 合作伙伴 | 友情链接 | 联系我们 | 收费标准
Copyright(C) 2008 - 2010 <%= Cls_Domain %> All Rights Reserved
<%= Cls_WebName %> 版权所有  <%= Cls_Icp %>
全国统一客服电话：<%= Cls_Phone %> 法律顾问：山西谦诚律师事务所
未经<%= Cls_Domain %>同意，不得转载本网站之所有招聘信息及作品 
  
<% CloseDB %> <% Function Checkstr(Str) If Isnull(Str) Then CheckStr = "" Exit Function End If Str = Replace(Str,Chr(0),"", 1, -1, 1) 'Str = Replace(Str, """", """, 1, -1, 1) Str = Replace(Str,"<；","<；", 1, -1, 1) Str = Replace(Str,">；",">；", 1, -1, 1) Str = Replace(Str, "script", "script", 1, -1, 0) Str = Replace(Str, "SCRIPT", "SCRIPT", 1, -1, 0) Str = Replace(Str, "Script", "Script", 1, -1, 0) Str = Replace(Str, "script", "Script", 1, -1, 1) Str = Replace(Str, "object", "object", 1, -1, 0) Str = Replace(Str, "OBJECT", "OBJECT", 1, -1, 0) Str = Replace(Str, "Object", "Object", 1, -1, 0) Str = Replace(Str, "object", "Object", 1, -1, 1) Str = Replace(Str, "applet", "applet", 1, -1, 0) Str = Replace(Str, "APPLET", "APPLET", 1, -1, 0) Str = Replace(Str, "Applet", "Applet", 1, -1, 0) Str = Replace(Str, "applet", "Applet", 1, -1, 1) Str = Replace(Str, "[", "[") Str = Replace(Str, "]", "]") Str = Replace(Str, """", "", 1, -1, 1) Str = Replace(Str, "=", "=", 1, -1, 1) Str = Replace(Str, "’", "’’", 1, -1, 1) Str = Replace(Str, "select", "select", 1, -1, 1) Str = Replace(Str, "execute", "execute", 1, -1, 1) Str = Replace(Str, "exec", "exec", 1, -1, 1) Str = Replace(Str, "join", "join", 1, -1, 1) Str = Replace(Str, "union", "union", 1, -1, 1) Str = Replace(Str, "where", "where", 1, -1, 1) Str = Replace(Str, "insert", "insert", 1, -1, 1) Str = Replace(Str, "delete", "delete", 1, -1, 1) Str = Replace(Str, "update", "update", 1, -1, 1) Str = Replace(Str, "like", "like", 1, -1, 1) Str = Replace(Str, "drop", "drop", 1, -1, 1) Str = Replace(Str, "create", "create", 1, -1, 1) Str = Replace(Str, "rename", "rename", 1, -1, 1) Str = Replace(Str, "count", "count", 1, -1, 1) Str = Replace(Str, "chr", "chr", 1, -1, 1) Str = Replace(Str, "mid", "mid", 1, -1, 1) Str = Replace(Str, "truncate", "truncate", 1, -1, 1) Str = Replace(Str, "nchar", "nchar", 1, -1, 1) Str = Replace(Str, "char", "char", 1, -1, 1) Str = Replace(Str, "alter", "alter", 1, -1, 1) Str = Replace(Str, "cast", "cast", 1, -1, 1) Str = Replace(Str, "exists", "exists", 1, -1, 1) Str = Replace(Str,Chr(13),"<；br>；", 1, -1, 1) CheckStr = Replace(Str,"’","’’", 1, -1, 1) End Function %>