<% mypage=request("page") If mypage="" then mypage=1 end if '-----------------------查找条件 tsql="" num=request.QueryString("num") km=request("km") skdq=request("skdq") xx=request("xx") sex=request("sex") xl=request("xl") check=request("rz") zy=request("zy") if num<>"" then tsql=tsql & " and num ='"&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 like '%"&xl&"%' " if check<>"" then tsql=tsql & " and check ="&check & " " if zy<>"" then tsql=tsql & " and zy like '%"&zy&"%' " '----------------------- if tsql <>"" then sql="select * from tc where ((km<>'') or (km2<>'')) and name<>'' and Photo<>'tea_uppic/UploadFiles/None.png' and islock=false "& tsql &" order by Regtime desc,id desc" else sql="select * from tc where ((km<>'') or (km2<>'')) and name<>'' and Photo<>'tea_uppic/UploadFiles/None.png' and islock=false 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=50 g_count=rsjj.recordcount maxpages=cint(rsjj.pagecount) maxrecs=cint(rsjj.pagesize) rsjj.absolutepage=mypage howmanyrecs=0 rec = 0 '=== %>

<%=City_jiaojiao_Namee%>所有教员照片展示

教员编号 专业: 科目: 金牌教员
<% if maxpages > 1 then if Request.QueryString("page") = "" then pge = 1 else pge = Request.QueryString("page") end if scriptname=request.servervariables("script_name") FileName="T_photo.asp?num="& num &"&km="& km &"&skdq="& skdq &"&xx="& xx &"&sex="& sex &"&xl="& xl&"&zy="& zy&"&rz="& check&"&" '分页参数初始化。 call SubPage(FileName) '调用分页程序。 Response.Write ">>>共" & g_count & "条教员信息 共" & maxpages & "页 每页" & 50 & "条" 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 %>
<% if maxpages > 1 then if Request.QueryString("page") = "" then pge = 1 else pge = Request.QueryString("page") end if scriptname=request.servervariables("script_name") FileName="T_photo.asp?num="& num &"&km="& km &"&skdq="& skdq &"&xx="& xx &"&sex="& sex &"&xl="& xl&"&zy="& zy&"&rz="& check&"&" '分页参数初始化。 call SubPage(FileName) '调用分页程序。 Response.Write ">>>共" & g_count & "条教员信息 共" & maxpages & "页 每页" & 50 & "条" for counter=1 to maxpages if counter <> cint(pge) then ref=" " & counter & " " response.write ref & " " Else Response.Write "" & counter & " " End if next End if %>