📄 showstudent.asp

📁 使用asp+sqlserver2000编写的学生管理系统

💻 ASP

字号:

<!--#include file="showonepage.asp"-->
<!--#include file="inc\adovbs.inc"-->
<!--#include file="inc\conn.inc"-->
<link href="main.css" type="text/css" rel="stylesheet">
<script  src="control.js"  language="JavaScript">   
</script>
<%
dim cmd,rs
set rs=Server.CreateObject("adodb.recordset")
str="select xs.xh 学号,xm 姓名,性别=case when xb=1 then '男' when xb=0 then '女' end, cssj 出生时间,zy 专业,zxf 总学分,bz 备注 from xs"
rs.cursortype=adOpenStatic
rs.locktype=1
rs.pagesize=10
rs.open  str,conn
if rs.eof=false then
page=cint(request("page"))
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
ShowOnePage "学生基本信息",rs,page
end if
%>
<html>
<body>
<form name="form1" method="post" action="showStudent.asp">
<p align="center">
<% 
 if page<>1 then
  response.Write("<a href=showStudent.asp?page=1>第一页</a>")
  response.Write("&nbsp;&nbsp;&nbsp;")
  response.Write("<a href=showStudent.asp?page="&(page-1)&">上一个</a>")
 end if
 if page<>rs.pagecount then
  response.Write("&nbsp;&nbsp;&nbsp;")
  response.Write("<a href=showStudent.asp?page="&(page+1)&">下一个</a>")
  response.Write("&nbsp;&nbsp;&nbsp;")
  response.Write("<a href=showStudent.asp?page="&(rs.pagecount)&">最后一个</a>")
 end if
 %>
  请输入页码：
  <label>
  <input name="page" type="text" id="page" size="6">
  </label>
  页码：<font color="#FF0000"><%= page %>/<%= rs.pagecount %></font>
  </p>
</form>
<% rs.close
conn.close
set rs=nothing
set conn=nothing %>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -