person_info.asp

嘉缘人才6.0精简 ,很好用的人才系统

do while not rs.eof
if pmember_hukoucapitalid=rs("id") then
response.write"<OPTION value="&rs("id")&" selected>"&rs("province_city")&"</option>"
else
response.write"<OPTION value="&rs("id")&">"&rs("province_city")&"</option>"
end if
rs.movenext
loop
rs.close
end if
%>
</select>
                </span> <span id="load400"></span> <span id="chukoucity">
                <select name=hukoucity id="hukoucity">
                  <option value="" selected>县级地区</option>
<%
if pmember_hukoucapitalid<>"" and not isnull(pmember_hukoucapitalid) and pmember_hukoucapitalid<>0 then
sql="select * from job_provinceandcity where fid="&pmember_hukoucapitalid&" order by date desc"
rs.open sql,conn,1,1
do while not rs.eof
if pmember_hukoucityid=rs("id") then
response.write"<OPTION value="&rs("id")&" selected>"&rs("province_city")&"</option>"
else
response.write"<OPTION value="&rs("id")&">"&rs("province_city")&"</option>"
end if
rs.movenext
loop
rs.close
end if
%>
                </select>
              </span></li>
		  <li>现所在地：<select name="province" size="1" id="select4" onChange=GetCapital(this.options[this.selectedIndex].value)>
            <option value="" selected>省份</option>
<%
set rs=server.createobject("ADODB.Recordset")
sql="select * from job_provinceandcity where fid=0 order by date desc"
rs.open sql,conn,1,1
do while not rs.eof
if pmember_provinceid=rs("id") then
response.write"<OPTION value="&rs("id")&" selected>"&rs("province_city")&"</option>"
else
response.write"<OPTION value="&rs("id")&">"&rs("province_city")&"</option>"
end if
rs.movenext
loop
rs.close
%>
          </select>
                <span id="load100"></span> <span id="ccapital">
                <select name=capital onchange=GetCity(this.options[this.selectedIndex].value)>
                  <option value="" selected>地级市</option>
<%
if pmember_provinceid<>"" and not isnull(pmember_provinceid) and pmember_provinceid<>0 then
sql="select * from job_provinceandcity where fid="&pmember_provinceid&" order by date desc"
rs.open sql,conn,1,1
do while not rs.eof
if pmember_capitalid=rs("id") then
response.write"<OPTION value="&rs("id")&" selected>"&rs("province_city")&"</option>"
else
response.write"<OPTION value="&rs("id")&">"&rs("province_city")&"</option>"
end if
rs.movenext
loop
rs.close
end if
%>
                </select>
                </span> <span id="load200"></span> <span id="ccity">
                <select name=city>
                  <option value="" selected>县级地区</option>
<%
if pmember_capitalid<>"" and not isnull(pmember_capitalid) and pmember_capitalid<>0 then
sql="select * from job_provinceandcity where fid="&pmember_capitalid&" order by date desc"
rs.open sql,conn,1,1
do while not rs.eof
if pmember_cityid=rs("id") then
response.write"<OPTION value="&rs("id")&" selected>"&rs("province_city")&"</option>"
else
response.write"<OPTION value="&rs("id")&">"&rs("province_city")&"</option>"
end if
rs.movenext
loop
rs.close
end if
%>
                </select>
              </span><font color=#ff7800>*</font></li>
		  <li>最高学历：<select name="edu">
            <option value="" selected>请选择学历...</option>
<%
sql="select edu_id,edu_name from job_edu order by edu_id desc"
rs.open sql,conn,1,1
do while not rs.eof
if pmember_edu=rs("edu_id") then
response.write"<OPTION value="&rs("edu_id")&" selected>"&rs("edu_name")&"</option>"
else
response.write"<OPTION value="&rs("edu_id")&">"&rs("edu_name")&"</option>"
end if
rs.movenext
loop
rs.close
set rs=nothing
%>
          </select><font color=#ff7800>*</font></li>
</ul>
<span class="maintit">联系方式</span>
<ul>
<li>电子邮件：<%=pmember_email%><font color=#ff7800>*</font></li>
<li>电&nbsp;&nbsp;&nbsp;&nbsp;话：<input name=tel id="tel" value="<%=pmember_tel%>" size="40" maxlength=100><font color=#ff7800>*</font></li>
<li>聊天号码：<input name=chat id="chat" maxlength=100 value="<%=pmember_chat%>">(QQ:123456;ICQ:345678;MSN:[e-mail])</li>
<li>个人主页：<input name=url id="url" size="40" maxlength=100 value="<%=pmember_url%>"></li>
<li>通讯地址：<input name=address size="40" maxlength=50 value="<%=pmember_address%>"></li>
<li>邮政编码：<input name=post id="post" size=6 maxlength=6 value="<%=pmember_post%>"></li>
</ul>
<ul>
<li><INPUT name=Submit type=submit class="inputa3" value="修 改">&nbsp;<INPUT name=Reset type=reset class="inputa3" value="取 消"></li>
</ul>
</form>
<%End Sub%>
<%Sub SaveData()
pmember_name=CheckStr(trim(request("name")))
if pmember_name="" then
 Response.Write ("<script language=JavaScript>{alert('错误：姓名不能为空!');location.href = 'javascript:history.go(-1)';}</script>")
 Response.End
end if
'pmember_appraise=CheckStrbox(request("appraise"))
'If lenmix(pmember_appraise)>=2000 Then 
'response.write "<script language=javascript>alert('错误：自我评价太长了，要求不多于2000个字符!！');location.href='javascript:history.back()';<//script>"
'response.end 
'end if
pmember_id=trim(request("id"))
pmember_sex=trim(request("sex"))
pmember_birth=cdate(trim(request("birth")))
if pmember_birth="" then
Response.Write ("<script language=JavaScript>{alert('错误：出生日期不能为空!');location.href = 'javascript:history.go(-1)';}</script>")
Response.End
end if

pmember_cardtype=trim(request("cardtype"))
pmember_idcard=CheckStr(trim(request("idcard")))
'if pmember_idcard="" then
' Response.Write ("<script language=JavaScript>{alert('错误：证件号码不能为空!');location.href = 'javascript:history.go(-1)';}<//script>")
' Response.End
'end if
'if trim(request("nation"))<>"" then
' pmember_nation=trim(request("nation"))
'end if
if trim(request("polity"))<>"" then
 pmember_polity=trim(request("polity"))
end if
if trim(request("marriage"))<>"" then
 pmember_marriage=trim(request("marriage"))
end if
'if trim(request("height"))<>"" then
' pmember_height=trim(request("height"))
'end if
'if trim(request("weight"))<>"" then
' pmember_weight=trim(request("weight"))
'end if
if trim(request("hukouprovince"))<>"" then
 pmember_hukouprovinceid=cint(trim(request("hukouprovince")))
end if
if trim(request("hukoucapital"))<>"" then
 pmember_hukoucapitalid=trim(request("hukoucapital"))
end if
if trim(request("hukoucity"))<>"" then
 pmember_hukoucityid=trim(request("hukoucity"))
end if
pmember_provinceid=trim(request("province"))
pmember_capitalid=trim(request("capital"))
pmember_cityid=trim(request("city"))
If pmember_provinceid="" Or pmember_capitalid="" Or pmember_cityid="" Then
	Response.Write ("<script>alert('错误：所在地不能为空!');history.go(-1);</script>")
	Response.End
End If
pmember_edu=trim(request("edu"))
pmember_school=CheckStr(trim(request("school")))
pmember_tel=CheckStr(trim(Request("tel")))
If pmember_tel="" Then
	Response.Write ("<script>alert('错误：电话不能为空!');history.go(-1);</script>")
	Response.End
End If
pmember_chat=CheckStr(trim(request("chat")))
'pmember_email=CheckStr(trim(request("email")))
'If pmember_email="" Then
'	Response.Write ("<script>alert('错误：电子邮件不能为空!');history.go(-1);<//script>")
'	Response.End
'End If
pmember_url=CheckStr(trim(request("url")))
pmember_address=CheckStr(trim(request("address")))
pmember_post=CheckStr(trim(request("post")))
'pmember_sumup=CheckStr(trim(request("sumup")))
'把修改后基本资料存入pmember表
sql="select * from job_member where member_id="&pmember_id&""
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
if not rs.eof then
rs("Member_name")=pmember_name
rs("Member_sex")=pmember_sex
rs("Member_birth")=pmember_birth
rs("Member_cardtype")=pmember_cardtype
rs("Member_idcard")=pmember_idcard
'rs("Member_nation")=pmember_nation
rs("Member_marriage")=pmember_marriage
rs("Member_polity")=pmember_polity
'rs("Member_height")=pmember_height
'rs("Member_weight")=pmember_weight
rs("Member_hukouprovinceid")=pmember_hukouprovinceid
rs("Member_hukoucapitalid")=pmember_hukoucapitalid
rs("Member_hukoucityid")=pmember_hukoucityid
rs("Member_provinceid")=pmember_provinceid
rs("Member_capitalid")=pmember_capitalid
rs("Member_cityid")=pmember_cityid
rs("Member_edu")=pmember_edu
'rs("Member_school")=pmember_school
rs("Member_tel")=pmember_tel
rs("Member_chat")=pmember_chat
'rs("Member_email")=pmember_email
rs("Member_url")=pmember_url
rs("Member_address")=pmember_address
rs("Member_post")=pmember_post
'rs("Member_sumup")=pmember_sumup
'rs("Member_appraise")=pmember_appraise 
rs.update
end if
rs.close
conn.close
set conn=nothing
session(FRHRCMS&"user_name")=pmember_name
response.redirect "person_info.asp"
response.end
End Sub%>