?? manager.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"> </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>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -