<% Kid = Request("Kid") tsql = "select Kname from KC where Kid=" & Kid Rsjj.open tsql,conn,1,1 Gname = rsjj("Kname") Rsjj.close %> <%=City_CN_Name%><%= Gname %>家教,<%=City_CN_Name%><%= Gname %>家教网 【<%=webname%>】 <% mypage=request("page") If mypage="" then mypage=1 end if '-----------------------查找条件 tsql="" 'num=request("num") num=request.QueryString("num") km=request("km") skdq=request("skdq") xx=request("xx") sex=request("sex") xl=request("xl") check=request("rz") if num<>"" then tsql=tsql & " and num like '%"&num&"%' " if km<>"" then tsql=tsql & " and (km like '%"&km&"%' or km2 like '%"& km &"%' ) " if skdq<>"" then tsql=tsql & " and skdq like '%"&skdq&"%' " if xx<>"" then tsql=tsql & " and xx like '%"&xx&"%' " if sex<>"" then tsql=tsql & " and sex = '"&sex&"' " if xl<>"" then tsql=tsql & " and xl = '"&xl&"' " if check<>"" then tsql=tsql & " and check ="&check & " " '----------------------- if tsql <>"" then sql="select * from tc where ((km<>'') or (km2<>'')) and name<>'' and islock=false "& tsql &" order by Regtime desc,id desc" else sql="select * from tc where ((km<>'') or (km2<>'')) and name<>'' and islock=false and (km like '%"&Gname&"%' or km2 like '%"& Gname &"%' ) order by Regtime desc,id desc" end if rsjj.open sql,conn,1,1 if rsjj.recordcount=0 then response.Write("") response.end end if '=== rsjj.pagesize=10 g_count=rsjj.recordcount maxpages=cint(rsjj.pagecount) maxrecs=cint(rsjj.pagesize) if(not rsjj.bof and not rsjj.eof ) then rsjj.absolutepage=mypage end if howmanyrecs=0 rec = 0 '=== %>

<%=City_CN_Name%><%= Gname %>家教网

ID 金牌教员
<% if maxpages > 1 then if Request.QueryString("page") = "" then pge = 1 else pge = Request.QueryString("page") end if scriptname=request.servervariables("script_name") FileName="TeaSortByKid.asp?num="& num &"&km="& km &"&skdq="& skdq &"&xx="& xx &"&sex="& sex &"&xl="& xl&"&rz="& check & "&Kid=" & Kid&"&" '分页参数初始化。 call SubPage(FileName) '调用分页程序。 Response.Write ">>>共" & g_count & "条教员信息 共" & maxpages & "页 每页" & 10 & "条" for counter=1 to maxpages if counter <> cint(pge) then ref=" [" & counter & "] " response.write ref & " " Else Response.Write "" & counter & " " End if next End if %>
<% color=0 do until rsjj.eof or rsjj.bof or rec=10 color=color+1 %> bgColor=#d7ecff<% Else %>bgcolor="#eef7ff"<% End If %> onMouseOver="e=this.style.backgroundColor;this.style.background='#FFFFCC'" onmouseout="this.style.backgroundColor=e;"> <% rsjj.movenext rec=rec+1 loop rsjj.close %>
<%=rsjj("num")%>
<%=left(trim(rsjj("name")),1)%>教员.(<%=rsjj("sex")%>)
<%if rsjj("Check")=1 then%>
金牌教员<%end if %>
<%=rsjj("xx")%>
<%=rsjj("zy")%>
<%=rsjj("xl")%>
<%=rsjj("km")%> <%=rsjj("km2")%> <%=left(DelTelStr(rsjj("tc")),100)%><% if len(rsjj("tc"))>100 then %>...<% end if %><% if rsjj("Photo")<>"tea_uppic/UploadFiles/None.png" then %> " target="_blank" title="<%=left(trim(rsjj("name")),1)%>教员.<%=rsjj("xx")%> [编号:<%=rsjj("num")%>]"> [查看照片]<%end if%> <%=rsjj("Regtime")%> <%if FormatDateTime(rsjj("Regtime"),2)=FormatDateTime(Now,2) then%>
今日登记信息<%end if%>
&t_name=<%=left(trim(rsjj("name")),1)%>教员" target="_blank">
<% if maxpages > 1 then if Request.QueryString("page") = "" then pge = 1 else pge = Request.QueryString("page") end if scriptname=request.servervariables("script_name") FileName="TeaSortByKid.asp?num="& num &"&km="& km &"&skdq="& skdq &"&xx="& xx &"&sex="& sex &"&xl="& xl&"&rz="& check & "&Kid=" & Kid&"&" '分页参数初始化。 call SubPage(FileName) '调用分页程序。 Response.Write ">>>共" & g_count & "条教员信息 共" & maxpages & "页 每页" & 10 & "条" for counter=1 to maxpages if counter <> cint(pge) then ref=" [" & counter & "] " response.write ref & " " Else Response.Write "" & counter & " " End if next End if %>