📄 stu_manage.asp
字号:
<!-- #include file="Include/Chk.asp" -->
<!-- #include file="Include/Conn.asp" -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title></title>
<link href="Images/main.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="100%" border="0" cellpadding="5" cellspacing="1">
<tr>
<td height="25" colspan="5" bgcolor="#3385D1" class="window-0"><table width="100%" border="0" cellpadding="0" cellspacing="０">
<tr>
<td width="19%"> 学员管理</td>
<td width="81%" align="center"><a href="Stu_Add.asp" class="bt2">添加新学员</a></td>
</tr>
</table></td>
</tr>
<tr>
<td width="20%" align="center" valign="middle" bgcolor="#efefef" class="font1">姓名</td>
<td width="20%" align="center" valign="middle" bgcolor="#efefef" class="font1">单位</td>
<td width="20%" align="center" valign="middle" bgcolor="#efefef" class="font1">用户名</td>
<td width="20%" align="center" valign="middle" bgcolor="#efefef" class="font1">密码</td>
<td width="20%" height="25" align="center" valign="middle" bgcolor="#efefef" class="font1">相关操作</td>
</tr>
<%
sql = "select * from Stu order by id desc"
Set rs=Server.Createobject("ADODB.RECORDSET")
rs.Open sql, conn, 1, 1
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
Do while not rs.eof and pages > 0 %>
<tr>
<td width="20%" align="left" valign="middle" bgcolor="#efefef" class="link2"><%=rs("name")%></td>
<td width="20%" align="center" valign="middle" bgcolor="#efefef" class="link2"><%=rs("dw")%></td>
<td width="20%" align="center" valign="middle" bgcolor="#efefef" class="link2"><%=rs("username")%></td>
<td width="20%" align="center" valign="middle" bgcolor="#efefef" class="link2"><%=rs("password")%></td>
<td width="20%" height="25" align="center" valign="middle" bgcolor="#efefef" class="link2"><a href="Stu_Edit.asp?id=<%=rs("id")%>">修改</a> | <a href="Stu_Del.asp?id=<%=rs("id")%>">删除</a></td>
</tr>
<% pages = pages - 1
rs.MoveNext
Loop
else
Response.Write("<font color='Red'>数据库暂无内容！</font>")
End if
rs.Close
Set rs = Nothing
%>
<tr>
<td height="25" colspan="5" align="right" bgcolor="#efefef">
<%
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>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -