showstudent.asp
来自「SQL2000跟课件学习的源代码 分享共同学习」· ASP 代码 · 共 149 行
ASP
149 行
<%@ Language=VBScript %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312">
<LINK href="Css/style.css" rel=stylesheet>
<TITLE>学生信息</TITLE>
<!--#include file="Include/Conn.Inc" -->
<!--#include file="Include/adovbs.inc" -->
</HEAD>
<body bgcolor="ffffff" TOPMARGIN="0" MARGINHEIGHT="0">
<% Const SeleSCount=2
dim SType, SeachValue, pages, Cur_RecordCounts, change, Dele
Dim i, Rs, Sql, SeleType(2), SeleTypeName(2)
SeleType(0) = "学号"
SeleType(1) = "姓名"
SeleType(2) = "班级"
SeleTypeName(0) = "StudentID"
SeleTypeName(1) = "StudentName"
SeleTypeName(2) = "B.ClassName"
pages = Cint(Request.QueryString("Pages"))' 取页数
SType = Trim(Request("SType")) ' 取查询方式
SeachValue = Trim(Request("SeachValue")) ' 取查询值
Set Rs = Server.CreateObject("ADODB.Recordset") '创建Recordset对象
Rs.PageSize=6 '每页6个记录
Rs.CursorType=adOpenStatic
Rs.ActiveConnection = Conn
Sql = "SELECT StudentID, StudentName, Sex, Birthday, A.ClassID, B.ClassName,"
Sql = Sql & " TelePhone, CreditHour FROM Student A, Class B"
Sql = Sql & " where A.ClassID=B.ClassID "
if (SType<>"") and (SeachValue<>"") then
Sql = Sql &" And "&SType&" Like '%"&SeachValue&"%'"
end if
Sql = Sql &" Order By StudentID" ' 动态生成SQL语句
Rs.Open Sql ' 得到数据集
if Not Rs.Eof then
if Pages=0 then ' 分页处理
Pages=1
else
Rs.Move (Pages-1)*Rs.PageSize
end if
'根据PageSize、PageCount属性计算出当前页的记录数
if pages<Rs.PageCount then
Cur_RecordCounts=Rs.PageSize
else
Cur_RecordCounts=Rs.RecordCount-(Pages-1)*Rs.PageSize
end if
end if
if Session("GuestType")>0 then '登录后才能查看%>
<form name="formSearch" method="Post" action="ShowStudent.asp">
<table width="616" border="0" cellpadding="0" bgcolor="#99FFCC">
<tr><td width="53"> </td>
<td width="177" align="center">查询方式：
<select name="SType">
<%for i=0 to SeleSCount
if SType=SeleTypeName(i) then%>
<option Value=<%=SeleTypeName(i)%> selected> <%=SeleType(i)%> </option>
<% Else %>
<option Value=<%=SeleTypeName(i)%>> <%=SeleType(i)%> </option>
<% End if
Next %>
</select> </td>
<td width="186"><input name="SeachValue" type="text" value="<% =SeachValue %>" size="20" maxlength="50"></td>
<td width="228"><input type="submit" name="Search" value="搜索"></td>
</tr>
</table>
</form>
<% end if%>
<table width="615" height="26" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="26"><div align="center"><b><font size="3">学生信息</font></b></div></td>
</tr>
</table>
<table width="615" height="52" border="1" cellpadding="2" cellspacing="0" bordercolor="#6666FF" bgcolor="#fef7d8">
<TBODY>
<TR align="center">
<TD width="92" height="20" align="center"><strong>学号</strong></TD>
<TD width="83" align="center"><strong>姓名</strong></TD>
<TD width="41" align="center"> <strong>性别</strong></TD>
<TD width="68" align="center"><strong>出生年月</strong></TD>
<TD width="79" align="center"><strong>所在班级</strong></div></TD>
<TD width="73" align="center"><strong>联系电话</strong></TD>
<TD width="65" align="center"><strong>已修学分</strong></TD>
<TD colspan="2">
<% if Session("GuestType")=6 then %>
<input type="Button" name="BtnAdd" onclick=top.location.href="UpdateStudent.asp?Oper=Add" value="添加"></TD>
<% End if %>
</TR>
<% for i=1 to Cur_RecordCounts %>
<TR>
<TD height="26"><%=Rs("StudentID")%></TD>
<TD><span style="width:68px;"><%=Rs("StudentName")%></span></TD>
<TD><span style="width:30px;">
<div align="center"><%=Rs("Sex")%></div></span></TD>
<TD><span style="width:58px;"><%=Rs("Birthday")%></span> </TD>
<TD><span style="width:60px;">
<div align="left"><%=Rs("ClassName")%></div></span></TD>
<TD><span style="width:90px;">
<div align="left"><%=Rs("TelePhone")%></div></span></TD>
<TD><span style="width:48px;">
<div align="right"><%=Rs("CreditHour")%></div></span></TD>
<TD width="30" align="center">
<% if Session("GuestType")=6 Or (Session("GuestType")=1 And Rs("StudentID") = Session("Guest_ID"))then %>
<a href="UpdateStudent.asp?Oper=Update&StudentID=<%=Rs("StudentID")%>">修改</a>
<% else%>
修改
<% End if %>
</TD>
<TD width="28" align="center">
<% if Session("GuestType")=6 then %>
<a href="UpdateStudent.asp?Oper=Delete&StudentID=<%=Rs("StudentID")%>">删除</a>
<% else%>
删除
<% End if %>
</TD>
</TR>
<% Rs.MoveNext()
Next %>
</table>
<table width="615" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="615" height="31" align="center">
<% '输出前一页的链接，若当前已是首页，则没有超链接
if pages>1 then
Response.Write "<a href='ShowStudent.asp?Pages="&Pages-1&"&SType="&SType&"&SeachValue="&SeachValue&"'>前一页</a> "
else
Response.Write "前一页 "
end if
'输出每一页的链接，若是当前页，则没有超链接
for i=1 to Rs.PageCount
if i=Pages then
Response.Write " "&i&" "
else
Response.Write "<a href='ShowStudent.asp?Pages="&i&"&SType="&SType&"&SeachValue="&SeachValue&"'> "&i&"</a> "
end if
Next
'输出后一页的链接，若当前已是最后页，则没有超链接
if pages<Rs.PageCount then
Response.Write "<a href='ShowStudent.asp?Pages="&Pages+1&"&SType="&SType&"&SeachValue="&SeachValue&"'>下一页</a> "
else
Response.Write "下一页"
end if %>
</td>
</tr>
</table>
<% Rs.Close()
Set Rs = Nothing
Conn.Close()
Set Conn = Nothing %>
</BODY></HTML>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?