📄 user_display.asp

📁 汕头育新学校学籍与成绩管理平台是集学籍管理与成绩管理于一体的网络互动平台。功能强大、使用简单、高效速成、安全方便
💻 ASP
字号:
<!--#include file="user_err.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="char.asp"-->
<%
b1=request("b1")

if b1="" then
%>
<HTML><HEAD>
<TITLE>汕头育新学校 - 学生用户页面</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK 
href="images/style.css" type=text/css rel=stylesheet>
<STYLE type=text/css>.pinkstar {
	COLOR: #ed5460
}
<STYLE type=text/css>BODY {
	FONT-SIZE: 12px; COLOR: #000080; LINE-HEIGHT: 12pt
}
INPUT {
	FONT-SIZE: 12px; COLOR: #000080
}
SELECT {
	FONT-SIZE: 12px; COLOR: #000080
}
TH {
	FONT-SIZE: 12px; COLOR: #000080
}
TD {
	FONT-SIZE: 12px; COLOR: #000080; LINE-HEIGHT: 12pt
}
A:link {
	FONT-SIZE: 12px; COLOR: #0000e0; TEXT-DECORATION: none
}
A:visited {
	FONT-SIZE: 12px; COLOR: #0000e0; TEXT-DECORATION: none
}
A:active {
	FONT-SIZE: 12px; COLOR: #0000ff; TEXT-DECORATION: none
}
A:hover {
	FONT-SIZE: 12px; COLOR: #ff0000; TEXT-DECORATION: underline
}
</STYLE>

<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<BODY>
<!--#include file="up.inc"-->
<!--#include file="upuser.inc"-->
<%dim page,s_id,AllGb  
s_id = Request("s_id")  
page=request.querystring("page")
AllGb=Conn.Execute("select count(s_id) from student where s_del=False and len(s_title)>0 ")(0)  
PageSize = 15  
set rs=server.createobject("adodb.recordset")  
rs.open "Select * from student where s_del=False and len(s_title)>0 order by s_now desc",conn,3,3
s_class=rs("s_class")   
rs.PageSize = PageSize  
pgnum=rs.Pagecount  
if page="" or clng(page)<1 then page=1  
if clng(page) > pgnum then page=pgnum  
if pgnum>0 then rs.AbsolutePage=page  
if rs.bof and rs.eof then       
		response.write "本类无内容"       
else  
%>                                           
            
<TABLE width=700 border=0>        
  <TBODY>        
  <TR>        
<TD vAlign=top align=middle width="50%">        
      <TABLE cellSpacing=0 borderColorDark=#ffffff cellPadding=0 width=300         
      borderColorLight=#3a9ad3 border=1>        
        <TBODY>        
                
            <%count=0                                                               
                    do while not rs.eof and count<rs.pagesize%><%s_class=rs("s_class")%>   
       <TR> <TD vAlign=center align=left         
          bgColor=#ebf4fa><%=count+1%>、<a href="user_display.asp?s_id=<%=rs("s_id")%>"><%=rs("s_title")%></a>&nbsp;&nbsp;&nbsp;&nbsp;----[<%=rs("s_name")%>、<%=rs("s_now")%>]</TD>        
            
                 </tr><tr>
                                                     
          <TD vAlign=center align=left                                              
            bgColor=#ffffff>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%if len(rs("s_note"))>54 then%>    
                  <%=left(rs("s_note"),52)%>..                                                                                         
                  <%else%>                                                                                        
                  <%=rs("s_note")%>                                                                                         
                  <%end if%>  </TD>                                                        
            <%rs.movenext                                                                                                 
                    count=count+1                                                                                                 
                    loop%>                                                                                
        <TR>                                                                               
          <TD vAlign=center align=left bgColor=#ffffff colspan="6"><a style="text-decoration: none" href="admin_editst.asp?page=<%=page-1%>"><font color="#000000">[上页]</font></a><a style="text-decoration: none" href="admin_editst.asp?page=<%=page+1%>"><font color="#000000">[下页]</font></a>共<%=rs.pagecount%>页                                                                                                                                                            
（第<font color=#ff0000><%=page%></font>页）共有记录<%=AllGb%>条</TD></TR></TBODY></TABLE><BR>                                                                                                                              
      <TABLE width="70%" border=0>                                                                                                                                                           
        <TBODY>                                                                                                                                                           
        <TR>                                                                                                                                                           
          <TD align=right>公告消息</TD></TR>                                                                                                                                                           
        <TR>                                                                                                                                                           
          <TD align=right>留言&nbsp;&nbsp;<A></A></TD></TR></TBODY></TABLE></TD>                                                                                                                                                           
<TD vAlign=top width="50%">                                                                                                                                                                       
    <%                                                                                                                                                                                                          
If s_id="" Then	                                                                                                                                                                                                        
sql="SELECT top 1 * FROM student order by s_now desc"                                                                                                                                                                                                                                        
else                                                                                                                                                                                                         
sql= "SELECT * from student where s_id = " & s_id                                                                                                                                                                                                         
end if                                                                                                                                                                                                         
set rs1 = conn.execute(Sql)                                                                                                                                                                                                        
s_name = rs1("s_name")                                                                                                                                                                                                      
s_no = rs1("s_no")                                                                                                 
s_sex = rs1("s_sex")                                                                                                                                                                                                    
if rs1.bof and rs1.eof then                                                                                                                                                                                                        
		response.write "本类无内容"                                                                                                                                                                                                        
else                                                                                                                                                                                                   
%>                                                                                                                                                                                                  
      <TABLE cellSpacing=0 borderColorDark=#ffffff cellPadding=0 width=300                                                                                                                                                                                                    
      align=center borderColorLight=#4f8fcb border=1><form action="admin_editst.asp" method="POST">                                                                                                                                                                                                  
        <TBODY>                                                                                                                                                                                                   
        <TR bgColor=#ecf0dd>                                                                                                                                                                                                   
          <TD bgColor=#ebf4fa height=20>
⌨️ 快捷键说明

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