您现在所在的位置:首页>>小学辅导
重置筛选结果    按条件筛选出 1403 课程结果
  • 学 科:  <% set rso=server.CreateObject("adodb.recordset") sql="select distinct xueke from teacher" rso.open sql,conn,1,1 if not rso.eof then do while not rso.eof %> "><%=rso("xueke")%> <% rso.movenext loop rso.close set rso=nothing end if %>
  • 年 级:  <% set rso=server.CreateObject("adodb.recordset") sql="select distinct sknb from teacher" rso.open sql,conn,1,1 if not rso.eof then do while not rso.eof %> "><%=rso("sknb")%> <% rso.movenext loop rso.close set rso=nothing end if %>
  • 性 别:  男老师 女老师
<% if request("action")="" then sql="select * from teacher" end if if request("action")="xueke" then sql="select * from teacher where xueke='"&request.QueryString("xueke")&"'" end if if request("action")="sknb" then sql="select * from teacher where sknb='"&request.QueryString("sknb")&"'" end if if request("action")="sex" then sql="select * from teacher where sex="&request.QueryString("sex") end if set rs=server.CreateObject("adodb.recordset") rs.open sql,conn,1,1 if not rs.eof then rs.PageSize =4 '每页记录条数 iCount=rs.RecordCount '记录总数 iPageSize=rs.PageSize maxpage=rs.PageCount page=request("page") if Not IsNumeric(page) or page="" then page=1 else page=cint(page) end if if page<1 then page=1 elseif page>maxpage then page=maxpage end if rs.AbsolutePage=Page if page=maxpage then x=iCount-(maxpage-1)*iPageSize else x=iPageSize end if %> <% For i=1 To x %>
">" width="142" height="142" />
"><%=rs("title")%>
授课学科:<%=rs("xueke")%>
授课年部:<%=rs("sknb")%>
教师标签:<%=rs("jsbq")%>。
教师理念:<%=rs("jsln")%>
<% rs.MoveNext next rs.Close Set rs=Nothing %> <% call PageControl(iCount,maxpage,page,"","") Sub PageControl(iCount,pagecount,page,table_style,font_style) '生成上一页下一页链接 Dim query, a, x, temp action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME") query = Split(Request.ServerVariables("QUERY_STRING"), "&") For Each x In query a = Split(x, "=") If StrComp(a(0), "page", vbTextCompare) <> 0 Then temp = temp & a(0) & "=" & a(1) & "&" End If Next Response.Write("
") Response.Write("
" & vbCrLf ) Response.Write(font_style & vbCrLf ) if page<=1 then Response.Write ("[首 页] " & vbCrLf) Response.Write ("[上一页] " & vbCrLf) else Response.Write("[首 页] " & vbCrLf) Response.Write("[上一页] " & vbCrLf) end if if page>=pagecount then Response.Write ("[下一页] " & vbCrLf) Response.Write ("[尾 页] " & vbCrLf) else Response.Write("[下一页] " & vbCrLf) Response.Write("[尾 页] " & vbCrLf) end if Response.Write(" [页次:" & page & "/" & pageCount & "页]" & vbCrLf) Response.Write(" [共有" & iCount & "篇]" & vbCrLf) Response.Write("" & vbCrLf ) Response.Write("
" & vbCrLf ) Response.Write("
" & vbCrLf ) End Sub %> <% else response.Write"暂无数据" end if %>

    <%=jpjs%>

    <%=yxxs%>