?? staff_manage.asp
字號:
<!-- #include file="Include/Chk.asp" -->
<!-- #include file="Conn.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title></title>
<link href="Images/default.css" rel="stylesheet" type="text/css" />
</head>
<body>
<form id="form1" name="form1" method="post" action="">
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td height="24" colspan="4"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="88" height="24" align="center" valign="bottom" class="AddGoods"><table width="88" height="22" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="middle" background="Images/t_2.gif"><a href="#" class="AddGoods">管理證書信息</a></td>
</tr>
</table>
<a href="#"></a></td>
<td width="1" align="center" valign="middle"></td>
<td width="82" height="24" align="center" valign="middle" background="Images/t_1.gif" class="AddGoods"><a href="Staff_Add.asp">添加證書信息</a></td>
<td align="right" valign="middle"><input type="button" name="Submit" value="打 印" onclick="javascript:window.print()" /></td>
</tr>
</table></td>
</tr>
<tr>
<td height="5" colspan="4" background="Images/topnav.gif"></td>
</tr>
<tr>
<td height="5" colspan="4"></td>
</tr>
<tr>
<td width="14%" height="25" align="center" valign="middle" bgcolor="#efefef">證書編號</td>
<td width="24%" align="center" valign="middle" bgcolor="#efefef">學員姓名</td>
<td width="25%" align="center" valign="middle" bgcolor="#efefef">證書名稱</td>
<td width="37%" height="25" align="center" valign="middle" bgcolor="#efefef">相關操作</td>
</tr>
<%
SQL="Select * from Staff order by id"
set rs=server.createobject("Adodb.Recordset")
rs.open SQL,conn,1,1
dim i,bgc
if not rs.eof then
pages = 20 '定義每頁顯示的記錄數
rs.pageSize = pages '定義每頁顯示的記錄數
allPages = rs.pageCount'計算一共能分多少頁
page = Request.QueryString("page")'通過瀏覽器傳遞的頁數
'if語句屬于基本的排錯處理
if isEmpty(page) or Cint(page) < 1 then
page = 1
elseif Cint(page) > allPages then
page = allPages
end if
rs.AbsolutePage = page
i=0
Do while not rs.eof and pages > 0
i=i+1
if i mod 2 = 0 then
bgc="#efefef"
else
bgc="#FFFFFF"
end if
%>
<tr bgcolor="<%=bgc%>">
<td height="25" align="center" valign="middle"><%=Trim(rs("bid"))%></td>
<td align="center" valign="middle"><%=Trim(rs("name"))%></td>
<td align="center" valign="middle"><%=Trim(rs("cname"))%></td>
<td height="25" align="center" valign="middle"><a href="Staff_View.asp?id=<%=Trim(rs("id"))%>" target="_blank">查看</a> | <a href="Staff_Edit.asp?id=<%=Trim(rs("id"))%>">修改</a> | <a href="Staff_Del.asp?id=<%=Trim(rs("id"))%>" ONCLICK="javascript:return confirm('提示：您真的要刪除該證書記錄嗎？')">刪除</a></td>
</tr>
<%
pages = pages - 1
rs.MoveNext
Loop
End if
rs.Close
Set rs = Nothing
%>
<tr>
<td height="25" colspan="4" align="right" valign="middle">分頁：
<%
For i =1 to allpages
txt = ""
txt = txt & "<a href=" & "?" & "page=" & i & ">"
if i = Cint(Page) then txt = txt & "<font color='bb0000'>"
txt = txt & (i)
if i = Cint(Page) then txt = txt & "</font>"
txt = txt & "</a> "
Response.Write(txt)
Next
%></td>
</tr>
</table>
</form>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -