manager.asp

本系统采用ASP作为开发环境

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!-- #include file="../../Conn/conn.asp" -->
<% 
sql="insert into tb_Log(Name,Content,IssueDate) values('"&session("Admin")&_
 "','进行管理员资料查看','"&Now()&"')"
rs.open sql,conn
set rs=nothing
conn.close
set conn=nothing
%>
<table width="470" height="420" border="0" align="center" cellpadding="0" cellspacing="0"> 
  <tr> 
    <td valign="top"><table width="460" height="60" border="0" align="center" cellpadding="2" cellspacing="2"> 
        <tr> 
          <td colspan="4">&nbsp;</td> 
        </tr> 
        <tr bgcolor="#214994"> 
          <td width="40" height="20"><div align="center" class="wenbenkuang style6">ID</div></td> 
          <td width="81" height="20"><div align="center" class="wenbenkuang style6">管理员名称</div></td> 
          <td width="288" height="20"><div align="center" class="wenbenkuang style6">管理员类型（可操作项目的名称）</div></td> 
          <td width="91" height="20"><div align="center" class="wenbenkuang style6">添加时间</div></td> 
        </tr> 
<!-- #include file="../../Conn/conn.asp" --> 
<%
rs.Pagesize=40
pages=cInt(Request.Querystring("page"))
If pages=0 Then pages=1 End If 
if Request.Form("name")="" Then
	sql="select * from tb_Manager"
End if 
rs.open sql,conn,1,3
If Not rs.Eof Or Not rs.Bof Then 
	rs.Absolutepage=CInt(pages)
	row=0
	While Not rs.Eof And row<rs.Pagesize 
%> 
			<tr> 
			  <td class="wenbenkuang"><div align="center"><%=rs("ID")%></div></td> 
			  <td class="wenbenkuang"><div align="center"><%=rs("Name")%></div></td> 
			  <td class="wenbenkuang"><div align="center"><%=rs("Type")%></div></td> 
			  <td class="wenbenkuang"><div align="center"><%=rs("IssueDate")%></div></td> 
			</tr> 
	<% 
			rs.MoveNext
			row=row+1
		Wend 
	%> 
		  </table></td> 
	  </tr> 
	  <% If pages=1 Then %> 
		  <% If pages<>rs.PageCount Then %> 
		  <tr> 
			<td  align="right"> <a href="Manager.asp?action=See&page=<%=(pages+1)%>">下一页</a> <a href="Manager.asp?action=See&page=<%=(rs.PageCount)%>">最后一页</a> </td> 
		  </tr> 
		  <% End If %> 
	  <% Else%> 
		  <% If pages<rs.PageCount Then %> 
		  <tr> 
			<td  align="right"> <a href="Manager.asp?action=See&page=1">第一页</a> <a href="Manager.asp?action=See&page=<%=(pages-1)%>">上一页</a> <a href="Manager.asp?action=See&page=<%=(pages+1)%>">下一页</a> <a href="Manager.asp?action=See&page=<%=(rs.PageCount)%>">最后一页</a> </td> 
		  </tr> 
		  <% Else %> 
		  <tr> 
			<td  align="right"> <a href="Manager.asp?action=See&page=1">第一页</a> <a href="Manager.asp?action=See&page=<%=(pages-1)%>">上一页</a> </td> 
		  </tr> 
		  <% End If %> 
	  <% 	
	End If
	Set rs=Nothing
	conn.Close
	Set conn=Nothing
End If 
%> 
</table>