📄 admin_select3.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
if session("ok")="" then
Response.Write "<script>alert(""非法用户，你没有登录本系统！"");location.href=""index.asp"";</script>"
end if
%>
<%
name=request("selectclass")
if name<>"" then
sql="select * from infor where class like '%" &name& "%' order by id desc"
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
body,td,th {
font-family: 宋体;
font-size: 12px;
}
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
a:link {
color: #000000;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #666666;
}
a:hover {
text-decoration: underline;
color: #FF0000;
}
a:active {
text-decoration: none;
color: #000066;
}
-->
</style></head>
<body>
<table border="1" cellspacing="0" width="100%" bordercolor="#CCCCCC" bordercolordark="white" bordercolorlight="#CCCCCC" style="font-family:宋体; font-size:10pt; text-align:center;" align="center">
<tr align="center" bgcolor="#339900">
<td width="10%" height="20"><font color="#FFFFFF">编号</font></td>
<td width="16%" height="20"><font color="#FFFFFF">姓名</font></td>
<td width="24%" height="20"><font color="#FFFFFF">电话</font></td>
<td width="25%" height="20"><font color="#FFFFFF">科目</font></td>
<td><font color="#FFFFFF">住址</font></td>
</tr>
<%
page=request.QueryString("page")
if page="" then
page=1
else
page=request.QueryString("page")
end if
rs.open sql,conn,1,1
rs.PageSize=15
if not rs.eof then
rs.AbsolutePage=page
for i=1 to rs.PageSize
%>
<% if rows=i mod 2=0 then %>
<tr align="center" bgcolor="#CCCCCC">
<% end if %>
<td height="25"><%= rs("id") %></td>
<td height="25" bgcolor="#CCCCCC"><a href="news.asp?id=<%=rs("id")%>" target="main"><%= rs("name") %></a></td>
<td height="25"><%= rs("links") %></td>
<td height="25"><%= rs("class") %></td>
<td height="25" ><%= getcut(rs("hefrom"),5) %></td>
</tr>
<tr align="center"><%
rs.movenext
if rs.EOF Then Exit For
next
else
%>
<td colspan="5">没有找到你要信息</td>
</tr>
<%
end if
%>
<tr>
<td height="15"> </td>
<td height="15"> </td>
<td height="15"> </td>
<td height="15"> </td>
<td height="15"> </td>
</tr>
</table>
<table border="1" cellspacing="0" width="100%" bordercolor="#CCCCCC" bordercolordark="white" bordercolorlight="#CCCCCC" style="font-family:宋体; font-size:10pt; text-align:center;" align="center">
<tr>
<td>共有<font color="#FF0000"><%= rs.recordcount %></font>条记录 <font color="#FF0000"><% =page %></font>页/<font color="#FF0000"><%= rs.pagecount %></font>页
<%
nowpage="admin_select3.asp"
backpage=page-1
nextpage=page+1
if nextpage >rs.pagecount then
nextpage=rs.pagecount
end if
%>
<%
if page<>1 then
%>
<a href="<%=nowpage%>?page=1&selectclass=<%=name%>">首页</a> <a href="<%=nowpage%>?page=<%=backpage%>&selectclass=<%=name%>">上一页</a> <a href="<%=nowpage%>?page=<%=nextpage%>&selectclass=<%=name%>">下一页</a> <a href="<%=nowpagee%>?page=<%=rs.pagecount%>&selectclass=<%=name%>">尾页
</a>
<%
elseif page=1 then
%>
<a href="<%=nowpage%>?page=<%=nextpage%>&selectclass=<%=name%>">下一页</a> <a href="<%=nowpage%>?page=<%=rs.pagecount%>&selectclass=<%=name%>">尾页</a> <%
elseif page >= rs.pagecount then
%>
<a href="<%=nowpage%>?page=1&selectclass=<%=name%>">首页</a> <a href="<%=nowpage%>?page=<%=backpage%>&selectclass=<%=name%>">上一页</a> <%
end if
rs.close
set conn=nothing
%>
</td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<% else
Response.Write "<script>alert(""请你填写要查询的学生名字！！"");location.href=""admin_selectsubmit.asp"";</script>"
end if %>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -