admin_editst2.asp

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

<TR>                                                       
          <TD class=p12 vAlign=top height=23>&nbsp;&nbsp;负 责 人</TD> 
          <TD colSpan=3><SPAN                                         
            class=pinkstar>
<input name="s_transfer_head" type="text" id="s_transfer_head" value="<%=rs("s_transfer_head")%>"></SPAN><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>                                        
                                                                                                                          
<!--#include file="down.inc"-->                                                                                                                                                                          
</BODY> 
<%                                                                                                                                                                    
''''''''''''''管理评语''''''''                                      
                                 
end if
If Submit="添 加" Then                       
s_id=Request.Form("s_id")  
s_nation=Request.Form("s_nation")
s_birthday=Request.Form("s_birthday_birthYear") &"年"& Request.form("s_birthday_birthMonth") &"月"& Request.form("s_birthday_birthDay")&"日"
s_starschool=Request.Form("s_starschool_birthYear") &"年"& Request.form("s_starschool_birthMonth") &"月"& Request.form("s_starschool_birthDay")&"日"
s_starmember=Request.Form("s_birthday_birthYear") &"年"& Request.form("s_birthday_birthMonth") &"月"& Request.form("s_birthday_birthDay")&"日"
s_birthaddr=Request.Form("p_province") & Request.Form("p_city") & Request.Form("p_town")
s_graduatetime=Request.Form("s_graduatetime")
s_photo=Request.Form("s_photo")
s_familyaddr=Request.Form("s_familyaddr")
s_mailzip=Request.Form("s_mailzip")
s_family_name=Request.Form("s_family_name")
s_family_father=Request.Form("s_family_father")
s_family_work=Request.Form("s_family_work")
s_family_phone=Request.Form("s_family_phone")
s_transfer_time=Request.Form("s_transfer_time")
s_transfer_summary=Request.Form("s_transfer_summary")
s_transfer_head=Request.Form("s_transfer_head")      

Ipaddr=Request.ServerVariables("REMOTE_ADDR") 
If s_nation="" Then 
s_nation="汉族"
end if
If s_birthday="年月日" Then 
s_birthday=" "
end if
If s_graduatetime="" Then 
s_graduatetime=" "
end if
If s_starschool="年月日" Then 
s_starschool=" "
end if
If s_starmember="年月日" Then 
s_starmember="没有入团"
end if
If s_photo="" Then 
s_photo=" "
end if
If s_birthaddr="" Then 
s_birthaddr=" "
end if
If s_familyaddr="" Then 
s_familyaddr=" "
end if
If s_mailzip="" Then 
s_mailzip=" "
end if
If s_family_name="" Then 
s_family_name=" "
end if
If s_family_father="" Then 
s_family_father=" "
end if
If s_family_work="" Then 
s_family_work=" "
end if
If s_family_phone="" Then 
s_family_phone=" "
end if 
If s_transfer_time="" Then 
s_transfer_time=" "
end if
If s_transfer_summary="" Then 
s_transfer_summary=" "
end if
If s_transfer_head="" Then 
s_transfer_head=" "
end if    
     
Dim Result                           
Result="错误:"       
     
IF Result="错误:" Then     
Dim sql       
sql="update student set s_nation='"&s_nation&"',s_birthday='"&s_birthday&"',s_graduatetime='"&s_graduatetime&"',s_starschool='"&s_starschool&"',s_starmember='"&s_starmember&"',s_photo='"&s_photo&"',s_birthaddr='"&s_birthaddr&"',s_familyaddr='"&s_familyaddr&"',s_mailzip='"&s_mailzip&"',s_family_name='"&s_family_name&"',s_family_father='"&s_family_father&"',s_family_work='"&s_family_work&"',s_family_phone='"&s_family_phone&"',s_transfer_time='"&s_transfer_time&"'"
sql=sql&",s_transfer_summary='"&s_transfer_summary&"',s_transfer_head='"&s_transfer_head&"',s_ip='"&Ipaddr&"',s_now='"&Now&"' where s_id="&s_id      
Conn.Execute sql      
     
Response.write "<script>alert('修改成功！点确定继续......');location.href('admin_editst.asp');</script>"                                
Else                           
Response.write "<script>alert("""&Result&""");history.back();</script>"                           
end if                       
                                
end if
                                                                                         
%>