<%call SiteInfo%> 申请职位 - <% =SiteTitle %> <% dim JobID,TalentsName,BirthDate,Stature,Marriage,RegResidence,EduResume,JobResume JobID=request.QueryString("JobID") TalentsName=request.QueryString("JobName") dim mMemID,mLinkman,mSex,mAddress,mZipCode,mTelephone,mMobile,mEmail if session("MemName")<>"" and session("MemLogin")="Succeed" then call MemInfo() else mSex="先生" mMemID=0 end if %>
 
<%=WebLocation()%>
 
申请职位： *
姓名： *
性别： /> 先生 /> 女士 *
出生日期： *(格式如：1988-08-18)
婚姻状况： 未婚 已婚 *
身高： CM *
户口所在地： *
教育经历： 学历文凭    起止日期    专业名称    相关证书    就读学校 *
工作经历： 起止日期    职位名称    工作内容    就职单位 *
联系地址： *
邮政编码： *
联系电话：
手机号码： *
电子信箱： *
验证码： *
　
<% function WebMenu() response.write "招聘信息" response.write "我的应聘" end function function WebLocation() WebLocation=" 当前位置：首页 - 简历提交"&VbCrLf end Function sub MemInfo() dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from Qianbo_Members where MemName='"&session("MemName")&"'" rs.open sql,conn,1,1 if rs.bof and rs.eof then response.write "
暂无相关信息
" else mMemID=rs("ID") if not rs("RealName")="" then mLinkman=rs("RealName") else mLinkman=rs("MemName") end if mSex=rs("Sex") mAddress=rs("Address") mZipCode=rs("ZipCode") mTelephone=rs("Telephone") mMobile=rs("Mobile") mEmail=rs("Email") end if rs.close set rs=nothing end sub %>