⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 per_basicinfo.asp

📁 直接附加数据库! 修改 Include/ Class_Main.asp 为自己信息 后台admin admin 绍兴人才网程序
💻 ASP
📖 第 1 页 / 共 2 页
字号:
                  color=#ff6600>*</FONT></STRONG> 证件号码:</td>
                              <td height="25" bgcolor="f9f9f9"><select name="codetype" id="codetype" style="width:60px;">
                                  <option  value="0"  <% If CodeType = 0 Then Response.write "Selected" %>>身份证</option>
                                  <option  value="1"  <% If CodeType = 1 Then Response.write "Selected" %>>护照</option>
                                  <option  value="2"  <% If CodeType = 2 Then Response.write "Selected" %>>军官证</option>
                                  <option  value="3"  <% If CodeType = 3 Then Response.write "Selected" %>>学生证</option>
                                  <option  value="4"  <% If CodeType = 4 Then Response.write "Selected" %>>其他</option>
                                </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="f9f9f9"><STRONG><FONT 
                  color=#ff6600>*</FONT></STRONG> 现工作地区:</td>
                              <td height="25" bgcolor="f9f9f9">
                                <!--#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 width="99%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="eeeeee">
                            <tr> 
                              <td height="25" bgcolor="f5f5f5"><b><font color="#000000">&nbsp;联系方式</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="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="f9f9f9"><STRONG><FONT 
                  color=#ff6600>*</FONT></STRONG> 手 机:</td>
                              <td height="25" bgcolor="f9f9f9"><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="f9f9f9"><STRONG><FONT 
                  color=#ff6600>*</FONT></STRONG> 电子邮件:</td>
                              <td height="25" bgcolor="f9f9f9"><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="f9f9f9"><STRONG><FONT 
                  color=#ff6600>*</FONT></STRONG> 邮政编码:</td>
                              <td height="25" bgcolor="f9f9f9"><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 width="99%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="eeeeee">
                            <tr> 
                              <td height="25" bgcolor="f5f5f5"><b><font color="#000000">&nbsp;自我评价</font></b></td>
                            </tr>
                          </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>
<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 Submit()
 Call Check_url()    '防止外部站点提交数据
 '//提交数据
 Perid                = Session("Person")(2)
 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&",PersonPhone='"&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.redirect "Per_BasicInfo.asp"
End Sub
 %>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -