<%dim rootRs call get_guests myid=Session("myid") if myid="" then my_level=0 else my_level=guests(myid,4) if my_level<(-1*guests(myid,9)) then my_level=-1*guests(myid,9) end if Set rootRs=Server.CreateObject("ADODB.RecordSet") pagesize=20 findkey=trdb(request("findkey")) towho=trdb(request("towho")) if towho<>"toall" and towho<>"toself" then towho="toother" sql="select * from action" if findkey<>"" then sql=sql&" where (act_name like '%"&findkey&"%' or alias like '%"&findkey&"%' or toother like '%"&findkey&"%')" end if rootRs.Open sql,conn,1,1%>

<%If rootRs.Bof OR rootRs.Eof Then%> <%else rootRs.pagesize=pagesize page=Request("page") if not IsNumeric(page) or page="" then page=1 if (page-1)<0 then page=rootRs.pagecount elseif (page-rootRs.pagecount)>0 then page=1 end if rootRs.AbsolutePage=page RowCount =rootRs.pagesize If Not rootRs.Eof Then%> <%if my_level>5 then%><%end if%> <%Do While Not rootRs.Eof AND RowCount>0%> <%rootRs.MoveNext RowCount=RowCount-1 Loop End If If rootRs.pagecount>1 then%> 没有找到任何库存动作。 后退 回到名单 酷库添加 酷库大全 别人 大家自己对象   名称 动作内容 分页： <%For i=1 to rootRs.pagecount if (i-page)<>0 then%><%=i%> <%else%>[<%=i%>] <%end if Next end if End if rootRs.close Set rootRs=nothing conn.close Set conn=nothing%>