<% if Trim(Request.QueryString("classname"))="资质荣誉" then Response.redirect("two2.asp") Response.end end if strCurrMenu="18977" ThisPage=request.ServerVariables("URL") strQuery="" strTitle="最新发布" Response.Write(Trim(Request.QueryString(("class")))) if Trim(Request.QueryString(("class")))<>"" then SourCode=conn.execute("Select c_code From web_news_class Where mn_id=" & strCurrMenu & " and id="&GetVariable("class"))(0) strQuery=strQuery & " And c_code Like '" & SourCode &"%'" strTitle=GetVariable("classname") end if if GetVariable("key")<>"" then strQuery=strQuery & " And (nTitle Like '%" & GetVariable("key") & "%' or nHtmlText like '%" & GetVariable("key") & "%' or nKey like '%" & GetVariable("key") & "%') " strTitle="搜索:" & GetVariable("key") end if '从这开始读数据 strSQL="Select * From v_web_news Where nAudit<>0 " & strQuery & " And mn_id=" & strCurrMenu & " Order by ID Desc" rs.open strSQL,conn,1,1 '分页显示初始化 page=GetVariable("page") if page="" then page=1 else page=Cint(page) end if Section=GetVariable("section") if Section="" then Section=1 else Section=Cint(Section) end if '变量赋值 intPageSize=15 '每页显示记录数 intSectionSize=5 '多少页为一段,像GOOGLE一样 PrevSectionText="7" '上一段的链接文字 NextSectionText="8" '下一段的链接文字 PrevPageText="3" '上页的链接文字 NextPageText="4" '下页的链接文字 strPageUrl="?class=" & GetVariable("class") & "&classname=" & GetVariable("classname") & "&key=" & GetVariable("key") & "&mnid=" & strCurrMenu rs.pagesize=intPageSize intCount=rs.RecordCount intPageCount=rs.pagecount intSectionCount=(intPageCount - 1) \ intSectionSize + 1 if intCount>0 then rs.AbsolutePage=page end if %>
 
Title Contents
 
: Home HR
<% '读取招聘的属性,以确定显示那个字段 showAddress=GetKey("Address",WebUserID,"job_" & strCurrMenu ) showCount=GetKey("Count",WebUserID,"job_" & strCurrMenu ) showExpires=GetKey("Expires",WebUserID,"job_" & strCurrMenu ) showPay=GetKey("Pay",WebUserID,"job_" & strCurrMenu ) showDetail=GetKey("Detail",WebUserID,"job_" & strCurrMenu ) %> <% '从这开始读数据 set rs = Server.CreateObject("ADODB.Recordset") strSQL="Select * From web_job Where mn_id=" & strCurrMenu & " " & strQuery & " Order by j_create Desc" rs.open strSQL,conn,1,1 '分页显示初始化 page=GetVariable("page") if page="" then page=1 else page=Cint(page) end if Section=GetVariable("section") if Section="" then Section=1 else Section=Cint(Section) end if '变量赋值 intPageSize=6 '每页显示记录数 intSectionSize=5 '多少页为一段,像GOOGLE一样 PrevSectionText="7" '上一段的链接文字 NextSectionText="8" '下一段的链接文字 PrevPageText="3" '上页的链接文字 NextPageText="4" '下页的链接文字 strPageUrl="?t=" rs.pagesize=intPageSize intCount=rs.RecordCount intPageCount=rs.pagecount intSectionCount=(intPageCount - 1) \ intSectionSize + 1 if intCount>0 then rs.AbsolutePage=page else response.Write("Cant Not Found.") end if %> <% '开始输出最新新闻 for i=1 to intPageSize if rs.eof then exit For JobID=rs("id") if i mod 2=0 then strColor="#ACCDFF" else strColor="#FF9900" end if %> <% rs.movenext next %>
 
<%=i%>.<%=trim(rs("j_title"))%>
<% if showExpires<>"none" then%> Time Limit: <%=trim(rs("j_expires"))%>
<%end if%> <% if showAddress<>"none" then%> Address: <%=trim(rs("j_addr"))%>
<%end if%> <% if showCount<>"none" then%> Amount: <%=trim(rs("j_count"))%>
<%end if%> <% if showPay<>"none" then%> laborage: <%=trim(rs("j_pay"))%> <%end if%>
<% if showDetail<>"none" then%> Particular infomation .. <%end if%>
 

<%=Page%>/<%=intPageCount%>, <% '计算每一段的开始页 intStarPage=(Section-2) * intSectionSize + 1 '前一段 if Section<=1 then response.Write(PrevSectionText & " ") else response.Write("" & PrevSectionText & " ") end if '显示页码列表 response.Write("page ") intStarPage=(Section-1) * intSectionSize + 1 for p=intStarPage to intStarPage + intSectionSize - 1 if p > intPageCount then exit for if p=page then response.Write("[" & p & "] ") else response.Write("" & p & " ") end if next '后一段 intStarPage=(Section) * intSectionSize + 1 if Section>=intSectionCount then response.Write(" " & NextSectionText) else response.Write(" " & NextSectionText & " ") end if %>  
 
 
<% '开始输出分类 strSQL="Select top 8 id,j_title From web_job Where mn_id=" & strCurrMenu & " " & strQuery & " Order by j_create Desc" Set rsClass=Server.CreateObject("ADODB.RecordSet") rsClass.open strSQL,conn,1,1 ClassCount=rsClass.recordcount if ClassCount<=0 then response.Write("Cant Not Found.") for i=1 to ClassCount %> <% rsClass.movenext next %>
  • &classname=⑨thispage⑨"><%=trim(rsClass("j_title"))%>
     
    Add:Suite 5F, 988 Changning Road Shanghai, China 200051
    Phone: (86-21) 5273 8396 Fax: (86-21) 5273 8395
    Copyright?2006-2007 EASEN INTERNATIONAL CO.,LTD. All Rights Reserved.
    Last updated on: