<% Call SiteInfo() If Not (session("MemName")<>"" And session("MemLogin") = "Succeed") Then response.Write "" response.End End If %> 我的应聘 - <% =SiteTitle %>
首页 - <%=WebLocation()%>

我的应聘

<%=WebContent()%>
<% Function WebMenu() If session("MemName") = "" Or session("GroupID") = "" Or session("MemLogin")<>"Succeed" Then response.Write "
  • 注册会员
  • " Else response.Write "
  • 修改注册资料
  • " response.Write "
  • 我的留言
  • " response.Write "
  • 我的订单
  • " response.Write "
  • 我的应聘
  • " response.Write "
  • 退出登录
  • " End If End Function Function WebLocation() WebLocation = "会员中心 - 我的应聘"&vbCrLf End Function Function WebContent() Dim idCount Dim pages pages = 2 Dim pagec Dim page page = CLng(request("Page")) Dim pagenc pagenc = 5 Dim pagenmax Dim pagenmin Dim pageprevious Dim pagenext Dim datafrom datafrom = "Talents " Dim datawhere datawhere = "where MemID="&conn.Execute("select * from Members where MemName='"&session("MemName")&"'")("ID")&" " Dim sqlid Dim Myself, PATH_INFO, QUERY_STRING PATH_INFO = request.servervariables("PATH_INFO") QUERY_STRING = request.ServerVariables("QUERY_STRING")' If QUERY_STRING = "" Then Myself = PATH_INFO & "?" ElseIf InStr(PATH_INFO & "?" & QUERY_STRING, "Page=") = 0 Then Myself = PATH_INFO & "?" & QUERY_STRING & "&" Else Myself = Left(PATH_INFO & "?" & QUERY_STRING, InStr(PATH_INFO & "?" & QUERY_STRING, "Page=") -1) End If Dim taxis taxis = "order by id desc " Dim i Dim rs, sql Set rs = server.CreateObject("adodb.recordset") sql = "select count(ID) as idCount from ["& datafrom &"]" & datawhere Set rs = server.CreateObject("adodb.recordset") rs.Open sql, conn, 0, 1 idCount = rs("idCount") If(idcount>0) Then If(idcount Mod pages = 0)Then pagec = Int(idcount / pages) Else pagec = Int(idcount / pages) + 1 End If sql = "select id from ["& datafrom &"] " & datawhere & taxis Set rs = server.CreateObject("adodb.recordset") rs.Open sql, conn, 1, 1 rs.pagesize = pages If page < 1 Then page = 1 If page > pagec Then page = pagec If pagec > 0 Then rs.absolutepage = page For i = 1 To rs.pagesize If rs.EOF Then Exit For If(i = 1)Then sqlid = rs("id") Else sqlid = sqlid &","&rs("id") End If rs.movenext Next End If If(idcount>0 And sqlid<>"") Then sql = "select * from ["& datafrom &"] where id in("& sqlid &") "&taxis Set rs = server.CreateObject("adodb.recordset") rs.Open sql, conn, 0, 1 While Not rs.EOF Response.Write ""&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write "

    您所申请的职位:"&rs("TalentsName")&" 简历提交时间:"&FormatDate(rs("Addtime"), 13)&""&vbCrLf If rs("ReplyTime")<>"" Then response.Write "回复时间:"&FormatDate(rs("ReplyTime"), 13)&"

    " Response.Write "
    姓  名:"&rs("Linkman")&"
    "&vbCrLf Response.Write " 性  别:"&rs("Sex")&"人
    "&vbCrLf Response.Write " 出生日期:"&FormatDate(rs("BirthDate"), 13)&"
    "&vbCrLf Response.Write " 身  高:"&Int(rs("Stature"))&"CM
    "&vbCrLf Response.Write " 婚姻状况:"&rs("Marriage")&"
    "&vbCrLf Response.Write " 户口所在地:"&rs("RegResidence")&"
    "&vbCrLf Response.Write " 联系地址:"&rs("Address")&"
    "&vbCrLf Response.Write " 邮政编码:"&rs("ZipCode")&"
    "&vbCrLf Response.Write " 联系电话:"&rs("Telephone")&"
    "&vbCrLf Response.Write " 手机号码:"&rs("Mobile")&"
    "&vbCrLf Response.Write " 电子信箱:"&rs("Email")&"
    "&vbCrLf Response.Write " 教育经历:
    "&vbCrLf Response.Write " "&HtmlStrReplace(rs("EduResume"))&"
    "&vbCrLf Response.Write " 工作经历:
    "&vbCrLf Response.Write " "&HtmlStrReplace(rs("JobResume"))&"
    "&vbCrLf If rs("ReplyContent")<>"" Then response.Write "回复内容:
    "&HtmlStrReplace(rs("ReplyContent")) Response.Write "
    "&vbCrLf rs.movenext Wend Else response.Write "
    暂无相关信息
    " Exit Function End If Response.Write ""&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write " "&vbCrLf Response.Write "
    "&vbCrLf Response.Write "共"&idcount&"条记录 页次:"&page&"/"&pagec&" 每页:"&pages&"条记录" & vbCrLf pagenmin = page - pagenc pagenmax = page+pagenc If(pagenmin<1) Then pagenmin = 1 If(page>1) Then response.Write ("9 ") If page - (pagenc * 2 + 1)<= 0 Then pageprevious = 1 Else pageprevious = page - (pagenc * 2 + 1) End If If(pagenmin>1) Then response.Write ("3 ") If(pagenmax>pagec) Then pagenmax = pagec For i = pagenmin To pagenmax If(i = page) Then response.Write (" "& i &" ") Else response.Write ("["& i &"]") End If Next If page+(pagenc * 2 + 1)>= pagec Then pagenext = pagec Else pagenext = page+(pagenc * 2 + 1) End If If(pagenmax: ") If(page:") Response.Write "
    "&vbCrLf rs.Close Set rs = Nothing End Function %>