📄 yfind.asp

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

xh=request("xh")
ckdm=xh

  if Session.Contents("xh")<>xh then
 %>
<p align="center">请重新登录!
<%  
else

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 cxb where cknb='学生' and ckdm='" + ckdm + "' and (wjm like '%"&key&"%' or nb like '%"&key&"%' or scdm like '%"&key&"%' or scnb like '%"&key&"%')" 
end if
if topic="1" then
sql="SELECT * from cxb where cknb='学生' and ckdm='" + ckdm + "' and  wjm like '%"&key&"%'" 
end if
if topic="2" then
sql="SELECT * from cxb where cknb='学生' and ckdm='" + ckdm + "' and nb like '%"&key&"%'" 
end if
if topic="3" then
sql="SELECT * from cxb where cknb='学生' and ckdm='" + ckdm + "' and scdm like '%"&key&"%'" 
end if
if topic="4" then
sql="SELECT * from cxb where cknb='学生' and ckdm='" + ckdm + "' and scnb like '%"&key&"%' " 
end if

set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
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">
</p>
<form name="form1" method="post" action="yfind.asp?xh=<%=xh%>">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>
          <div align="center"><b><font face="华文行楷" size="6" color="#FF0000">文件</font><font face="华文行楷" size="6" color="red">管理窗口</font></b></div>      

          <div align="center"><b><font color=red>删除或</font></b><font color="#FF0000"><b>下载文件</b></font></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>文件名</td>")
    Response.Write("<td align=center>删除</td>")
	Response.Write("<td align=center><a  href='yindex.asp?jlh=4&myjl="&myjl&"&xh="&xh&"'>分类</a></td>")
	Response.Write("<td align=center><a  href='yindex.asp?jlh=1&myjl="&myjl&"&xh="&xh&"'>发送类</a></td>")
	Response.Write("<td align=center>发送者</td>")
	Response.Write("<td align=center>大小</td>")
	Response.Write("<td align=center><a  href='yindex.asp?jlh=3&myjl="&myjl&"&xh="&xh&"'>上传日期</a></td>")
	Response.Write("<td align=center>说明</td>")
    Response.Write("<td align=center>下载浏览</td></tr>")



    
do while not rs.eof
i=i+1
dx=rs("dx")
nb=rs("nb")
scnb=rs("scnb")
scdm=rs("scdm")
cknb=rs("cknb")
ckdm=rs("ckdm")
wjm=rs("wjm")
sm=rs("sm")
rq=rs("rq")
bh=rs("bh")
 
 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><%=wjm%></td>
	
	
    <td align=center>
    
    
    
    
          <%
        If cknb = "学生" and ckdm = xh Then
  %>
    <a href=jswjsc.asp?xh=<%=xh%>&bh=<%=bh%>><font color="red">删除</font></a>
        <%
	Else
        %>
       无权
              <%
     	End If
              %>

    
    
    
    
    
    </td>
 
	<td align=center><%=nb%></td>
    <td align=center><%=scnb%></td>
    <td align=center><%=scdm%></td>
	<td align=right><%=dx%>KB</td>
    <td align=center><%=rq%></td>
    <td align=center>
  <a href="#" onClick="window.open('wjck.asp?bh=<%=bh%>', 'Sample', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,copyhistory=yes,width=610,height=400,left=0,top=0')">
     <font color="blue">查看</font></a></td>
 
     
     
     
         <td align=center>
       <%
        If nb = "视频" Then
  %>
       <a href="#" onClick="window.open('open.asp?bh=<%=bh%>', 'Sample', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,copyhistory=no,width=484,height=455,left=0,top=0')">
视频播放</a>
        <%
	Else
        %>
       <a target="_blank" href="<%=bh%>">下载浏览</a>
              <%
     	End If
              %>
 
          
       </td></tr>

     
     
     
    
    
    
 <%
rs.movenext
loop

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

%>
  <br>
   <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="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=yindex.asp?xh=<%=xh%> method=post>
<center><input type=submit value="返回管理首页" align=center><p>
  
  
  
                <font size="2"> 
                jpg/gif/jpeg/txt/bmp/htm/html格式的文件可直接浏览</font>
  
  
  
    <br> 
                <font size="2"> 
                rar/zip/doc/xls/ppt格式的文件下载</font></p>
</center>

  </form>
⌨️ 快捷键说明

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