📄 web_person_update.asp
字号:
</select> <input name="codeid" type="text" size="25" maxlength="25" style="width:150px;" value="<%= Tmp(18,0) %>"></td>
</tr>
<tr>
<td height="25" align="right"><STRONG><FONT
color=#ff6600>*</FONT></STRONG> 户口所在地：</td>
<td height="25">
<!--#include file="../Include/Class_Door2.asp" -->
</td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#fff7f0"><STRONG><FONT
color=#ff6600>*</FONT></STRONG> 现工作地区：</td>
<td height="25" bgcolor="#fff7f0">
<!--#include file="../Include/Class_Locus2.asp" -->
</td>
</tr>
</table>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="2"></td>
</tr>
</table>
<TABLE cellSpacing=0 cellPadding=0 width=99% align=center
border=0>
<TBODY>
<TR>
<TD class=font-14 height=3></TD>
</TR>
<TR>
<TD class=font-14 bgColor=#ff7800 height=21> <FONT style="MARGIN-TOP: 2px; MARGIN-LEFT: 10px" color=#ffffff><strong>联系方式</strong></FONT></TD>
</TR>
<TR>
<TD bgColor=#e2e2e2 height=2></TD>
</TR>
</TBODY>
</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="personphone" type="text" size="30" maxlength="30" style="width:120px;" value="<%= Tmp(14,0) %>">
<font color="#50463d">固定电话号码[如：010-82615888] </font></td>
</tr>
<tr>
<td width="18%" height="25" align="right" bgcolor="#fff7f0"><STRONG></STRONG>
手 机：</td>
<td height="25" bgcolor="#fff7f0"><input name="mt" type="text" size="30" maxlength="30" style="width:120px;" value="<%= Tmp(20,0) %>">
<font color="#50463d">移动</font><font color="#50463d">电话号码[如：139-88888888]
</font></td>
</tr>
<tr>
<td height="25" align="right">聊天号码：</td>
<td height="25"><input name="msnqq" type="text" size="30" maxlength="30" style="width:120px;" value="<%= Tmp(15,0) %>">
<font color="#50463d">MSN/QQ/OICQ号码</font></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#fff7f0"><STRONG><FONT
color=#ff6600>*</FONT></STRONG> 电子邮件：</td>
<td height="25" bgcolor="#fff7f0"><input name="useremail" type="text" size="50" style="width:200px;" value="<%= Tmp(0,0) %>"></td>
</tr>
<tr>
<td height="25" align="right">个人网站：</td>
<td height="25"><input name="webhome" type="text" size="50" style="width:200px;" value="<%= Tmp(16,0) %>"></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#fff7f0"><STRONG><FONT
color=#ff6600>*</FONT></STRONG> 邮政编码：</td>
<td height="25" bgcolor="#fff7f0"><input name="zipcode" type="text" size="6" maxlength="6" style="width:120px;" value="<%= Tmp(21,0) %>"></td>
</tr>
<tr>
<td height="25" align="right"><STRONG><FONT
color=#ff6600>*</FONT></STRONG> 通讯地址：</td>
<td height="25"><input name="address" type="text" size="100" style="width:260px;" value="<%= Tmp(22,0) %>">
如：北京市海淀区成府路××号 </td>
</tr>
</table>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="2"></td>
</tr>
</table>
<TABLE cellSpacing=0 cellPadding=0 width=99% align=center
border=0>
<TBODY>
<TR>
<TD class=font-14 height=3></TD>
</TR>
<TR>
<TD class=font-14 bgColor=#ff7800 height=21> <FONT style="MARGIN-TOP: 2px; MARGIN-LEFT: 10px" color=#ffffff><strong>自我评价</strong></FONT></TD>
</TR>
<TR>
<TD bgColor=#e2e2e2 height=2></TD>
</TR>
</TBODY>
</TABLE>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="18%" height="25" align="right">自我评价：</td>
<td height="25"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="75%"> <textarea name="appraise" cols="45" rows="8" id="appraise"><%= Appraise %></textarea></td>
<td><font color="#666666">请用简洁的词语描述自己的综合能力,字数请控制在500字以内
; </font></td>
</tr>
</table></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 type="submit" name="Submit" value=" 保存基本信息数据 " style="height:35px;">
</td>
</tr>
</form>
</table> </td>
</tr>
</table>
</body>
</html>
<%
Sub Submit()
'Call Check_url() '防止外部站点提交数据
'//提交数据
'Response.Write("11")
'Response.End()
Perid = Replace_Text(Request.Form("Perid"))
UserEmail = Replace_Text(Request.Form("UserEmail"))
RealName = Replace_Text(Request.Form("RealName"))
Sex = Replace_Text(Request.Form("Sex"))
Nation = Replace_Text(Request.Form("Nation"))
Marry = Replace_Text(Request.Form("Marry"))
Door_Area = Replace_Text(Request.Form("huji"))
Door_City = Replace_Text(Request.Form("huji1"))
Locus_Area = Replace_Text(Request.Form("x_suozaidi"))
Locus_City = Replace_Text(Request.Form("x_suozaidi1"))
Stature = Replace_Text(Request.Form("Stature"))
Tizhong = Replace_Text(Request.Form("Tizhong"))
BirthYear = Replace_Text(Request.Form("BirthYear"))
Age = Cint(Year(Date))-Cint(BirthYear)
BirthMonth = Replace_Text(Request.Form("BirthMonth"))
BirthDay = Replace_Text(Request.Form("BirthDay"))
PersonPhone = Replace_Text(Request.Form("PersonPhone"))
MsnQQ = Replace_Text(Request.Form("MsnQQ"))
WebHome = Replace_Text(Request.Form("WebHome"))
Appraise = Replace_Text(Request.Form("Appraise"))
CodeId = Replace_Text(Request.Form("CodeId"))
CodeType = Replace_Text(Request.Form("CodeType"))
Mt = Replace_Text(Request.Form("Mt"))
ZipCode = Replace_Text(Request.Form("ZipCode"))
Address = Replace_Text(Request.Form("Address"))
If Appraise<>"" Then Appraise = Replace(Appraise,Chr(13),"<br>")
SQL = "Update [pH_Person_Info] Set RealName='"&RealName&"',Sex="&Sex&",Nation='"&Nation&"',Marry="&Marry&",Age="&Age&",Door_Area='"&Door_Area&"',Door_City='"&Door_City&"',Locus_Area='"&Locus_Area&"',Locus_City='"&Locus_City&"',Stature="&Stature&",Tizhong="&Tizhong&",BirthYear="&BirthYear&",BirthMonth="&BirthMonth&",BirthDay="&BirthDay&",PerāsonPhone='"&PersonPhone&"',MsnQQ='"&MsnQQ&"',WebHome='"&WebHome&"',Appraise='"&Appraise&"',CodeId='"&CodeId&"',CodeType="&CodeType&",Mt='"&Mt&"',ZipCode='"&ZipCode&"',Address='"&Address&"' Where Perid='"&Perid&"'"
Conn.Execute(SQL)
SQL = "Update [pH_Person_Base] Set UserEmail='"&UserEmail&"',LastUpdate_Time='"&Now()&"' Where Perid='"&Perid&"'"
Conn.Execute(SQL)
CloseDB
'操作完成
Response.write "<script language=JavaScript>alert('操作完成！');location.href='Web_Person_All.asp';</script>"
Response.End()
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -