📄 per_education_edit.asp
字号:
End if
End Sub
Sub EditTrains_Sub()
Set Rs = Conn.Execute("Select * From [pH_Person_Education] Where Perid='"&Perid&"' And Ncid="&Cstr(Ncid))
If Not Rs.Eof Then
Ncid = Rs("Ncid")
SchoolName = Rs("SchoolName")
Speciality = Rs("Speciality")
Begin_Year = Rs("Begin_Year")
Begin_Month = Rs("Begin_Month")
End_Year = Rs("End_Year")
End_Month = Rs("End_Month")
CertName = Rs("CertName")
Rs.Close
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form action="?action=trains_submit" name="edus" method="post" onSubmit="return trains_check();">
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="eeeeee">
<tr>
<td bgcolor="#FFFFFF"><table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="2"></td>
</tr>
</table>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="eeeeee">
<tr>
<td height="25" bgcolor="f5f5f5"><b><font color="#000000"> 培训经历</font></b></td>
</tr>
</table>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="18%" height="25" align="right"><STRONG><FONT
color=#ff6600>* </FONT></STRONG>起止时间：</td>
<td height="25"><input name="begin_year" type="text" id="begin_year" size="4" maxlength="4" value="<%= Begin_year %>">
年<span style="FONT-FAMILY: 宋体; FONT-SIZE: 12px"><font>
<select name=begin_month id="begin_month">
<%for i=1 to 12%>
<option <%if i=Begin_month then response.write "selected"%> value="<%=i%>"><%=i%></option>
<%next%>
</select>
</font></span>月 --
<input name="end_year" type="text" id="end_year" size="4" maxlength="4" value="<%= End_year %>">
年<span style="FONT-FAMILY: 宋体; FONT-SIZE: 12px"><font>
<select name=end_month id="end_month">
<%for i=1 to 12%>
<option <%if i=End_month then response.write "selected"%> value="<%=i%>"><%=i%></option>
<%next%>
</select>
</font></span>月</td>
</tr>
<tr>
<td width="18%" height="25" align="right" bgcolor="f9f9f9"><STRONG><FONT
color=#ff6600>* </FONT></STRONG>培训机构：</td>
<td height="25" bgcolor="f9f9f9"><input name="schoolname" type="text" id="schoolname" size="35" maxlength="25" style="width:220px;" value="<%= Schoolname %>">
</td>
</tr>
<tr>
<td height="25" align="right"><STRONG><FONT
color=#ff6600>* </FONT></STRONG>课 程：</td>
<td height="25"><input name="speciality" type="text" id="speciality3" size="35" maxlength="25" style="width:220px;" value="<%= Speciality %>">
</td>
</tr>
<tr>
<td height="25" align="right" bgcolor="f9f9f9">所获证书：</td>
<td height="25" bgcolor="f9f9f9"><input name="certname" type="text" id="certname" style="width:220px;" size="35" maxlength="25" value="<%= Certname %>"></td>
</tr>
</table>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="2"></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td height="40" align="center"><input name="perid" type="hidden" id="perid" value="<%= Perid %>">
<input name="username" type="hidden" value="<%= Username %>">
<input name="ncid" type="hidden" value="<%= Ncid %>"> <input type="submit" name="Submit" value=" 保存教育经历数据 " style="height:35px;">
</td>
</tr>
</form>
</table>
<%
Else
Response.write "没有找到该条培训经历！"
End if
End Sub %>
</td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="1" bgcolor="#eeeeee"></td>
</tr>
</table>
<!--#include file="../Include/Footer.asp" -->
</td>
</tr>
</table>
</body>
</html>
<%
Sub Edus_Submit() '//修改教育经历
Call Check_url() '防止外部站点提交数据
'//提交数据
Perid = Session("Person")(2)
Username = Session("Person")(0)
Ncid = Replace_Text(Request.Form("ncid"))
Begin_Year = Replace_Text(Request.Form("Begin_Year"))
Begin_Month = Replace_Text(Request.Form("Begin_Month"))
End_Year = Replace_Text(Request.Form("End_Year"))
End_Month = Replace_Text(Request.Form("End_Month"))
SchoolName = Replace_Text(Request.Form("SchoolName"))
Speciality = Replace_Text(Request.Form("Speciality"))
Edus = Replace_Text(Request.Form("Edus"))
CertName = Replace_Text(Request.Form("CertName"))
SQL = "Update [pH_Person_Education] Set Begin_Year="&Begin_Year&",Begin_Month="&Begin_Month&",End_Year="&End_Year&",End_Month="&End_Month&",SchoolName='"&SchoolName&"',Speciality='"&Speciality&"',Edus="&Edus&",CertName='"&CertName&"' Where Perid='"&Perid&"' And Username='"&Username&"' And Ncid="&Cstr(Ncid)
Conn.Execute(SQL)
'//更改最后修改时间
SQL = "Update [pH_Person_Base] Set LastUpdate_Time='"&Now()&"' Where Perid='"&Perid&"'"
Conn.Execute(SQL)
CloseDB
Response.redirect "Per_Education.asp"
End Sub
Sub Trains_Submit() '//修改培训经历
Call Check_url() '防止外部站点提交数据
'//提交数据
Perid = Session("Person")(2)
Username = Session("Person")(0)
Ncid = Replace_Text(Request.Form("ncid"))
Begin_Year = Replace_Text(Request.Form("Begin_Year"))
Begin_Month = Replace_Text(Request.Form("Begin_Month"))
End_Year = Replace_Text(Request.Form("End_Year"))
End_Month = Replace_Text(Request.Form("End_Month"))
SchoolName = Replace_Text(Request.Form("SchoolName"))
Speciality = Replace_Text(Request.Form("Speciality"))
CertName = Replace_Text(Request.Form("CertName"))
SQL = "Update [pH_Person_Education] Set Begin_Year="&Begin_Year&",Begin_Month="&Begin_Month&",End_Year="&End_Year&",End_Month="&End_Month&",SchoolName='"&SchoolName&"',Speciality='"&Speciality&"',CertName='"&CertName&"' Where Perid='"&Perid&"' And Username='"&Username&"' And Ncid="&Cstr(Ncid)
Conn.Execute(SQL)
'//更改最后修改时间
SQL = "Update [pH_Person_Base] Set LastUpdate_Time='"&Now()&"' Where Perid='"&Perid&"'"
Conn.Execute(SQL)
CloseDB
Response.redirect "Per_Education.asp"
End Sub
'//关闭数据库连接
CloseDB
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -