<% call SiteInfo if ISHTML = 1 then Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.CacheControl = "no-cache" End If %> <%= LanguageEn65 %> - <% =SiteTitleEn %>
 
<%=WebLocation()%>
 
<%=WebContent()%>
<% function WebMenu() If ISHTML = 1 Then AutoLink = ""&JobSortName&"."&HTMLName&"" Else AutoLink = "JobsList.asp" End If response.write ""&LanguageEn65&"" response.write ""&LanguageEn66&"" end function function WebLocation() WebLocation=" "&LanguageEn19&""&LanguageEn20&" - "&LanguageEn65&""&VbCrLf end Function function WebContent() dim rs,sql dim idCount dim pages pages=JobInfo dim pagec dim page page=clng(request("Page")) dim pagenc pagenc=5 dim pagenmax dim pagenmin dim pageprevious dim pagenext dim datafrom datafrom="Qianbo_Jobs" dim datawhere datawhere="where ViewFlagEn " dim sqlid dim Myself,PATH_INFO,QUERY_STRING PATH_INFO = request.servervariables("PATH_INFO") QUERY_STRING = request.ServerVariables("QUERY_STRING")' if QUERY_STRING = "" then Myself = PATH_INFO & "?" elseif Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")=0 then Myself= PATH_INFO & "?" & QUERY_STRING & "&" else Myself = Left(PATH_INFO & "?" & QUERY_STRING,Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")-1) end if dim taxis taxis="order by id desc " dim i sql="select count(ID) as idCount from ["& datafrom &"]" & datawhere set rs=server.createobject("adodb.recordset") rs.open sql,conn,0,1 idCount=rs("idCount") if(idcount>0) then if(idcount mod pages=0)then pagec=int(idcount/pages) else pagec=int(idcount/pages)+1 end if sql="select id from ["& datafrom &"] " & datawhere & taxis set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 rs.pagesize = pages if page < 1 then page = 1 if page > pagec then page = pagec if pagec > 0 then rs.absolutepage = page for i=1 to rs.pagesize if rs.eof then exit for if(i=1)then sqlid=rs("id") else sqlid=sqlid &","&rs("id") end if rs.movenext next end if if(idcount>0 and sqlid<>"") then sql="select * from ["& datafrom &"] where id in("& sqlid &") "&taxis set rs=server.createobject("adodb.recordset") rs.open sql,conn,0,1 Response.Write ""&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf while not rs.eof If ISHTML = 1 Then AutoLink = ""&rs("ClassSeo")&""&Separated&""&rs("ID")&"."&HTMLName&"" Else AutoLink = "JobsView.asp?ID="&rs("ID")&"" End If Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf If rs("EndDate")>now() Then Response.Write " "&VbCrLf Else Response.Write " "&VbCrLf End If Response.Write " "&VbCrLf Response.Write " "&VbCrLf rs.movenext Wend Response.Write "
    "&LanguageEn67&"  "&LanguageEn68&"  "&LanguageEn69&"  "&LanguageEn70&"  "&LanguageEn71&"  "&LanguageEn54&"
   "&rs("JobNameEn")&"   "&rs("eEmployerEn")&"   "&rs("JobAddressEn")&"   "&rs("JobNumber")&"   "&LanguageEn72&"   "&LanguageEn73&"   "&FormatDate(rs("Addtime"),13)&"
"&VbCrLf else response.write "
"& LanguageEn7 &"
" exit function end if Response.Write ""&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write " "&VbCrLf Response.Write "
"&VbCrLf Response.Write ""&LanguageEn44&""&idcount&""&LanguageEn45&" "&LanguageEn46&""&page&"/"&pagec&" "&LanguageEn47&""&pages&""&LanguageEn45&"" & vbCrLf pagenmin=page-pagenc pagenmax=page+pagenc if(pagenmin<1) then pagenmin=1 If ISHTML = 1 Then If ID = "" Then if(page>1) then response.write ("9 ") Else if(page>1) then response.write ("9 ") End If Else if(page>1) then response.write ("9 ") End If if page-(pagenc*2+1)<=0 then pageprevious=1 else pageprevious=page-(pagenc*2+1) end If If ISHTML = 1 Then If ID = "" Then if(pagenmin>1) then response.write ("3 ") Else if(pagenmin>1) then response.write ("3 ") End If Else if(pagenmin>1) then response.write ("3 ") End If if(pagenmax>pagec) then pagenmax=pagec for i = pagenmin to pagenmax if(i=page) then response.write (" "& i &" ") Else If ISHTML = 1 Then If ID = "" Then response.write ("["& i &"]") Else response.write ("["& i &"]") End If Else response.write ("["& i &"]") End If end if next if page+(pagenc*2+1)>=pagec then pagenext=pagec else pagenext=page+(pagenc*2+1) end If If ISHTML = 1 Then If ID = "" Then if(pagenmax: ") if(page:") Else if(pagenmax: ") if(page:") End If Else if(pagenmax: ") if(page:") End If Response.Write "
"&VbCrLf rs.close set rs=nothing end function %>