<%application.lock myname=Session("myname") set rsparam=conn.execute("select * from param") myid=Session("myid") call get_guests mod_flag=0 del_flag=0 if myname="" or myid="" then elseif myname<>guests(myid,0) or Session("mytemp")<>guests(myid,1) then else if guests(myid,4)-rsparam("lmodact")>=0 then mod_flag=1 if guests(myid,4)=rsparam("superlevel") then del_flag=1 end if application.unlock dim rootRs Set rootRs=Server.CreateObject("ADODB.RecordSet") sql="select * from action" pagesize=50 findkey=trdb(request("findkey")) if findkey<>"" then sql=sql&" where (act_name like '%"&findkey&"%' or alias like '%"&findkey&"%' or toall like '%"&findkey&"%' or toself like '%"&findkey&"%' or toother like '%"&findkey&"%')" end if rootRs.Open sql,conn,1,1%>

<%If rootRs.Bof OR rootRs.Eof Then%><%if mod_flag then%><%end if%><%if del_flag then%><%end if%> <%if mod_flag then%><%end if%><%if del_flag then%><%end if%> <%End If If rootRs.pagecount>1 then%> 动作大全 没有找到任何库存动作。 <%else set act_name=rootrs("act_name") set alias=rootrs("alias") set toall=rootrs("toall") set toself=rootrs("toself") set toother=rootrs("toother") 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%> 第<%=page%>页 共<%=rootRs.pagecount%>页 上一页 下一页 转到 页 使用格式 名　称 对 大 家 对 自 己 对 别 人 修改 删除 使用格式 名　称 对 大 家 对 自 己 对 别 人 修改 删除 分页： <%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%> [后退]