📄 xm.asp

📁 职业培训学校学生档案成绩费用管理系统V1.0免费版.rar
💻 ASP
字号:
<!--#include file="connection.asp" -->
<!--#include file="tools.asp" -->
<!--# include file="checkpass.asp" -->
<%
search = ""

if request("username")<>"" then
	if search="" then
		search = search & " WHERE "
	else
		search = search & " AND "
	end if
	search = search & " username = '" & request("username") & "' "
end if

if request("password")<>"" then
	if search="" then
		search = search & " WHERE "
	else
		search = search & " AND "
	end if
	search = search & " password = '" & request("password") & "' "
end if

if request("name")<>"" then
	if search="" then
		search = search & " WHERE "
	else
		search = search & " AND "
	end if
	search = search & " name = '" & request("name") & "' "
end if

if request("sex")<>"" then
	if search="" then
		search = search & " WHERE "
	else
		search = search & " AND "
	end if
	search = search & " sex = '" & request("sex") & "' "
end if

if request("born")<>"" then
	if search="" then
		search = search & " WHERE "
	else
		search = search & " AND "
	end if
	search = search & " born = '" & request("born") & "' "
end if



table="test"

sql="select * from " & table & search 
'请参考下面代码排序
'sql="select * from " & table & search & " order by dtime DESC"

'response.write sql

set rs=Server.CreateObject("ADODB.recordset")
rs.CursorType = 3
rs.Open sql,conn

rs.PageSize =30 '每页记录条数
result_num=rs.RecordCount '记录总数


if result_num<=0 then
	if search="" then
		word="目前还没有记录!"
	else	
		word="没有查到符合条件的记录!"
	end if	
else
	maxpage=rs.PageCount 
	page=request("page")
	
	if Not IsNumeric(page) or page="" then
		page=1
	else
		page=cint(page)
	end if
	
	if page<1 then
		page=1
	elseif  page>maxpage then
		page=maxpage
	end if
	
	rs.AbsolutePage=Page
end if

%>


<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css">
<title></title>
</head>

<body bgcolor="#FFFFFF" topmargin="0" leftmargin="0">
<!--#include file="top.inc"-->
<% if result_num<=0 then %>

<center><BR><BR><% =word %></center>

<% else %>	
<table width="598" border="0" cellspacing="2" cellpadding="0" align="center">
  <tr>
    <td>共搜索到<font color="#FF0000"><% =result_num %></font>条符合条件的信息</td>
  </tr>
</table>

<% call LastNextPage(maxpage,page,"width=100% ","<p  align=center class=font2>") %>
<table width="600" border="0" cellspacing="1" cellpadding="0" align="center">
  <tr align=center bgcolor=#97D0FB>
    <td><b>用户名</b></td>
    <td><b>密码</b></td>
    <td><b>姓名</b></td>
    <td><b>性别</b></td>
    <td><b>生日</b></td>

  </tr>
<% for i=1 to rs.PageSize %>   
  <tr bgcolor=#EEF8FD>
    <td  align=center><a href="t_show.asp?id=<% =rs("id") %>"><% =HtmlOut(rs("username")) %></a></td>
    <td  align=center><% =HtmlOut(rs("password")) %></td>
    <td  align=center><% =HtmlOut(rs("name")) %></td>
    <td  align=center><% =HtmlOut(rs("sex")) %></td>
    <td  align=center><% =HtmlOut(rs("born")) %></td>

  </tr>
<% rs.movenext
if rs.EOF then Exit For
i=i+1 %>
  <tr bgcolor=#D7EFFB>
    <td  align=center><a href="t_show.asp?id=<% =rs("id") %>"><% =HtmlOut(rs("username")) %></a></td>
    <td  align=center><% =HtmlOut(rs("password")) %></td>
    <td  align=center><% =HtmlOut(rs("name")) %></td>
    <td  align=center><% =HtmlOut(rs("sex")) %></td>
    <td  align=center><% =HtmlOut(rs("born")) %></td>

  </tr>

<% 
rs.movenext:if rs.EOF then Exit For
next
%> 
</table>

<% call LastNextPage(maxpage,page,"width=100% ","<p  align=center class=font2>") %>

<% end if %>
<!--#include file="bottom.inc"-->
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -