<!--#include file="inc_const.asp"-->
<%
Set Conn=Server.CreateObject("ADODB.Connection") 
conn.open Application( ConstStr & "_connstr")
dim rootRs
Set rootRs=Server.CreateObject("ADODB.RecordSet")
sql="select * from autoact"
pagesize=50
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=7>
<table cellspacing=0 cellpadding=0 align=center width=100% height=100%><tr><td valign=center>
<table align=center width=90% cellspacing=0 cellpadding=0 border=1 BORDERCOLORLIGHT=#000000 BORDERCOLORDARK=#ffffff>
 <td colspan=3 class=navy2><center><b>机器人语言集锦</b></td></tr>
 <%If rootRs.Bof OR rootRs.Eof Then%><tr><td colspan=3><center><font color=red>她目前没有任何语言。
 <%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%>
     <form action="autoact.asp" method="post">
     <tr><td colspan=3 nowrap><center>
     <font color=990000>第<%=page%>页 共<%=rootRs.pagecount%>页</font>
     <a href="autoact.asp?page=<%=(page-1)%>">上一页</a>
     <a href="autoact.asp?page=<%=(page+1)%>">下一页</a>
     <a href='automod.asp'>添加</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 nowrap>修改</td>
     <%Do While Not rootRs.Eof AND RowCount>0%>
       <tr><td><%=rootRs("ID")%></td><td><%=rootRS("text_body")%></a></td>
       <td><a href="automod.asp?ID=<%=rootRs("ID")%>">修改</a></td>
       <%rootRs.MoveNext
       RowCount=RowCount-1
     Loop%><tr><td class=navy1 nowrap><center>编号</td><td class=navy1 nowrap><center>内容</td><td class=navy1 nowrap>修改</td>
   <%End If
   If rootRs.pagecount>1 then%>
     <tr><td colspan=3><center><b>分页：</b>
     <%For i=1 to rootRs.pagecount
       if (i-page)<>0 then%><a href='autoact.asp?page=<%=i%>'>[<%=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='automod.asp'>添加</a>]  [<a href='javascript:history.go(-1)'>后退</a>]</table></body></html>




