note.asp

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

            name=lm> </DIV></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>                                        
                                                                                                                          
                                                                                                                                                            

<%     
Case Else                                                                                                                                                                        
''''''''''''''管理评语''''''''                                        
                                   
a_id=request("a_id")                                   
sql="select * from achievement where a_id="&a_id                                   
set rs=conn.execute(sql)                                   
a_id=rs("a_id")                         
a_name=rs("a_name")                        
a_stat=rs("a_stat")   
a_teacher=rs("a_teacher")                     
classid=Liststatclass(a_stat)                                 
if rs.eof and rs.bof then                                   
	response.write "<script>alert(""出现异常错误"");window.close();</script>"                                   
End if                                   
                                   
If Request.Form("Submit")="添 加" Then                         
a_id=Request.Form("a_id")          
a_teacher=Request.Form("a_teacher")  
Ipaddr=Request.ServerVariables("REMOTE_ADDR")         

Dim Result 
Result="错误:"         
If a_teacher="" Then Response.write "<script>alert(""评语没有填写！"");history.back();</script>"        
If Len(a_teacher)<10 Then Result=Result&"评语不能少于5个字！"        
If Len(a_teacher)>250 Then Result=Result&"评语不能超过125个字！"        
       
IF Result="错误:" Then       
Dim sql         
sql="update achievement set a_teacher='"&a_teacher&"',a_ip='"&Ipaddr&"',a_now='"&Now&"' where a_id="&a_id        
Conn.Execute sql        
       
Response.write "<script>alert('修改成功！点确定继续......');location.href('admin_editach.asp');</script>"                                  
Else                             
Response.write "<script>alert("""&Result&""");history.back();</script>"                             
end if                         
                                  
end if                                                                                              
%>                                                                                                                                                                                                                 
<!--#include file="upadmin.inc"-->  
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center border=0>                                                           
  <TBODY>                                                           
  <TR>                                                           
    <TD vAlign=top width=200>                                                           
      <DIV align=center><IFRAME id=hotarea border=0                                                            
      marginWidth=0 frameSpacing=0 marginHeight=0                                                            
      src="hotsite.htm" frameBorder=0 width=200 scrolling=no                                                            
      height=250></IFRAME>                                                           
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>                                                           
        <TBODY>                                                           
        <TR>                                                           
          <TD height=15></TD></TR></TBODY></TABLE></DIV></TD>                                                           
    <TD width=20>&nbsp;</TD>                                                           
    <TD vAlign=top width=530>                                                           
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>                                                           
        <TBODY>                                                           
        <TR>                                                           
          <TD class=tdTit_p>汕头育新学校教师评语添加</TD></TR>                                                          
        <TR>                                                          
          <TD class=tdBor_p>                                                          
            <DIV align=center>                                                 
			<TABLE cellSpacing=4 cellPadding=0 width=521 align=center bgColor=#fff7f7                                                  
border=0><form action="note.asp" method="POST">                                                 
  <TBODY>                                                 
  <TR>                                                 
    <TD width=521>                                                 
      <DIV align=center>                                                 
      <TABLE cellSpacing=0 cellPadding=0 width=400 border=0>                                                 
        <TBODY>                                                 
        <TR bgColor=#ffe8e8>                                                 
          <TD class=p14 colSpan=4 height=23>                                                 
            <DIV align=center><STRONG>学生信息</STRONG></DIV></TD></TR>                                                 
             <TR>                                                         
          <TD class=p12 vAlign=top height=23>&nbsp;&nbsp;班　　级</TD> 
          <TD colSpan=3><%=Listclass(classid)%></TD></TR>                               
                                
                            
        <TR>                                       
          <TD class=p12 vAlign=top height=23>&nbsp;&nbsp;姓　　名</TD> 
          <TD colSpan=3><SPAN                                         
            class=pinkstar><input name="a_id" type="hidden" id="a_id" value="<%=a_id%>"><%=a_name%></SPAN></TD></TR>                                       
        <TR>                                       
          <TD class=p12 vAlign=top height=69>&nbsp;&nbsp;教师评语</TD>                                       
          <TD colSpan=3><textarea rows=4 id=a_teacher name=a_teacher cols=40></textarea>&nbsp;&nbsp;<SPAN                                         
            class=pinkstar>＊</SPAN></TD></TR>                               
                                      
		        <TR>                                       
          <TD height=10></TD>                                       
          <TD colSpan=3></TD></TR>                                       
        <TR vAlign=top>                                       
          <TD colSpan=4 height=26>                                       
            <DIV align=center><INPUT class=Button_p type=submit name=Submit value="添 加">                                        
<INPUT class=Button_p type=reset value="重 置"> <INPUT type=hidden                                        
            name=lm> </DIV></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 Select                                                                                                                                                           
                                                                                                                                                        
%>                                
<!--#include file="down.inc"-->                                                                                                                                                                          
</BODY>