<% mypage=request("page") If mypage="" then mypage=1 end if '--------------------------------查找条件 tsql="" num=request.QueryString("num") km=request("km") dq=request("dq") sex=request("sex") sex2=request("sex2") zt=request("zt") if num<>"" then tsql=tsql & " and num ='"&num&"' " if km<>"" then tsql=tsql & " and km like '%"&km&"%' " if dq<>"" then tsql=tsql & " and dq like '%"&dq&"%' " 'and dq = '"&dq&"' " if sex<>"" then tsql=tsql & " and sex = '"&sex&"' " if sex2<>"" then tsql=tsql & " and sex2 ="&sex2 & " " if zt<>"" then tsql=tsql & " and IsOK ="&zt & " " '-------------------------------- if tsql <>"" then sql="select * from st where tel1 <>'' and islock=false "& tsql &" order by zhiding desc,Regtime desc,id desc" else sql="select * from st where tel1 <>'' and islock=false order by zhiding desc,Regtime desc,id desc" end if rsjj.open sql,conn,1,1 '=== 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 '=== %>

<%=webname%>学员信息库

请家教
做家教
学员编号: 科目: 城区: 学员性别: 教员性别:
<% if maxpages > 1 then if Request.QueryString("page") = "" then pge = 1 else pge = Request.QueryString("page") end if scriptname=request.servervariables("script_name") FileName="../Student.asp?num="& num &"&km="& km &"&dq="& dq &"&sex="& sex &"&sex2="& sex2&"&zt="& zt&"&" '分页参数初始化。 call SubPage(FileName) '调用分页程序。 Response.Write ">>>共" & g_count & "条教员信息 共" & maxpages & "页 每页" & 10 & "条" if maxpages>40 then maxpages2=40 else maxpages2=maxpages end if for counter=1 to maxpages2 '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 %>
<% If rsjj("zhiding")="1" Then %> <% End If %><%=rsjj("num")%> <%=rsjj("nj")%>(<%=rsjj("sex")%>)
<%=rsjj("km")%>
[<%select case rsjj("sex2") case 1 response.Write("女生") case 2 response.Write("男生") case 3 response.Write("男女均可") end select%>]<%=DelTelStr(rsjj("yq"))%> [<%=rsjj("logins")%>]
<%=rsjj("dq")%>
<%= left(rsjj("dq2"),15)%> <% if int(rsjj("x"))<>0 then %>
.html" target="_blank">地图定位<% end if %>
<%IF rsjj("IsOK")="1" then%> 已成功 <%Elseif rsjj("IsOK")="0" then%> 待预约 <%Elseif rsjj("IsOK")="2" then%> 预约中 <%Elseif rsjj("IsOK")="3" then%> 已预约 <%End IF%>
<%=rsjj("Regtime")%>
<% if maxpages > 1 then if Request.QueryString("page") = "" then pge = 1 else pge = Request.QueryString("page") end if scriptname=request.servervariables("script_name") FileName="Student.asp?num="& num &"&km="& km &"&dq="& dq &"&sex="& sex &"&sex2="& sex2&"&zt="& zt&"&" '分页参数初始化。 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 %>