⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 search_user.asp

📁 一个基于ASP的学生管理系统
💻 ASP
字号:
<!--#include file="inc/conn.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>学生信息管理系统—<%= session("xy_name") %>-查找</title>
<!--#include file="inc/head.asp"-->
</head>

<body>
<%
si=Trim(Request.form("si"))
id=Trim(Request.Form("id"))
username=Trim(Request.Form("name"))
sex=Trim(Request.Form("sex"))
xueyuan=Trim(Request.Form("xueyuan"))
xi=Trim(Request.Form("xi"))
intime=Trim(Request.Form("time"))
zhengzhi=Trim(Request.Form("zhengzhi"))
zhiwu=Trim(Request.Form("zhiwu"))
area=Trim(Request.Form("area"))
minzu=Trim(Request.Form("minzu"))
mmid=Trim(Request.QueryString("mid"))
sg=Trim(Request.QueryString("sg"))
page=request("page")
if mmid<>"" then
id=mmid
end if
if id<>"" then
sql2="SELECT * FROM stu WHERE stu_idnum='"&id&"'"
else
 sql2="SELECT * FROM stu WHERE 1=1"
 if username<>"" then
  sql2=sql2&"and stu_name like'%"&username&"%'"
 end if
 if sex<>"0"  then
  sql2=sql2&"and stu_sex='"&sex&"'"
 end if
  if xueyuan<>"0" then
  sql2=sql2&"and stu_xyname='"&xueyuan&"'"
 end if
   if xi<>"0" then
  sql2=sql2&"and stu_xname='"&xi&"'"
 end if
   if intime<>"" then
  sql2=sql2&"and stu_time='"&intime&"'"
 end if
   if zhengzhi<>"0" then
  sql2=sql2&"and stu_zhengzhi='"&zhengzhi&"'"
 end if
 if zhiwu<>"0" then
  sql2=sql2&"and stu_zhiwu='"&zhiwu&"'"
 end if
 if area<>"0" then
  sql2=sql2&"and stu_area='"&area&"'"
 end if
 if minzu<>"0" then
  sql2=sql2&"and stu_minzu='"&minzu&"'"
 end if
end if
if page="" then
 page=1
 end if
 %>
  <form  method="post" action="search_user.asp">
  <input name="si" type="hidden" value="1">
    <table width="60%" border="0" cellpadding="0" cellspacing="0 " align="center" class="style4">
      <!--DWLayoutTable-->
      <tr>
        <td width="23" height="57" valign="middle" class="style4">姓名</td>
    <td width="70" valign="middle">
      <input name="name" type="text" id="name" size="10">    </td>
    <td width="18" valign="middle" class="style4">ID</td>
    <td width="91" valign="middle"><input name="id" type="text" id="id" size="13"></td>   
    <td width="12" valign="middle">学院</td>
    <td colspan="2" valign="middle">
	<% if session("ad_sign")="0" then  
     sql="SELECT xy_name FROM xueyuan"  
	  openDB
     set rs=conn.execute(sql)%>
	 <select name="xueyuan" >
              <option value="0"  selected >请选择</option>
              <% while not rs.eof %>
              <option value="<%= rs("xy_name") %>"><%= rs("xy_name") %></option>	 
              <% rs.movenext
	 wend
	 closeDB %>	
      </select></td>   
    <td colspan="3" valign="middle"><select name="xi" >
	    <option value="0"  selected >请选择</option>
		    <% openDB 
	sql="SELECT xy_name,xy_id FROM xueyuan"
	 set rs=conn.execute(sql) 
	 while not rs.eof
	 xy_name=rs("xy_name")
	 xy_id= rs("xy_id")%><option value="<%= rs("xy_name") %>">&#8212;&#8212;<%= rs("xy_name") %>&#8212;&#8212;</option>	 
	     <%
	 sql="SELECT x_name FROM xi WHERE xy_id='"&xy_id&"'"
	 set myrs=conn.execute(sql)
	  %>
              <%  while not myrs.eof%>
              <option value="<%= myrs("x_name") %>"><%= myrs("x_name") %></option>	
              <%	 myrs.movenext
	 wend
	 rs.movenext
	 wend
	 closeDB
	  %>
          </select>
	    <% else %>
        <input name="xueyuan" type="text" size="15" readonly="true" value="<%= session("xy_name") %>"></td>
      <td colspan="2" valign="middle">
	   <% openDB 
	  xy_name=session("xy_name")
	sql="SELECT xy_id FROM xueyuan where xy_name='"&xy_name&"'"
	 set rs=conn.execute(sql) 	
	 xy_id= rs("xy_id")
	 closeDB
	 openDB
	 sql="SELECT x_name FROM xi WHERE xy_id='"&xy_id&"'"
	 set rs=conn.execute(sql)
	  %>	   <select name="xi" >
	            <option value="0"  selected >请选择</option>
	          <% 	while not rs.eof %>
	           <option value="<%= rs("x_name") %>"><%= rs("x_name") %></option>	
	           <%	 
	 rs.movenext
	 wend
	 closeDB
	  %>
                 </select>	   <% end if %>	  </td>
    <td colspan="2" valign="middle">入学时间</td>
  <td colspan="2" valign="middle"><input name="time" type="text" size="6"></td>
  </tr>
      <tr>
        <td height="48" valign="middle">性别</td>
    <td valign="middle"><select name="sex">
            <option value="0" selected>请选择</option>
            <option >女</option>
	        <option >男</option>
    </select></td>
    <td valign="middle">职务</td>
    <td valign="middle">
	<% 
	openDB
	sql="SELECT zw_name FROM zhiwu"
	set rs=conn.execute(sql)
	 %>
	  <select name="zhiwu">
	        <option value="0" selected>请选择</option>
	        <% while not rs.eof %>
            <option value="<%= rs("zw_name") %>"><%= rs("zw_name") %></option>	 
            <% rs.movenext
	 wend
	 closeDB %>	
      </select></td>
    <td colspan="2" align="center" valign="middle">政治面貌</td>
    <td colspan="2" valign="middle">
	<% 
	openDB
	sql="SELECT zz_name FROM zhengzhi"
	set rs=conn.execute(sql)
	 %>
	<select name="zhengzhi">
	          <option value="0" selected>请选择</option>
	          <% while not rs.eof %>
              <option value="<%= rs("zz_name") %>"><%= rs("zz_name") %></option>	 
              <% rs.movenext
	 wend
	 closeDB %>	
      </select></td>
    <td width="66" valign="middle">生源地</td>
    <td width="71" valign="middle">
	<% openDB
	  sql="SELECT area_name FROM area"
	set rs=conn.execute(sql)
	 %>
	<select name="area">
	        <option value="0" selected>请选择</option>
	        <% while not rs.eof %>
            <option value="<%= rs("area_name") %>"><%= rs("area_name") %></option>	 
            <% rs.movenext
	 wend
	 closeDB %>	
      </select></td>
    <td width="34" valign="middle">民族</td>
    <td colspan="2"valign="middle"><% openDB
	  sql="SELECT mz_name FROM minzu"
	set rs=conn.execute(sql)
	 %>
	  <select name="minzu">
	        <option value="0" selected>请选择</option>
	      <% while not rs.eof %>
	       <option value="<%= rs("mz_name") %>"><%= rs("mz_name") %></option>	 
	       <% rs.movenext
	 wend
	 closeDB %>	
      </select></td>
    <td width="21">&nbsp;</td>
    <td width="17">&nbsp;</td>
      <td width="42" align="center" valign="middle"><input type="submit" name="Submit" value="查询"></td>
    </tr>
      <tr>
        <td height="24" colspan="16" valign="top"><hr></td>
        </tr>
      <tr>
        <td height="1"></td>
        <td></td>
        <td></td>
        <td></td>
        <td></td>
        <td width="57"></td>
        <td></td>
        <td></td>
        <td></td>
        <td></td>
        <td></td>
        <td></td>
        <td></td>
        <td></td>
        <td></td>
        <td></td>
      </tr>
        </table>
  </form>
<% if si="1" or sg="1" then
openDB
set myrs= server.CreateObject("adodb.recordset")
myrs.open sql2,conn,1,1
if not myrs.eof then
 %>
<table  id="data" width="990" border="0" cellpadding="0" cellspacing="0" class="style4" >
  <!--DWLayoutTable-->
  <tr>
    <td width="124" height="34" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
    <td width="145" align="center" valign="middle">ID号</td>
    <td width="77" align="center" valign="middle">姓名</td>
    <td width="146" align="center" valign="middle">学院</td>
    <td width="139" align="center" valign="middle">系别</td>
    <td width="59" align="center" valign="middle">性别</td>
    <td align="center" valign="middle">生源地</td>
    <td width="82" align="center" valign="middle">删除</td>
    <td width="150" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
  </tr>
  <%myrs.pagesize=10
	myrs.absolutepage=page
	for page=1 to myrs.pagesize  %>
  <tr>
    <td height="34">&nbsp;</td>
    <%
   if myrs.eof then
   exit for
   end if
   id=myrs("stu_idnum")
   uname=myrs("stu_name")
   xyname=myrs("stu_xyname")
   xname=myrs("stu_xname")
   %>
    <td align="center"  valign="middle"><a href= "show_stu.asp?id=<%=myrs("id")%>"><%= id %></a></td>
    <td align="center"  valign="middle"><a href= "show_stu.asp?id=<%=myrs("id")%>"><%= uname %></a></td>
    <td align="center"  valign="middle"><a href= "show_stu.asp?id=<%=myrs("id")%>"><%= xyname %></a></td>
    <td align="center" valign="middle"><a href= "show_stu.asp?id=<%=myrs("id")%>"><%= xname %></a></td>
    <td align="center" valign="middle"><a href= "show_stu.asp?id=<%=myrs("id")%>"><%= myrs("stu_sex" )%></a></td>
    <td align="center" valign="middle"><a href= "show_stu.asp?id=<%=myrs("id")%>"><%= myrs("stu_area") %></a></td>
     <td align="center" valign="middle"><a href= "del_stu.asp?id=<%=myrs("id")%>">删除</a></td>
     <td>&nbsp;</td>
     <%myrs.movenext%>
  </tr>
	<% next %>
</table>
  <table width="50%" border="0" cellpadding="0" cellspacing="0" class="style4" align="center">
    <!--DWLayoutTable-->
    <tr>
    <td width="766" height="55" valign="top">
	<% for n=1 to myrs.pagecount %>
    <a href="search_user.asp?page=<%=n%>"><%=n%></a>
    <% next %>    
    <p>共<%= myrs.pagecount %>页</p></td>
	<% else%>
	<table align="center" width="50%"><tr><td align="center" class="style4"><font color="#FF0000">查询无结果</font></td></tr></table>
	<%
	end if 
	end if%>
    </tr>
</table>
</body>
</html>
<!--#include file="inc/foot.asp"-->

⌨️ 快捷键说明

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