<%
Option Explicit
Response.Buffer=True
Dim objCn,objRst,objRst1,strSql,strWhere,i
Dim TotalCount,iPageCount,Upage,Dpage,RowsPerpage,iPageNo,tmpStr,j,intShowPage,intStyle,strEdulevel,strPlace,strCity,strarea,strFind,strZwMc,intpubdays
Dim strClickedUrl,i_,asc_,pos_,ch_,strLanguage,strAge,strSex,str1
%>
在线申请--会员服务--中国工程机械人才网
<%
////2个过程用来显示城市信息
sub fun(str,str1)
dim lnglen,pt,sub1,sub2
if str="" then
str="任何省份_无限制"
end if
lnglen=len(str)
pt=instr(str,"_")
sub1=left(str,pt-1)
sub2=right(str,lnglen-pt)
if str1=sub1 then
response.write ""
else
response.write ""
end if
end sub
sub fun1(str)
dim lnglen,pt,sub1,sub2
if str="" then
str="任何省份_无限制"
end if
lnglen=len(str)
pt=instr(str,"_")
sub2=right(str,lnglen-pt)
response.write ""
end sub
Function ShowMIDLink(Mid_)
Dim str1
ShowMIDLink=""
str1=""
If Trim(MID_)<>"" Then
objRst1.Open "Select PID,Corporation From Members Where ID='"&MID_&"'",objCn
If (Not objRst1.Eof) Then
If (Trim(objRst1.Fields("PID")<>"")) Then
str1=""&objRst1.Fields("Corporation")&""
Else
str1=objRst1.Fields("corporation")
End If
Else
str1="--未检索到该公司信息--"
End if
End If
objRst1.Close
ShowMIDLink=str1
End Function
strZwMc="输入职位名称"
strCity=""
strPlace=""
stredulevel=Request("edulevel")
strarea=request("Province")
If strArea="工作地点" then strArea=""
strcity=request("city")
strplace=strarea&"_"&strcity
If strPlace="_" Then strPlace=""
strFind=Request("txtFind")
intPubDays=Request("txtPubDays")
If intPubDays="" then intpubDays=30
If strFind="" Then strFind=strZwMc
strLanguage=Request("t_language")
strAge=Request("t_age")
strSex=Request("t_sex")
Set objCn=Server.CreateObject("ADODB.Connection")
Set objRst=Server.CreateObject("ADODB.RecordSet")
Set objRst1=Server.CreateObject("ADODB.RecordSet")
objCn.Open "webdb"
strWhere=" Where Ispublished>0 "
If (strPlace<>"") and (strArea<>"任何省份") Then
If (strcity="") or (strCity="无限制") Then
strWhere=strWhere&" and workplace like '%"&strarea&"%'"
Else
strWhere=strWhere&" and workplace like '%"&strPlace&"%'"
End if
End If
If (stredulevel<>"") and ( stredulevel<>"000") Then
strWhere=strWhere&" and edulimit like '%"&strEduLevel&"%'"
End If
If intPubDays<>"" Then
strWhere=strWhere&" and pubdate>= current date - "& intPubDays&" days"
End If
If (strFind<>"") and (strFind<>strZwMC) Then
strWhere=strWhere&" and name like "&likestring(strfind)
End If
If strLanguage<>"00" and strLanguage<>"" Then strWhere=strWhere&" and languagelimit="&Sqlstring(strLanguage,"")
If strAge<>"00" and strAge<>"" Then strWhere=strWhere&" and agelimit like "&likestring(strAge)
If strSex<>"00" and strSex<>"" Then
strWhere=strWhere&" and sexlimit="&SqlString(strSex,"")
End If
//----统计记录数-------------------------------------------------------------
strSql="Select count(ID) From Rc_job "&strWhere
objRst.Open strSql,objCn
TotalCount=0
TotalCount=Cint(objRst.Fields(0))
objRst.Close
//-----页数-------------------------------------------------------
iPageNo=1 //页码
If (IsEmpty(Request("ipageno"))) or (Request("ipageno")="") Then
iPageNo=1
Else
iPageNo=Cint(Request("ipageno"))
End If
iPageCount=0 //总页数
RowsPerpage=15 //每页显示的最大条数
If iPageNo=1 Then
Upage=1
Else
Upage=iPageNo-1
End If
If iPageNo=iPageCount Then
Dpage=iPageCount
Else
Dpage=iPageNo+1
End If
If TotalCount mod RowsPerpage=0 Then
iPageCount=totalcount\RowsPerpage
Else
iPageCount=totalcount\RowsPerpage+1
End If
If TotalCount=0 Then
iPageCount=0
iPageNo=0
Upage=0
Dpage=0
End If
%>
<%
If objRst.State=1 Then objRst.Close
If objRst1.State=1 Then objRst1.Close
If objCn.State=1 Then objCn.Close
Set objRst=Nothing
Set objRst1=Nothing
Set objCn=Nothing
%>
