<!--#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
application.unlock

Set Conn=Server.CreateObject("ADODB.Connection") 
conn.open Application(ConstStr & "_connstr")

Set rootRs=Server.CreateObject("ADODB.RecordSet")
pagesize=20
findkey=request("findkey")
towho=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%>
<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>
<SCRIPT language=JavaScript>
function act(a,n,t) {document.write("<tr><td><a href=\"javascript:{parent.input.document.forms[0].saystemp.value='/"+n+"';parent.input.document.forms[0].saystemp.focus();}\">"+a+"</a></td>");
  document.write("<td><a href=\"javascript:{parent.input.document.forms[0].saystemp.value='//"+t+"';parent.input.document.forms[0].saystemp.focus();}\">"+t+"</a></td>");}</script>
<script>document.write("<body style='"+parent.gbt()+"margin:0'>");</script>
<table cellspacing=0 cellpadding=0 height=100% width=100% ><tr><td>
<table align=center width=100% cellspacing=0 cellpadding=0 border=1 BORDERCOLORLIGHT=#000000 BORDERCOLORDARK=#ffffff>
<%If rootRs.Bof OR rootRs.Eof Then%>
  <tr><td colspan=2><center><br><br><font color=red>没有找到任何库存动作。</font><br><br> <a href='javascript:history.go(-1)'>后退</a></td></tr>
<%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%>
    <tr><td colspan=2><center><a href="javascript:parent.showlist()" class="navy1">回到名单</a></td></tr>
    <%if my_level-application(ConstStr & "_l_addact")>=0 then%><tr><td colspan=2><center><a href="#" class="navy1" onclick="javascript:window.open('actadd.asp','actadd','height=500,left=0,resizable=yes,scrollbars=yes');return false">酷库添加<a></td></tr><%end if%>
    <tr><td colspan=2><center><a href="#" class="navy1" onclick="javascript:window.open('allact.asp','actadd','height=500,left=0,resizable=yes,scrollbars=yes');return false">酷库大全<a></td></tr>
    <tr><td colspan=2><center><form action="action.asp" method="post"><select name="towho"><option value="toother">别人</option>
    <option value="toall">大家</option><option value="toself">自己</option></select><font class=navy1>对象</font>
    <tr><td colspan=2><center><input type="text" name="findkey" size=6 maxlength=20>&nbsp;<input class="navy1" type="submit" name="cmdYes" value="搜" title="输入字符串然后查寻" onmouseout="this.style.color='#000000'" onmouseover="this.style.color='#ff0000'">
    </td></tr></form><tr><td>名称</td><td><center>动作内容</td>
    <%Do While Not rootRs.Eof AND RowCount>0%><script>act('<%=rootrs("alias")%>','<%=rootrs("act_name")%>','<%=rootrs(towho)%>')</script>
      <%rootRs.MoveNext
      RowCount=RowCount-1
    Loop
  End If
  If rootRs.pagecount>1 then%>
     <tr><td colspan=5><b>分页：</b>
     <%For i=1 to rootRs.pagecount
       if (i-page)<>0 then%><a href='action.asp?page=<%=i%>&findkey=<%=findkey%>&towho=<%=towho%>'><%=i%> </a>
       <%else%>[<%=i%>] 
       <%end if
     Next
   end if
End if
rootRs.close
Set rootRs=nothing
conn.close
Set conn=nothing%> 
</table></div></div></body></html>

































