user_editst.asp
来自「汕头育新学校学籍与成绩管理平台是集学籍管理与成绩管理于一体的网络互动平台。功能强」· ASP 代码 · 共 759 行 · 第 1/2 页
ASP
759 行
<option value="9">9</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
<option value="21">21</option>
<option value="22">22</option>
<option value="23">23</option>
<option value="24">24</option>
<option value="25">25</option>
<option value="26">26</option>
<option value="27">27</option>
<option value="28">28</option>
<option value="29">29</option>
<option value="30">30</option>
<option value="31">31</option>
</select>日<font color="#0000FF">(<%=rs("s_starmember")%>)</font></TD></TR>
<TR>
<TD class=p12 vAlign=top height=23> 照片上传</TD>
<TD colSpan=3><SPAN
class=pinkstar>＊（由学校统一上传！）</SPAN>
</tr>
</SPAN></TD></TR>
<TR>
<TD class=p12 vAlign=top height=23> 户 籍 地</TD>
<TD colSpan=3><SPAN
class=pinkstar><%
sql = "select pr_id,pr_name from province order by pr_id asc"
set rs1 = conn.execute(sql)
if rs1.eof and rs1.bof then
response.write "请先添加省份！"
response.end
else
%>
<select id="p_province" name="p_province" onChange="changelocation(document.form1.p_province.options[document.form1.p_province.selectedIndex].value)" size="1">
<option value="">选省份</option>
<%do while not rs1.eof%>
<option value="<%=rs1(0)%>"><%=(rs1(1))%></option>
<%
rs1.movenext
loop
end if
rs1.close
set rs1 = nothing
%>
</select>
<select id="p_city" name="p_city">
<option value="">选城市</option>
</select>
<input name="p_town" type="text" id="p_town" size="10" maxlength="15">
<font color="#0000FF">(填写乡镇！)</font>
</SPAN></TD></TR>
<TR>
<TD class=p12 vAlign=top height=23> 家庭地址</TD>
<TD colSpan=3><SPAN
class=pinkstar>
<input name="s_familyaddr" type="text" id="s_familyaddr" size="44" value="<%=rs("s_familyaddr")%>"></SPAN>
</TD></TR>
<TR>
<TD class=p12 vAlign=top height=23> 邮政编码</TD>
<TD colSpan=3><SPAN
class=pinkstar>
<input name="s_mailzip" type="text" id="s_mailzip" value="<%=rs("s_mailzip")%>"></SPAN>
</TD></TR>
<TR>
<TD class=p12 vAlign=top height=23> 父母姓名</TD>
<TD colSpan=3><SPAN
class=pinkstar>
<input name="s_family_name" type="text" id="s_family_name" value="<%=rs("s_family_name")%>"></SPAN><SPAN
class=pinkstar>（父母或抚养人情况！）</SPAN>
</TD></TR>
<TR>
<TD class=p12 vAlign=top height=23> 称 呼</TD>
<TD colSpan=3><SPAN
class=pinkstar>
<input name="s_family_father" type="text" id="s_family_father" value="<%=rs("s_family_father")%>"></SPAN><SPAN
class=pinkstar>（父母或抚养人情况！）</SPAN>
</TD></TR>
<TR>
<TD class=p12 vAlign=top height=23> 工作单位</TD>
<TD colSpan=3><SPAN
class=pinkstar>
<input name="s_family_work" type="text" id="s_family_work" value="<%=rs("s_family_work")%>"></SPAN><SPAN
class=pinkstar>（父母或抚养人情况！）</SPAN>
</TD></TR>
<TR>
<TD class=p12 vAlign=top height=23> 联系电话</TD>
<TD colSpan=3><SPAN
class=pinkstar>
<input name="s_family_phone" type="text" id="s_family_phone" value="<%=rs("s_family_phone")%>"></SPAN><SPAN
class=pinkstar>（父母或抚养人情况！）</SPAN>
</TD></TR>
<TR>
<TD class=p12 vAlign=top height=23> 时 间</TD>
<TD colSpan=3><%=rs("s_transfer_time")%>
<SPAN
class=pinkstar>（转学休学情况，学校填！）</SPAN>
</TD></TR>
<TR>
<TD class=p12 vAlign=top height=23> 摘 要</TD>
<TD colSpan=3><%=rs("s_transfer_summary")%>
<SPAN
class=pinkstar>（转学休学情况，学校填！）</SPAN>
</TD></TR>
<TR>
<TD class=p12 vAlign=top height=23> 负 责 人</TD>
<TD colSpan=3><%=rs("s_transfer_head")%>
<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_sex=Request.Form("s_sex")
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_sex='"&s_sex&"',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('user_display.asp');</script>"
Else
Response.write "<script>alert("""&Result&""");history.back();</script>"
end if
end if
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?