resume_contact.asp

直接附加数据库！ 修改 Include/ Class_Main.asp 为自己信息 后台admin admin 绍兴人才网程序

                          <TD align="right" vAlign=top>毕业年份：</TD>
                          <TD class="navy"><%= Tmp(16,0)&"年" %></TD>
                        </TR>
                        <TR>
                          <TD align=right>工作年限：</TD>
                          <TD class="navy"><%= Works_Str %></TD>
                          <TD align="right" vAlign=top>职&nbsp;&nbsp;&nbsp;&nbsp;称：</TD>
                          <TD class="navy"><%= JobTitle_Str %></TD>
                        </TR>
                      </TBODY>
                    </TABLE>
<!--基本信息结束--> 
					</TD>
                  <TD width="25%" align=middle valign="top">
<!--个人照片--> 
                    <table width="100%" border="0" cellspacing="0" class="text01">
                      <tr> 
                        <td align="center"><%= PhotoUrl %></td>
                      </tr>
                    </table>
                    <!--个人照片结束-->
                    <table width="100%" border="0" cellspacing="0" cellpadding="0">
                      <tr>
                        <td height="30" align="center"><%= Video_Str %></td>
                      </tr>
                    </table> </TD>
                </TR>
              </TBODY>
            </TABLE>
            <TABLE cellSpacing=1 cellPadding=3 width="95%" border=0>
              <TBODY>
                <TR> 
                  <TD vAlign=bottom> <HR width="100%" SIZE=1 noShade color="#999999"> 
                  </TD>
                </TR>
                <TR> 
                  <TD class=subtitleline><STRONG class=font14b>教育/培训</STRONG></TD>
                </TR>
                <TR> 
                  <TD align=middle>
<!--教育/培训--> 
				  <TABLE cellSpacing=1 cellPadding=3 width="92%" border=0>
<% 
SQL = "Select Begin_Year,Begin_Month,End_Year,End_Month,SchoolName,Speciality,Edus From [pH_Person_Education] Where Perid='"&Perid&"' Order By Type"
Set Rs = Conn.Execute(SQL)
If Not Rs.Eof Then
 While Not Rs.eof
  BeginAndEndTime = Rs("Begin_Year")&"年"&Rs("Begin_Month")&"月 - "&Rs("End_Year")&"年"&Rs("End_Month")&"月"
  SchoolName      = Rs("SchoolName")
  Speciality      = Rs("Speciality")
  Edus            = Cls_Edus(Rs("Edus"))
 %>
                      <TR align="left"> 
                        <TD class=navy><%= BeginAndEndTime %></TD>
                          
                        <TD class=navy><%= SchoolName  %></TD>
                          
                        <TD class=navy><%= Speciality %></TD>
                          
                        <TD class=navy><%= Edus %></TD>
                        </TR>
<% 
  Rs.Movenext
 Wend 
Else
 Response.write "<TR align=""left""><TD class=navy>&nbsp; </TD><TD class=navy>&nbsp;</TD><TD class=navy>&nbsp;</TD><TD class=navy>&nbsp;</TD></TR>"
End if
Rs.Close
 %>
	
                    </TABLE>
<!--教育/培训 结束--> 
					</TD>
                </TR>
              </TBODY>
            </TABLE>
            <TABLE cellSpacing=1 cellPadding=3 width="95%" border=0>
              <TBODY>
                <TR> 
                  <TD vAlign=bottom> <HR width="100%" SIZE=1 noShade color="#999999"> 
                  </TD>
                </TR>
                <TR> 
                  <TD class=subtitleline vAlign=top><STRONG 
            class=font14b>工作经历</STRONG></TD>
                </TR>
<!--工作经历-->
<% 
SQL = "Select Begin_Year,Begin_Month,End_Year,End_Month,CompanyName,Properity,Industry,WorkName,WorkMemo,Demission From [pH_Person_Work] Where Perid='"&Perid&"'"
Set Rs = Conn.Execute(SQL)
If Not Rs.Eof Then
 While Not Rs.eof
  BeginAndEndTime = Rs("Begin_Year")&"年"&Rs("Begin_Month")&"月 - "&Rs("End_Year")&"年"&Rs("End_Month")&"月"
  CompanyName     = Rs("CompanyName")
  Properity       = Cls_Properity(Rs("Properity"))
  Industry        = Cls_Industry(Rs("Industry"))
  WorkName        = Rs("WorkName")
  WorkMemo        = Rs("WorkMemo")
  Demission       = Rs("Demission")
   
 %>
                <TR> 
                  <TD align=middle><TABLE cellSpacing=1 cellPadding=3 width="92%" border=0>
                      <TBODY>
                        <TR> 
                          <TD><STRONG class=font14b>▌<%= CompanyName %></STRONG>&nbsp;&nbsp; <SPAN 
                  class=navy><%= BeginAndEndTime %></SPAN></TD>
                        </TR>
                        <TR> 
                          <TD align=middle> <TABLE cellSpacing=1 cellPadding=3 width="92%" border=0>
                              <TBODY>
                                <TR> 
                                  <TD width=250>企业性质：<span class=navy><%= Properity %></span></TD>
                                  <TD>行业类别：<span class=navy><%= Industry %></span></TD>
                                </TR>
                                <TR> 
                                  <TD colSpan=2>担任职位：<span class=navy><%= WorkName %></span></TD>
                                </TR>
                                <TR> 
                                  <TD colSpan=2>工作描述：<span class=navy><%= WorkMemo %></span></TD>
                                </TR>
                                <TR>
                                  <TD colSpan=2>离职原因：<span class=navy><%= Demission %></span></TD>
                                </TR>
                              </TBODY>
                            </TABLE></TD>
                        </TR>
                      </TBODY>
                    </TABLE></TD>
                </TR>
<% 
  Rs.Movenext
 Wend
Else
 Response.write "<tr><td></td></tr>"
End if
Rs.Close 
 %>
<!--工作经历 结束-->
            </TABLE>
            <TABLE id=tbl_skill cellSpacing=1 cellPadding=3 width="95%" border=0>
              <TBODY>
                <TR> 
                  <TD vAlign=bottom> <HR width="100%" SIZE=1 noShade color="#999999"> 
                  </TD>
                </TR>
                <TR> 
                  <TD class=subtitleline><STRONG class=font14b>技能专长</STRONG></TD>
                </TR>
                <TR> 
                  <TD align=middle> 
                    <table width="92%" border="0" cellspacing="1">
                      <tr> 
                        <td width="18%" align="right">语&nbsp;&nbsp;言&nbsp;&nbsp;能&nbsp;&nbsp;力：</td>
                        <td width="82%" class="navy"><%= Language_Str %></td>
                      </tr>
                      <tr> 
                        <td width="18%" align="right">计&nbsp;算&nbsp;机&nbsp;能&nbsp;力：</td>
                        <td width="82%" class="navy"><%= Computer_Str %></td>
                      </tr>
                      <tr> 
                        <td width="18%" align="right">技&nbsp;&nbsp;能&nbsp;&nbsp;专&nbsp;&nbsp;长：</td>
                        <td width="82%" class="navy"><%= Skill_Memo %></td>
                      </tr>
                    </table>
                  </TD>
                </TR>
              </TBODY>
            </TABLE>
            <TABLE id=tbl_progress cellSpacing=1 cellPadding=3 width="95%" border=0>
              <TBODY>
                <TR> 
                  <TD vAlign=bottom> <HR width="100%" SIZE=1 noShade color="#999999"> 
                  </TD>
                </TR>
                <TR> 
                  <TD vAlign=bottom class=subtitleline><STRONG class=font14b>求职意向</STRONG></TD>
                </TR>
                <TR> 
                  <TD vAlign=bottom> 
                    <table width="92%" border="0" cellspacing="1">
                      <tr valign="top"> 
                        <TD align="right">求&nbsp;&nbsp;职&nbsp;&nbsp;类&nbsp;&nbsp;型：</TD>
                        <td class="navy"><%= PerType_Str %></td>
                      </tr>
                      <tr valign="top"> 
                        <TD align="right">希&nbsp;&nbsp;望&nbsp;&nbsp;职&nbsp;&nbsp;位：</TD>
                        <td class="navy"><%= WorkWillClass_Str %></td>
                      </tr>
                      <tr valign="top"> 
                        <TD align="right">职&nbsp;&nbsp;位&nbsp;&nbsp;名&nbsp;&nbsp;称：</TD>
                        <td class="navy"><%= WorkWill_Str %></td>
                      </tr>
                      <tr valign="top"> 
                        <TD align="right">希&nbsp;&nbsp;望&nbsp;&nbsp;地&nbsp;&nbsp;区：</TD>
                        <td class="navy"><%= AreaWill_Str %></td>
                      </tr>
                      <tr valign="top"> 
                        <td width="110" align="right">待&nbsp;&nbsp;遇&nbsp;&nbsp;要&nbsp;&nbsp;求：</td>
                        <td class="navy"><%= Deal_Str %></td>
                      </tr>
                      <tr valign="top"> 
                        <td width="110" align="right">到&nbsp;&nbsp;职&nbsp;&nbsp;时&nbsp;&nbsp;间：</td>
                        <td class="navy"><%= Posts_Str %></td>
                      </tr>
                    </table></TD>
                </TR>
                <TR> 
                  <TD vAlign=bottom><HR width="100%" SIZE=1 noShade color="#999999"></TD>
                </TR>
                <TR> 
                  <TD class=subtitleline><STRONG class=font14b><strong>其他资料</strong></STRONG></TD>
                </TR>
                <TR> 
                  <TD align=middle> 
                    <table width="92%" border="0" cellspacing="1">
                      <tr valign="top"> 
                        <td width="18%" align="right">自&nbsp;&nbsp;我&nbsp;&nbsp;评&nbsp;&nbsp;价：</td>
                        <td width="82%" class="navy"><%= Appraise_Str %></td>
                      </tr>
                      <tr valign="top"> 
                        <td width="18%" align="right">发&nbsp;&nbsp;展&nbsp;&nbsp;方&nbsp;&nbsp;向：</td>
                        <td width="82%" class="navy"><%= Develop_Str %></td>
                      </tr>
                      <tr valign="top"> 
                        <td width="18%" align="right">其&nbsp;&nbsp;他&nbsp;&nbsp;要&nbsp;&nbsp;求：</td>
                        <td width="82%" class="navy"><%= Other_Str %></td>
                      </tr>
                    </table></TD>
                </TR>
              </TBODY>
            </TABLE>
            <TABLE id=tbl_contact height=0 cellSpacing=1 cellPadding=3 width="95%" 
      border=0>
              <TBODY>
                <TR> 
                  <TD width="627" vAlign=bottom> <HR width="100%" SIZE=1 noShade color="#999999"> 
                  </TD>
                </TR>
                <TR> 
                  <TD class=subtitleline><STRONG class=font14b>联系方式</STRONG></TD>
                </TR>
               
                <TR> 
                  <TD align=left class="navy">

<%
If ContactKeep = 1 Then '查看联系方式是否被设置成保密状态
 Call ContactKeep_Sub()
ElseIf IsArray(Session("Company")) And Session("Nc_Vip") = 1 Then '高级会员
  Comid = Session("Company")(2)
  Set Re = Conn.Execute("Select Nc_Vip_Clicks From [pH_Company_Base] Where Comid='"&Comid&"'")
   VipClick = Re(0)
   Re.Close
   If VipClick >= 0 Then
	   Call View_Contact() '查看联系方式
   Else
	   Call View_ClickOver() '查看的次数用完
   End if
	
Else '免费会员
 Call View_FreeToVip()
End if 
%>

<% Sub View_Contact() '直接显示联系方式%>
<TABLE id=tbl_contactinfo height=0 cellSpacing=1 cellPadding=3 
            width="92%" border=0>
                      <TBODY>
                        <TR valign="top"> 
                          <TD width=70>联系电话：</TD>
                          <TD width=250 class="navy"><%= Tmp(20,0) %></TD>
                          <TD width=70 align=right>手机号码：</TD>
                          <TD class="navy"><%= Tmp(55,0) %></TD>
                        </TR>
                        <TR valign="top"> 
                          <TD width=70>电子邮件：</TD>
                          <TD width=250 class="navy"><%= UserEmail %></TD>
                          <TD width=70 align=right>MSN/QQ：</TD>
                          <TD class="navy"><%= Tmp(21,0) %></TD>
                        </TR>
                        <TR valign="top"> 
                          <TD width=70>个人网站：</TD>
                          <TD width=250 class="navy"><%= Tmp(22,0) %></TD>
                          <TD width=70 align=right>邮政编码：</TD>
                          <TD class="navy"><%= Tmp(56,0) %></TD>
                        </TR>
                        <TR valign="top"> 
                          <TD>通讯地址：</TD>
                          <TD colspan="3" class="navy"><%= Tmp(57,0) %></TD>
                        </TR>
                      </TBODY>
                    </TABLE>
<% End Sub
 Sub View_FreeToVip() '免费会员需要升级
 %>
                    <TABLE cellSpacing=2 cellPadding=0 width="92%" border=0>
                      <TBODY>
                        <TR> 
                          <TD class="navy">对不起，只有收费会员才能查看联系方式！请与我们取得联系进行帐号升级...</TD>
                        </TR>
                      </TBODY>
                    </TABLE>
<% End Sub 
 Sub View_ToContact() '点击后查看联系方式
%>
<TABLE cellSpacing=2 cellPadding=0 width="92%" border=0>

<TR> 
  <TD align=center><input type="button" name="But1" Value=" 查看该会员的联系方式 " onClick="location.href='Resume_Contact.asp?Param=<%= Perid %>'"></TD>
</TR>
</TABLE>
<% End Sub 
 Sub View_ClickOver() '显示联系方式的用完
%>
<TABLE cellSpacing=2 cellPadding=0 width="92%" border=0>
<TR> 
    <td height="25"  colspan="4"> 对不起，您的VIP会员查看联系方式的次数已经用完！请<a href="../../Public/Contact.asp"><u>联系我们进行续费</u></a>！</td>>
</TR>
</TABLE>
<% End Sub %>

                  </TD>
                </TR>
              </TBODY>
            </TABLE>
          </TD>
        </TR>
        <TR> 
          <TD align=middle>&nbsp;</TD>
        </TR>
        <TR> 
          <TD align=center height=30>
            <input type="button" name="persondb" value="加入英才库" onclick="javascript:showalert('persondb')"> 
            <input type="button" name="send" value="邀请面试" onclick="javascript:showalert('send')"> 
			<input type="button" name="video" value="邀请视频面试" onclick="javascript:showalert('video')"> 
            <input type="button" name="Submit3" value="打印简历" onClick="window.print();">
            <input type="submit" name="Submit4" value="关闭窗口" onClick="window.close();">
			<input name="perid" type="hidden" id="perid" value="<%= Perid %>">
          </TD>
        </TR>
        <TR> 
          <TD>&nbsp;</TD>
        </TR>
		</Form>
      </TBODY>
    </TABLE>
  </center>
</div>
</body>
</html>

<% 
Sub ContactKeep_Sub()
 '该会员将联系方式设置成保密状态
 Response.write "对不起！该会员将联系方式设置成保密状态,暂时不能查看..."
End Sub

'//关闭数据库连接
Set Rs = Nothing
CloseDB
 %>