📄 adminsearchstu.asp

📁 一个教育系统
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="fenlei.asp"-->
<!--#include file="isadmin.asp"-->
<%
fenlei1 = trim(request("fenlei1"))
fenlei2 = trim(request("fenlei2"))
teacher = trim(request("stu"))
id = trim(request("stuid"))

if fenlei1 = "" then
 strquery1 = "1=1"
else
 strquery1 = "fenlei1 like '%"&fenlei1&"%'"
end if
if fenlei2 = "" then
 strquery2 = "1=1"
else
 strquery2 = "fenlei2 like '%"&fenlei2&"%'"
end if
if teacher = "" then
 strquery3 = "1=1"
else
 strquery3 = "stu like '%"&teacher&"%'"
end if
if id = "" then
 strquery4 = "1=1"
else
 strquery4 = "stuid="&id
end if

sql = "select * from stu where "&strquery1&" and "&strquery2&" and "&strquery3&" and "&strquery4
set rs = server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.bof and rs.eof then
 rs.close
 set rs = nothing
 conn.close
 set conn = nothing
 response.write "<script>alert('没有找到符合条件的学生');history.go(-1);</script>"
 response.end
else
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="images/css.css" type="text/css">

<title>学生管理</title>
</head>
<body text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0>
<br>
<table style="BORDER-COLLAPSE: collapse" borderColor=#808080 width="500" border="1" align="center" cellpadding=1>
<tr>
    <td align="center" class="header" colspan=7>搜索到的学生列表 <a href="addteacher.asp">添加</a></td>
  </tr>
  <tr>
    <td>ID</td>
    <td>学生姓名</td>
    <td>学生所属<%=strfenlei1%></td>
    <td>学生所属<%=strfenlei2%></td>
    <td>编辑</td>
    <td>删除</td>
  </tr>
<%
do while not rs.eof
  response.write "<tr>"
  response.write "<td>"&rs("stuid")&"</td>"
  response.write "<td>"&rs("stu")&"</td>"
  response.write "<td>"&rs("fenlei1")&"</td>"
  response.write "<td>"&rs("fenlei2")&"</td>"
  response.write "<td><a href=editstu.asp?stuid="&rs("stuid")&">编辑</a></td>"
  response.write "<td><a href=delstu.asp?stuid="&rs("stuid")&">删除</a></td>"
  response.write "</tr>"
  rs.movenext
loop
%>
</table>
</body>
</html>
<%
 rs.close
 set rs = nothing
 conn.close
 set conn = nothing
end if
%>
⌨️ 快捷键说明

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