<%
Option Explicit
Response.Buffer=True
Dim objCn,objRst,objRst1,strSql,strWhere,i,strplace,stredulevel,i_,Asc_,pos_,ch_
Dim TotalCount,iPageCount,Upage,Dpage,RowsPerpage,iPageNo,tmpStr,j,intShowPage,intStyle,stredu,intPubDays,strZwMC,strFind,strarea,strCity
Dim strLanguage,strAge,strSex,strAddress,strAdr_province,strAdr_city,strClickedUrl
%>
武汉定期招聘会--中国工程机械人才网
<%
////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,ID,Corporation From Members Where Ucase(ID)='"&Ucase(MID_)&"'",objCn
If (Not objRst1.Eof) Then
If (Trim(objRst.Fields("PID")<>"")) Then
str1=""&objRst.Fields("Corporation")&""
Else
str1=objRst1.Fields("corporation")
End If
End if
//----临时的--
str1=""&MID_&""
objRst1.Close
End If
ShowMIDLink=str1
End Function
strarea=request("Province")
If strArea="工作地点" then strArea=""
strcity=request("city")
strplace=strarea&"_"&strcity
If strPlace="_" Then strPlace=""
stredulevel=Request("t_edu")
intPubDays=Request("txtPubDays")
If intPubDays="" then intpubDays=30
strLanguage=Request("t_language")
strAge=Request("t_age")
strSex=Request("t_sex")
strAdr_province=request("Province_adr")
// If strArea="任何省份" then strArea=""
strAdr_city=request("city_adr")
strAddress=strAdr_province&"_"&strAdr_city
If strAddress="_" Then strAddress=""
strZwMc="输入职位名称"
strFind=Request("txtFind")
If strFind="" Then strFind=strZwMC
Set objCn=Server.CreateObject("ADODB.Connection")
Set objRst=Server.CreateObject("ADODB.RecordSet")
Set objRst1=Server.CreateObject("ADODB.RecordSet")
objCn.Open "webdb"
strWhere=" Where 1>0 "
If (stredulevel<>"") and ( stredulevel<>"00") Then
strWhere=strWhere&" and edulevel 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 willing like "&likestring(strfind)
End If
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 strLanguage<>"00" and strLanguage<>"" Then strWhere=strWhere&" and language="&Sqlstring(strLanguage,"")
If strAge<>"00" and strAge<>"" Then strWhere=strWhere&" and age<="&strAge
If strSex<>"00" and strSex<>"" Then
strWhere=strWhere&" and sex="&SqlString(strSex,"")
End If
//---户口-
If (strAddress<>"") and (stradr_province<>"任何省份") Then
If (stradr_city="") or (stradr_city="无限制") Then
strWhere=strWhere&" and address like '%"&stradr_province&"%'"
Else
strWhere=strWhere&" and Address like '%"&strAddress&"%'"
End if
End If
// Response.write strWhere
//----统计记录数-------------------------------------------------------------
strSql="Select count(ID) From Rc_person "&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=34 //每页显示的最大条数
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
%>
