<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Include/conn.asp" -->
<!--#include file="../Include/ConnDatabase.asp" -->
<!--#include file="../Include/NoHackSql.Asp" -->
<%
'=====================================
'天天企业网站管理系统  TianTianCMS
'天天网络科技工作室版权所有
'官方网站http://www.ip126.com
'技术支持论坛 http://bbs.ip126.com/
'QQ:530051328 mail:bbfhq@163.com
'=====================================
%>
<%call SiteInfo
headid=7
Seotitle="My Candidates"
%>
<!--#include file="Head.Asp" -->
<%
if not (session("MemName")<>"" and session("MemLogin")="Succeed") then
  response.Write "<script language=javascript>alert('Please Login First！');location.href='Index.asp';</script>"
  response.end
end if
%>

<TABLE width="960" border=0 align="center" cellPadding=0 cellSpacing=0 bgcolor="#FFFFFF">
  <TR>
    <TD height="5"></TD>
  </TR>
  <TR> 
    <TD height="172" ><table width="960" height="100%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td class="tdbg_left"  width="190" height="179" valign="top" > <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="34" class="title_left">&nbsp;&nbsp;&nbsp;<img src="../images/smallbook.jpg" width="10" height="10">&nbsp;&nbsp;User Login 
                </td>
              </tr>
              <tr> 
                <td height="5"></td>
              </tr>
              <tr> 
                <td height="10"><table width="88%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td> 
                       
	<iframe src="login.asp"  frameborder="0" border="0px" scrolling="no" class="frame" height="120px" width="160px"></iframe>
                      </td>
                    </tr>
                  </table></td>
              </tr>
              <tr> 
                <td height="5"></td>
              </tr>
            </table>
            <table width="100%" border="0" cellpadding="0" cellspacing="0">
              <tr> 
                <td height="34" colspan="2" class="title_left">&nbsp;&nbsp;&nbsp;<img src="../images/smallbook.jpg" width="10" height="10">&nbsp;&nbsp;Member Center</td>
              </tr>
     
 	<%=WebMenu()%>

            </table></td>
          <td width="6"></td>
          <td valign="top"><table Class=border width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
              <tr> 
                <td height="206" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td class="
title_right" height="32">&nbsp;&nbsp;&nbsp;<img src="../images/smallbook.jpg" width="10" height="10">&nbsp;Member Center</td>
                    </tr>
			<TR> 
              <TD    
                  height=1> 
 <table width="100%" height="19" border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr> 
                            <td width="80%" height="18" bgcolor="#eeeeee"><%=WebLocation()%>My Job Application</td>
                        <td width="79%" bgcolor="#eeeeee">&nbsp; </td>
                  </tr>
                  <tr> 
                    <td height="1" colspan="2" bgcolor="#999999"></td>
                  </tr>
                </table>
                <table width="100%" border="0" align="center" cellpadding="0" cellspacing="3" bgcolor="#FBFEFF">
                  <tr> 
                    <td height="8"></td>
                  </tr>
                 
                  <tr> 
                        <td>
	<table border="0" cellpadding="0" cellspacing="0" width="100%">
        <tr>
          <td height="18">&nbsp;</td>
        </tr>
        <tr>
          <td><%=WebContent()%></td>
        </tr>
        <tr>
          <td height="20">&nbsp;</td>
        </tr>
      </table>

			</td>
                  </tr>             
                  <tr> 
                    <td height="8"><div align="right"></div></td>
                  </tr>
                </table> 
                      </TD>
            </TR>
                  </table>
                  
                </td>
              </tr>
			  
            </table></td>
        </tr>
      </table></td>
  </tr>
</table>
<!--#include file="Foot.Asp"-->
<%
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="TianTianCMS_Talents "
  dim datawhere
	  datawhere="where MemID="&conn.execute("select * from TianTianCMS_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 "<table width=""95%"" border=""0"" align=""center"" cellpadding=""3"" cellspacing=""5"">"&VbCrLf
		Response.Write "  <tr>"&VbCrLf
		Response.Write "    <td style=""background:url(images/bg1.gif) repeat-x left bottom"">Apply for ：<strong style=""color:red"">"&rs("TalentsName")&"</strong> SEND："&FormatDate(rs("Addtime"),13)&""&VbCrLf
		if rs("ReplyTime")<>"" then response.write "RE："&FormatDate(rs("ReplyTime"),13)&""
		Response.Write "    </td>"&VbCrLf
		Response.Write "  </tr>"&VbCrLf
		Response.Write "  <tr>"&VbCrLf
		Response.Write "    <td style=""line-height:200%"">Name："&rs("Linkman")&"<br />"&VbCrLf
	  if rs("Sex")="先生" then
	    response.write "Sex: Male<br />"&VbCrLf
	  else
	    response.write "Sex: Female<br />"&VbCrLf
      end if
	  		Response.Write "      BirthDate："&FormatDate(rs("BirthDate"),13)&"<br />"&VbCrLf
		Response.Write "      Stature："&int(rs("Stature"))&"CM<br />"&VbCrLf
	  if rs("Marriage")="未婚" then
	    response.write "Marriage: Unmarried<br />"&VbCrLf
	  else
	    response.write "Marriage: Married<br />"&VbCrLf
      end if
		Response.Write "      RegResidence："&rs("RegResidence")&"<br />"&VbCrLf
		Response.Write "      Address："&rs("Address")&"<br />"&VbCrLf
		Response.Write "      Post Code："&rs("ZipCode")&"<br />"&VbCrLf
		Response.Write "	  Tel："&rs("Telephone")&"<br />"&VbCrLf
		Response.Write "      Mobile："&rs("Mobile")&"<br />"&VbCrLf
		Response.Write "      QQ："&rs("userqq")&"<br />"&VbCrLf
		Response.Write "      Email："&rs("Email")&"<br />"&VbCrLf
		Response.Write "      <strong style=""color:red"">Education：</strong><br />"&VbCrLf
		Response.Write "      "&HtmlStrReplace(rs("EduResume"))&"<br />"&VbCrLf
		Response.Write "      <strong style=""color:red"">Experience：</strong><br />"&VbCrLf
		Response.Write "      "&HtmlStrReplace(rs("JobResume"))&"<br />"&VbCrLf
		if rs("ReplyContent")<>"" then response.write "<strong style=""color:blue"">Reply：</strong><br />"&HtmlStrReplace(rs("ReplyContent"))
		Response.Write "      </td>"&VbCrLf
		Response.Write "  </tr>"&VbCrLf
		Response.Write "</table>"&VbCrLf
	  rs.movenext
    wend
  else
    response.write "<center>No Information</center>"
	exit function
  end If
Call Webpage()'调用翻页  
  rs.close
  set rs=nothing
end function
%>