<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% response.charset="utf-8" %> <%=SiteTitle %> <% if not (session("MemName")<>"" and session("MemLogin")="Succeed") then response.redirect "MemberCenter.asp" response.end end if dim TalentsName,BirthDate,Stature,Marriage,RegResidence,EduResume,JobResume dim mLinkman,mSex,mAddress,mZipCode,mTelephone,mMobile,mEmail,mAddTime,ReplyContent,ReplyTime call TalentsInfo() %>
會員中心
<% =WebMenu()%>  
信息搜索
<%=SearchForm()%>
首頁會員中心我的應聘簡歷信息
     
 
簡　歷　詳　細　信　息
職位名稱 <%=TalentsName%>
姓　　名 <%=mLinkman%>
性　　別 <%=mSex%>
出生日期 <%=BirthDate%>
身　　高 <%=Stature%>
婚姻狀況 <%=Marriage%>
戶口在地 <%=RegResidence%>
教育經歷 <%=EduResume%>
工作經歷 <%=JobResume%>
通信地址 <%=mAddress%>
郵　　編 <%=mZipCode%>
電　　話 <%=mTelephone%>
移動電話 <%=mMobile%>
電子郵箱 <%=mEmail%>
應聘時間 <%=mAddTime%>
回復時間 <%=ReplyTime%>
回復內容 <%=ReplyContent%>
 
<% function WebMenu() response.write"" response.write "" &_ "" response.write "" &_ "" response.write "" &_ "" response.write "" &_ "" response.write "" &_ "" response.write"
我的資料
我的留言
我的訂單
我的應聘
退出登錄
" end function sub TalentsInfo() dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from Ameav_Talents where ID="&request.QueryString("ID") rs.open sql,conn,1,1 TalentsName=rs("TalentsName") BirthDate=FormatDate(rs("BirthDate"),13) Stature=rs("Stature") Marriage=rs("Marriage") RegResidence=rs("RegResidence") EduResume=HtmlStrReplace(rs("EduResume")) JobResume=HtmlStrReplace(rs("JobResume")) mLinkman=rs("Linkman") mSex=rs("Sex") mAddress=rs("Address") mZipCode=rs("ZipCode") mTelephone=rs("Telephone") mMobile=rs("Mobile") mEmail=rs("Email") mAddTime=rs("AddTime") ReplyContent=HtmlStrReplace(rs("ReplyContent")) ReplyTime=rs("ReplyTime") rs.close set rs=nothing end sub %>