<!--#include file="inc_const.asp"-->
<%response.expires=0
Response.CacheControl = "Private"
application.lock

set cschat=server.createobject("ffcschat.cssbchat")
my_level=cschat.getLevel(Session,Application(ConstStr & "_user_list"),Application(ConstStr & "_room_list"))
set cschat=nothing
mod_flag=0
del_flag=0
if my_level-application( ConstStr & "_l_modact")>=0 then mod_flag=1
if my_level-application( ConstStr & "_superlevel")=0 then del_flag=1
Set Conn=Server.CreateObject("ADODB.Connection")
conn.open Application( ConstStr & "_connstr")

application.unlock

dim rootRs
Set rootRs=Server.CreateObject("ADODB.RecordSet")
sql="select * from action"
pagesize=50
findkey=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%>
<META content="text/html; charset=gb2312" http-equiv=content-type>
<link rel="stylesheet" type="text/css" href="chat.css">
<style>td{text-align:left;}</style>
<body style="background-color:EAF2FF;color:112233;scrollbar-Base-Color: #b0d8ff;SCROLLBAR-DARKSHADOW-COLOR:#b0d8ff;SCROLLBAR-arrow-COLOR:#336699;SCROLLBAR-TRACK-COLOR: EAF2FF;SCROLLBAR-3DLIGHT-COLOR: #b0d8ff;SCROLLBAR-SHADOW-COLOR: #336699;SCROLLBAR-HIGHLIGHT-COLOR: #b0d8ff;" leftmargin=3 topmargin=3>
<table cellspacing=0 cellpadding=0 align=center width=100% height=100%><script src="showad.asp?id=1"></script><tr><td valign=center>
<table align=center width=90% cellspacing=0 cellpadding=0 border=1 BORDERCOLORLIGHT=#000000 BORDERCOLORDARK=#ffffff>
 <form action="allact.asp" method="post"><tr><td class=navy2 colspan=4><center><b>动作大全</b></td>
 <td colspan=4 class=navy2><center><input type="text" name="findkey" size=6 maxlength=20>
 <input class=navy1 type="submit" name="cmdYes" value="查找动作" title="输入字符串然后查寻"></td></tr></form>
 <%If rootRs.Bof OR rootRs.Eof Then%><tr><td colspan=6><center><font color=red>没有找到任何库存动作。
 <%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%>
   <script>function show(n,a,all,self,other,mod,del){document.write("<tr><td>/"+n+"</a></td><td>"+a+"</a></td><td>"+all+"</a></td><td>"+self+"</a></td><td>"+other+"</a>");
   if (mod) document.write("<td><a href='actmod.asp?name="+n+"'>修改</a></td>");if (del) document.write("<td><a onclick=\"return confirm('动作删除不可恢复，请确认！')\" href='actdel.asp?name="+n+"'>删除</a></td>");}</script>
     <form action="allact.asp?findkey=<%=findkey%>" method="post">
     <tr><td colspan=9 nowrap><center>
     <font color=990000>第<%=page%>页 共<%=rootRs.pagecount%>页</font>
     <a href="allact.asp?page=<%=(page-1)%>&findkey=<%=findkey%>">上一页</a>
     <a href="allact.asp?page=<%=(page+1)%>&findkey=<%=findkey%>">下一页</a>
     转到 <input type="text" name="page" size=6 maxlength=20> 页
     <input class=navy1 type="submit" name="cmdGo" value="GO!" title="转到其他页">
     </td></tr></form>
     <tr><td class=navy1 nowrap><center>使用格式</td><td class=navy1 nowrap><center>名　称</td>
     <td class=navy1><center>对 大 家</td><td class=navy1><center>对 自 己</td><td class=navy1><center>对 别 人</td><%if mod_flag then%><td class=navy1 nowrap>修改</td><%end if%><%if del_flag then%><td class=navy1 nowrap>删除</td><%end if%>
     <script><%Do While Not rootRs.Eof AND RowCount>0
       response.write "show('"&act_name&"','"&alias&"','"&toall&"','"&toself&"','"&toother&"',"&mod_flag&","&del_flag&");"
       rootRs.MoveNext
       RowCount=RowCount-1
     Loop%></script><tr><td class=navy1><center>使用格式</td><td class=navy1><center>名　称</td>
     <td class=navy1><center>对 大 家</td><td class=navy1><center>对 自 己</td><td class=navy1><center>对 别 人</td><%if mod_flag then%><td class=navy1>修改</td><%end if%><%if del_flag then%><td class=navy1 nowrap>删除</td><%end if%>
   <%End If
   If rootRs.pagecount>1 then%>
     <tr><td colspan=9><center><b>分页：</b>
     <%For i=1 to rootRs.pagecount
       if (i-page)<>0 then%><a href='allact.asp?page=<%=i%>&findkey=<%=findkey%>'>[<%=i%>] </a>
       <%else%>(<%=i%>)
       <%end if
     Next
   end if
 End if
rootRs.close
Set rootRs=nothing
conn.close
Set conn=nothing%>
</table><br><center>[<a href='javascript:history.go(-1)'>后退</a>]</table></body></html>

















