admin_display.asp

汕头育新学校学籍与成绩管理平台是集学籍管理与成绩管理于一体的网络互动平台。功能强大、使用简单、高效速成、安全方便

          <div align="center"><%if len(rs1("s_photo"))>0 then%>    
                 <img src="<%=rs1("s_photo")%>" width="75" height="90">                                                                                       
                  <%else%>                                                                                        
                 没有上传图片                                                                                        
                  <%end if%> </div>
</TD></TR>                                 
                                  
             <TR>                                                                                  
          <TD class=p12 vAlign=top height=23>&nbsp;&nbsp;姓　　名</TD>   
          <TD><%=s_name%></TD>   
          <TD colspan="2">&nbsp;&nbsp;性　　别</TD>   
          <TD colspan="2"><%=s_sex%></TD></TR>                                 
                                  
             <TR>                                                                                  
          <TD class=p12 vAlign=top height=23>&nbsp;&nbsp;出生日期</TD>   
          <TD><%=rs1("s_birthday")%>&nbsp;</TD>   
          <TD colspan="2">&nbsp;&nbsp;民　　族</TD>   
          <TD colspan="2"><%=rs1("s_nation")%>&nbsp;</TD></TR>                                 
                                  
             <TR>                                                                                  
          <TD class=p12 vAlign=top height=23>&nbsp;&nbsp;毕业学校</TD>   
          <TD colspan="5"><%=rs1("s_graduatetime")%>&nbsp;</TD></TR>                                 
                                  
             
        
        <TR>                                         
          <TD class=p12 vAlign=top height=23>&nbsp;&nbsp;入学时间</TD>   
          <TD colspan=3><%=rs1("s_starschool")%>&nbsp;</TD>   
          <TD colspan="2">&nbsp;&nbsp;入团时间</TD>   
          <TD><%=rs1("s_starmember")%>&nbsp;</TD></TR>  
        
    
<TR>                                                          
          <TD class=p12 vAlign=top height=23>&nbsp;&nbsp;户 籍 地</TD>                                                                    
          <TD colspan=6><%=rs1("s_birthaddr")%> &nbsp;                                                           
		                                                                   
                                                                                                                                                                     
                                                                                
          </TD></TR>                                                                   
                                                                   
           <TR>                                                                                                                          
          <TD class=p12 vAlign=top height=23>&nbsp;&nbsp;家庭地址</TD>                                                                    
          <TD colspan=2><%=rs1("s_familyaddr")%>&nbsp;                                                                   
</TD>                                                                    
          <TD class=p12 vAlign=top colspan=2>&nbsp;&nbsp;邮政编码                                                                  
</TD>                                                                   
          <TD colspan=2><%=rs1("s_mailzip")%>&nbsp;                                                                  
</TD></TR>                                                                  
                                                               
<TR>                                                                                                                         
          <TD class=p12 vAlign=top height=23>&nbsp;&nbsp;父母姓名</TD>                                                                   
          <TD colspan=2>&nbsp;&nbsp;称　　呼<SPAN class=pinkstar></SPAN>                                           
</TD>                                                
          <TD colspan=2>&nbsp;&nbsp;工作单位                                           
</TD>                                                
          <TD colspan=2>&nbsp;&nbsp;联系电话                                           
</TD></TR>                                               
<TR>                                                                                                      
          <TD class=p12 vAlign=top height=23>&nbsp;&nbsp;<%=rs1("s_family_name")%> </TD>  
            <TD colspan=2>&nbsp;&nbsp; <%=rs1("s_family_father")%>
</TD>  
            <TD colspan=2>&nbsp;&nbsp;<%=rs1("s_family_work")%>

</TD>  
            <TD colspan=2>&nbsp;&nbsp;<%=rs1("s_family_phone")%>
</TD></TR>  
<TR>                                                         
          <TD class=p12 vAlign=top height=23>&nbsp;&nbsp;<SPAN                                                                                                 
            class=pinkstar>转学情况</SPAN></TD>   
          <TD colspan=2>&nbsp;&nbsp;时　　间
</TD>   
          <TD colspan=2>&nbsp;&nbsp;摘　　要
</TD>   
          <TD colspan=2>&nbsp;&nbsp;负 责 人             
</TD></TR>               
<TR>                                                                      
          <TD class=p12 vAlign=top height=23>&nbsp;&nbsp;</TD>             
          <TD colspan=2>&nbsp;&nbsp;<%=rs1("s_transfer_time")%></TD>             
          <TD colspan=2>&nbsp;&nbsp;<%=rs1("s_transfer_summary")%>          
          
</TD>             
          <TD colspan=2>&nbsp;&nbsp;<%=rs1("s_transfer_head")%>          
</TD></TR>            
                      
                                                                   
                                                                        
		        <TR>                                                                                                          
          <TD height=10 colspan="7">&nbsp;</TD>                                                                                                          
        </TR>                                                                                                          
        </TBODY></TABLE></DIV></TD></TR></TBODY></FORM></TABLE>                                                                                                  
                                                                                                  
                                                                                                  
                                                                                                  
			</DIV></TD></TR>                                                                                                           
        <TR>                                                                                                           
          <TD class=tdBott_p>对汕头育新学校有任何意见和问题，<a href="../note.asp">请给我们留言</a>。</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>                                                                                                           
                                                                   
                                                                                                                                                                                                
                                                               
                                                                                                                                                                 
<%  end if                                                                                                                                                                                                                                                                                                                         
		rs1.close                                                                                                                                                                                                                                                                                                                             
		%>  <%                                                                                                                                      
end if                                                                                                                                      
conn.close%>                                                                                                                                                           
                                                                                                                                                                 
                                                                                                                                                         
		                                                                                                                                                                   
<!--#include file="down.inc"-->                                                                                                                                                             
</BODY>                                                                                                     
<%elseif b1="删除" then                                                                                      
s_id=request("s_id")                                                                                      
sql="update student set s_del=True where s_id="&s_id                                                                                      
conn.execute sql                                                                               
Response.write "<script>alert('删除成功！点确定继续......');location.href('admin_display.asp');</script>"                                                                                                         
                                                                                  
                                                                                
elseif b1="修 改" then                                                                                                        
Dim s_name,s_sex,s_class,s_phone,s_no,Ipaddr                                                                                              
s_id=Request.Form("s_id")                                                                                                        
s_name=Request.Form("s_name")                                                                                                        
s_sex=Request.Form("s_sex")                                                                                                        
s_class=Request.Form("s_class")                                                                                                        
s_no=Request.Form("s_no")                                                                                                        
Ipaddr=Request.ServerVariables("REMOTE_ADDR")                                                                                                      
                                                                                                    
Dim Result                                                                                                    
Result="错误:"                                                                                                    
If s_no="" Then Response.write "<script>alert(""学号没有填写！"");history.back();</script>"                                                                                                        
If s_no<>"" And Not IsNumeric(s_no) Then Result=Result&"学号必须是数字！"                                                                                                      
If s_name="" Then Response.write "<script>alert(""学生姓名没有填写！"");history.back();</script>"                                                                                                        
If Len(s_name)>10 Then Response.write "<script>alert(""学生姓名错误！"");history.back();</script>"                                                                                                        
If Len(s_name)<4 Then Response.write "<script>alert(""学生姓名错误！"");history.back();</script>"                                                                                                        
If s_class="" Then Response.write "<script>alert(""班级没有填写！"");history.back();</script>"                                                                                                        
                                                                                                   
                                                                                                    
IF Result="错误:" Then                                                                                                    
Dim sql                                                                                                        
sql="update student set s_name='"&s_name&"',s_sex='"&s_sex&"',s_class='"&s_class&"',s_no='"&s_no&"' where s_id="&s_id                                                                                              
Conn.Execute sql                                                                                                        
                                                                                                        
Response.write "<script>alert('修改成功！点确定继续......');location.href('admin_display.asp');</script>"                                                                                                         
Else                                                                                                    
Response.write "<script>alert("""&Result&""");history.back();</script>"                                                                                                    
end if                                                                                      
                                                                                    
                                                                                    
                                                                                                    
conn.close                                                                                                          
end if                                                                                                          
%>