<% owen1=trim(request("owen1")) owen2=trim(request("owen2")) c= trim(request("c")) %>
 
 
 
 
当前位置:首页>> 猎头服务 >> <% if owen2="_Guest" then response.Write("客户信息") else response.Write("译员信息") end if %>
 
<% set rs_fy=server.createobject("adodb.recordset") sqltext4="select * from [Siogon_Class] where [Category]='_StudyService' and TopID = 0 and IsIndex=1 and link=0 order by num" rs_fy.open sqltext4,conn,1,1 'Response.Write(rs_fy.RecordCount) : Response.end() For j = 1 To rs_fy.RecordCount If rs_fy.Eof or rs_fy.bof Then Exit For if owen3<>"_Success" Then Response.Write ""&VbCrLf Else Response.Write ""&VbCrLf End If rs_fy.movenext Next rs_fy.close %>
   
 
   
 
 
 
 
 
   
 
<% Dim oDbPager iPageSize = 16 Set oDbPager = New Kin_db_Pager oDbPager.Connect(conn) oDbPager.DbType = "ACCESS" oDbPager.TableName = "Siogon_article" oDbPager.Fields = "*" oDbPager.PKey = "id" oDbPager.OrderBy = "id DESC" oDbPager.AddCondition "[Category]='"&owen2&"'" oDbPager.AddCondition " instr([classid"&c&"],'"&owen1&"')>0 " 'Response.Write(oDbPager.GetSql()) : Response.end() oDbPager.PageSize = iPageSize oDbPager.Page = Request.QueryString(oDbPager.PageParam) Set rs = oDbPager.Recordset oDbPager.PagerSize = 3 sPageInfo = oDbPager.PageInfo sPager = oDbPager.Pager sJumpPage = oDbPager.JumpPage if rs.eof or rs.bof then response.write("

还没有任何信息!

") for i=1 to iPageSize if not rs.eof then %> <% rs.movenext else exit for end if next %> <% rs.close set rs=nothing %>
"><%= RS("TITLE") %>[<%= RS("infotime") %>]    (阅读<%= RS("hits") %>次)
<%=sPageInfo%><%= sPager %> 下拉跳转:<%=sJumpPage%> 页