📄 find0f.asp

📁 学生成绩管理是学校管理的重要组成部分。成绩不仅关系到学生成绩升迁
💻 ASP
字号:
<%@ language=vbscript %>
<!--#include file="conn.asp"-->
<%

  if Session.Contents("gws")<>true then
 %>
<body text="#000000" background="bg01.gif">
<p align="center">请重新登录！
<%  
else
bjbh=request("bjbh")

myjl=request("myjl")
if myjl="" then
 myjl=10
 end if

key = request.form("key")
topic=request.form("topic")
if key="" and topic="" then
key = request("key")
topic=request("topic")
end if

if  key="" then
response.write"<script language='javascript'>" 
		 response.write"alert('您没有输入查询关键词！');" 
		 response.write"history.go(-1);"
		 response.write"</script>" 
		 response.end
		 gws=0
end if

if topic="0"then
sql="SELECT * from "&bjbh&" where xh like '%"&key&"%' or sw like '%"&key&"%' or xm like '%"&key&"%' or jtdz like '%"&key&"%' or s like '%"&key&"%' or zybj like '%"&key&"%' or lxdh like '%"&key&"%' or zzmm like '%"&key&"%' or jg like '%"&key&"%' or jl like '%"&key&"%' or cf like '%"&key&"%' or csrq like '%"&key&"%' or rxsj like '%"&key&"%' or bysj like '%"&key&"%' or byzs like '%"&key&"%'" 
end if
if topic="1" then
sql="SELECT * from "&bjbh&" where xh like '%"&key&"%'" 
end if
if topic="2" then
sql="SELECT * from "&bjbh&" where xm like '%"&key&"%'" 
end if
if topic="3" then
sql="SELECT * from "&bjbh&" where s like '%"&key&"%'" 
end if
if topic="4" then
sql="SELECT * from "&bjbh&" where zybj like '%"&key&"%' " 
end if
if topic="5" then
sql="SELECT * from "&bjbh&" where csrq like '%"&key&"%'" 
end if
if topic="6" then
sql="SELECT * from "&bjbh&" where jtdz like '%"&key&"%'" 
end if
if topic="7" then
sql="SELECT * from "&bjbh&" where rxsj like '%"&key&"%'" 
end if
if topic="8" then
sql="SELECT * from "&bjbh&" where byzs like '%"&key&"%' " 
end if
if topic="9" then
sql="SELECT * from "&bjbh&" where jg like '%"&key&"%'" 
end if
if topic="10" then
sql="SELECT * from "&bjbh&" where zzmm like '%"&key&"%'" 
end if
if topic="11" then
sql="SELECT * from "&bjbh&" where bysj like '%"&key&"%'" 
end if
if topic="12" then
sql="SELECT * from "&bjbh&" where lxdh like '%"&key&"%'" 
end if
if topic="13" then
sql="SELECT * from "&bjbh&" where jl like '%"&key&"%' " 
end if
if topic="14" then
sql="SELECT * from "&bjbh&" where cf like '%"&key&"%' "
end if
if topic="15" then
sql="SELECT * from "&bjbh&" where sw like '%"&key&"%' " 
end if



set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,3
if rs.eof then	
		response.write"<script language='javascript'>" 
		 response.write"alert('对不起，没有找到你输入的内容！');" 
		 response.write"history.go(-1);"
		 response.write"</script>" 
		 response.end
end if
	
total=rs.recordcount


%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="config.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" background="bg01.gif">
<form name="form1" method="post" action="find0f.asp?bjbh=<%=bjbh%>">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>
          <div align="center"><b><font face="华文行楷" size="6" color="red">
            分班学生管理窗口</font></b></div>      

          <div align="center"><b><font color=red>删除或修改记录</font></b></div>      

        <div align="center"><b><font color="#0066FF">共找到<font color=red><%=total%></font>条符合您要求的记录 
        </font></b></div>
    </td>
  </tr>
</table>



<%
Response.Write("<center>")


	Response.Write("<table border=1 cellpadding=1 cellspacing=1>")
	Response.Write("<tr bgcolor=aaaaaa style='color:black;'>")
	Response.Write("<td align=center>编号</td>")
	Response.Write("<td align=center><a  href='index0f.asp?jlh=1&myjl="&myjl&"&bjbh="&bjbh&"'>学号</a></td>")
	Response.Write("<td align=center><a  href='index0f.asp?jlh=2&myjl="&myjl&"&bjbh="&bjbh&"'>姓名</a></td>")
	Response.Write("<td align=center>性别</td>")
	Response.Write("<td align=center><a  href='index0f.asp?jlh=3&myjl="&myjl&"&bjbh="&bjbh&"'>系</a></td>")
	Response.Write("<td align=center><a  href='index0f.asp?jlh=4&myjl="&myjl&"&bjbh="&bjbh&"'>班级名称</a></td>")
	Response.Write("<td align=center><a  href='index0f.asp?jlh=5&myjl="&myjl&"&bjbh="&bjbh&"'>出生日期</a></td>")
	Response.Write("<td align=center><a  href='index0f.asp?jlh=6&myjl="&myjl&"&bjbh="&bjbh&"'>家庭住址</a></td>")

    Response.Write("<td align=center><a  href='index0f.asp?jlh=7&myjl="&myjl&"&bjbh="&bjbh&"'>入学时间</a></td>")
    Response.Write("<td align=center><a  href='index0f.asp?jlh=8&myjl="&myjl&"&bjbh="&bjbh&"'>毕业证书号</a></td>")
	Response.Write("<td align=center><a  href='index0f.asp?jlh=9&myjl="&myjl&"&bjbh="&bjbh&"'>籍贯</a></td>")
	Response.Write("<td align=center><a  href='index0f.asp?jlh=10&myjl="&myjl&"&bjbh="&bjbh&"'>政治面貌</a></td>")
	Response.Write("<td align=center><a  href='index0f.asp?jlh=11&myjl="&myjl&"&bjbh="&bjbh&"'>毕业时间</a></td>")
	
    Response.Write("<td align=center>删除确认</td>")
    Response.Write("<td align=center>修改资料</td>")
    Response.Write("<td align=center>查看详情</td></tr>")




    
do while not rs.eof
i=i+1
xh=rs("xh")
xm=rs("xm")
xb=rs("xb")
s=rs("s")
zybj=rs("zybj")
jtdz=rs("jtdz")
csrq=rs("csrq")

rxsj=rs("rxsj")
byzs=rs("byzs")
jg=rs("jg")
zzmm=rs("zzmm")
bysj=rs("bysj")

%>

  
  
  
<% 
 If sColor = "silver" Then
		sColor = "#cccccc"
	Else
		sColor = "silver"
	End If
   
	Response.Write("<tr bgcolor='" & sColor & "'>")	 
%> 
	 

  
  
  
  
  
  
  
    
    <td align=center><font color="red"><%=i%></font>　</td>
    <td align=center><%=xh%>　</td>
    <td align=center><%=xm%>　</td>
 <%
    if xb="男" then
    	 %>
<td align=center><font color="red"><%=xb%></font></td>
	<%
else
	 %>
    	<td align=center><font color="green"><%=xb%></font></td>
<%
end if
 %>

    <td align=center><%=s%>　</td>
    <td align=center><%=zybj%>　</td>
    <td align=center><%=csrq%>　</td>
    <td align=center><%=jtdz%>　</td>
     <td align=center><%=rxsj%>　</td>
    <td align=center><%=byzs%>　</td>
    <td align=center><%=jg%>　</td>
    <td align=center><%=zzmm%>　</td>
    <td align=center><%=bysj%>　</td>


    <td align=center><a href=scf.asp?xh=<%=xh%>&zybj=<%=zybj%>><font color="red">点击删除</font></a></td>
    <td align=center><a href=gwsxgf.asp?xh=<%=xh%>&zybj=<%=zybj%>&key=<%=key%>&topic=<%=topic%>><font color="green">查看修改</font></a></td>
        
    	    <td align=center>
    <a href="#" onClick="window.open('gwslygl.asp?xh=<%=xh%>&zybj=<%=zybj%>', 'Sample', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,copyhistory=yes,left=0,top=0')">
    <font color="blue">查看详情</font></a></td></tr>
   

    
    
    
 <%
rs.movenext
loop

Response.Write("</table>") 
Response.Write("</center>")

%>
  <br>



  <!--#include file="nnzb.asp"-->
  




   <table width="100%" border="0" align="center">
    <tr>
      <td> 
        <div align="center">
          <select name="topic">
          
          
            <option value="1">按学号搜</option>
            <option value="2">按姓名搜</option>
            <option value="3">按系搜</option>
            <option value="4">按班级名称搜</option>
            <option value="5">按出生日期搜</option>
            <option value="6">按家庭住址搜</option>
            <option value="7">按入学时间搜</option>
            <option value="8">按毕业证书号搜</option>
            <option value="9">按籍贯搜</option>
            <option value="10">按政治面貌搜</option>
            <option value="11">按毕业时间搜</option>
            <option value="12">按联系电话搜</option>
            <option value="13">按奖励搜</option>
            <option value="14">按处分搜</option>
            <option value="15">按学位搜</option>
            <option value="0" selected>智能搜索</option>
            
            
          </select>
                       关键词： 
          <input type="text" name="key" size="20">
          <input type="submit" name="Submit2" value="搜索">
        </div>
      </td>
    </tr>
  </table>
</form>
</body>
</html>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%>

  <form action=index0f.asp?bjbh=<%=bjbh%> method=post>
<center><input type=submit value="返回管理首页" align=center></center>

  </form>
💿 文件大小 3197 K
👤 上传用户 ys0796
📂 所属分类教育系统应用
🏷️ 相关标签

#分
⌨️ 快捷键说明

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