<!--#include file="CommonCode.asp"-->
<!--#include file="../Include/PowerEasy.Common.Job.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************

Dim ManageType
Sub Execute()
    ManageType = Trim(Request("ManageType"))
    FileName = "User_Job.asp?Action=" & Action
    strFileName = FileName

    Response.Write "<html><head><title>我的简历管理</title>" & vbCrLf
    Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
    Response.Write "<link href='User_Style.css' rel='stylesheet' type='text/css'>" & vbCrLf
    Response.Write "</head>" & vbCrLf
    Response.Write "<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'>" & vbCrLf
    Select Case Action
    Case "Resume"
        Call ModifyResume
    Case "ResumePreview", "ResumePrint"
        Call ResumePreview
    Case "SaveAddResume", "SaveModifyResume"
        Call SaveResume
    Case "DelPositionSupplyInfo", "DeletePositionSupplyInfo", "DelAllPositionSupplyInfo"
        Call DeleteSupplyInfo
    Case "Supply"
        Call Supply
    Case "MyResumePreview", "MyResumePrint"
        Call MyResumePreview
    Case "MyPositionPreview"
        Call MyPositionPreview
    End Select
    If FoundErr = True Then
        Call WriteErrMsg(ErrMsg, ComeUrl)
    End If
    Response.Write "</body></html>"
    Call CloseConn
End Sub

Sub ResumePreview()
    Dim rsResume, sqlResume
    Dim ResumeID, MyPhoto
    ResumeID = Request("ResumeID")
    
    If ResumeID = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>请指定要所需的简历ID</li>"
        Exit Sub
    Else
        ResumeID = PE_CLng(ResumeID)
    End If

    sqlResume = "select * from PE_Resume where ResumeID=" & ResumeID & ""
    Set rsResume = Conn.Execute(sqlResume)
    If rsResume.BOF And rsResume.EOF Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>没有任何简历信息！</li>"
    End If
    If FoundErr = True Then
        rsResume.Close
        Set rsResume = Nothing
        Exit Sub
    End If

    If rsResume("Photo") <> "" Then
        MyPhoto = rsResume("Photo")
    Else
        MyPhoto = "UploadPhotos/j_no_photo.gif"
    End If

    If Action <> "ResumePrint" Then
        Response.Write "<br><table width='100%'><tr><td align='left'>我的简历管理&nbsp;&gt;&gt;&nbsp;<a href='User_Job.asp?Action=Resume'>维护我的简历</a>&nbsp;&gt;&gt;&nbsp;预览简历</td></tr></table>"
    Else
        Response.Write "<br><table width='100%'><tr><td align='right'><A href=""javascript:window.print()"">【打印简历】</A>&nbsp;&nbsp;<A href=""javascript:window.close()"">【关闭窗口】</A></td></tr></table>"
    End If
    Response.Write "<table width='100%' border='0' align='center' cellpadding='5' cellspacing='1' class='border'>"
    Response.Write "    <tr class='title'>"
    Response.Write "      <td height='22' align='center' colspan='2'><b>个 人 简 历</b></td>"
    Response.Write "    </tr>"
    Response.Write "  <tr align='center'>"
    Response.Write "    <td class='tdbg' height='100' valign='top'>"
    Response.Write "      <table width='100%' border='0' cellpadding='2' cellspacing='1' bgcolor='#FFFFFF'>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='120' align='right' class='tdbg5'>姓名：</td>"
    Response.Write "            <td width='120'>" & rsResume("IntervieweeName")
    Response.Write "            </td>"
    Response.Write "            <td width='120' align='right' class='tdbg5'>学历：</td>"
    Response.Write "            <td width='120'>" & GetEducation(rsResume("Education"))
    Response.Write "            </td>"
    Response.Write "            <td width='120' align='right' class='tdbg5'>政治面貌：</td>"
    Response.Write "            <td width='120'>" & rsResume("PoliticalFeature")
    Response.Write "</td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='120' align='right' class='tdbg5'>年龄：</td>"
    Response.Write "            <td width='120'>" & rsResume("Age")
    Response.Write "            </td>"
    Response.Write "            <td width='120' align='right' class='tdbg5'>身高：</td>"
    Response.Write "            <td>" & rsResume("Height")
    Response.Write "            </td>"
    Response.Write "            <td width='120' align='right' class='tdbg5'>体重：</td>"
    Response.Write "            <td>" & rsResume("Weight")
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='120' align='right' class='tdbg5'>民族：</td>"
    Response.Write "            <td>" & rsResume("Nationality")
    Response.Write "            </td>"
    Response.Write "            <td width='120' align='right' class='tdbg5'>婚姻状况：</td>"
    Response.Write "            <td>" & GetMarital(rsResume("Marital"))
    Response.Write "            </td>"
    Response.Write "            <td width='120' align='right' class='tdbg5'>健康状况：</td>"
    Response.Write "            <td>" & rsResume("Health")
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='120' align='right' class='tdbg5'>性别：</td>"
    Response.Write "            <td>" & GetSex(rsResume("Sex"))
    Response.Write "            <td width='120' align='right' class='tdbg5'>户口所在地：</td>"
    Response.Write "            <td>" & rsResume("BirthPlace")
    Response.Write "            </td>"
    Response.Write "            <td width='120' align='right' class='tdbg5' >目前所在地：</td>"
    Response.Write "            <td>" & rsResume("CurrentAddress")
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='120' align='right'class='tdbg5'>所学专业：</td>"
    Response.Write "            <td colspan='1'>" & rsResume("Profession")
    Response.Write "            </td>"
    Response.Write "            <td width='120' align='right'class='tdbg5'>毕业院校：</td>"
    Response.Write "            <td colspan='3'>" & rsResume("GraduateSchool")
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "        </table>"
    Response.Write "      </td>"
    Response.Write "      <td class='tdbg'   valign='top'>"
    Response.Write "        <table width='98%' border='0' cellpadding='2' cellspacing='1' bgcolor='#FFFFFF'>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td  align='center' width='120' height='120'>"
    Response.Write "              <img id='showphoto' src='" & strInstallDir & "Job/" & MyPhoto & "' width='100' height='120'>"
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "        </table>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr>"
    Response.Write "      <td class='tdbg' height='100' valign='top' colspan='2'>"
    Response.Write "        <table width='100%' border='0' cellpadding='2' cellspacing='1' bgcolor='#FFFFFF'>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='120' align='right'class='tdbg5'>QQ号码：</td>"
    Response.Write "            <td width='180'>" & rsResume("QQ")
    Response.Write "            </td>"
    Response.Write "            <td width='120' align='right'class='tdbg5'>手机号码：</td>"
    Response.Write "            <td width='180'>" & rsResume("MobilePhone")
    Response.Write "            </td>"
    Response.Write "            <td width='120' align='right'class='tdbg5'>联系电话：</td>"
    Response.Write "            <td>" & rsResume("Telephone")
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='120' align='right'class='tdbg5'>E_mail：</td>"
    Response.Write "            <td>" & rsResume("E_mail")
    Response.Write "            </td>"
    Response.Write "            <td width='120' align='right'class='tdbg5'>联系地址：</td>"
    Response.Write "            <td>" & rsResume("Address")
    Response.Write "            </td>"
    Response.Write "            <td width='120' align='right'class='tdbg5'>可到职时间：</td>"
    Response.Write "            <td width='120'>" & rsResume("AvailableDate")
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='120' align='right'class='tdbg5'>" & GetForeignLanguageKind(rsResume("ForeignLanguageKind")) & "：</td>"
    Response.Write "            <td >" & rsResume("ForeignLanguageLeval")
    Response.Write "            </td>"
    Response.Write "            <td width='120' align='right'class='tdbg5'>国语：</td>"
    Response.Write "            <td>" & rsResume("MotherLanguageLeval")
    Response.Write "            </td>"
    Response.Write "            <td width='120' align='right'class='tdbg5'>其它语言：</td>"
    Response.Write "            <td>" & rsResume("OtherLanguageLeval")
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='120' valign='top'  align='right'class='tdbg5'>工作经历|教育情况：</td>"
    Response.Write "            <td colspan='5'>" & rsResume("WorkExperience")
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='120' align='right' valign='top' class='tdbg5'>能力特长：</td>"
    Response.Write "            <td colspan='5'>" & rsResume("ProfessionalAbility")
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "        </table>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "  </table>"
    If Action <> "ResumePrint" Then
        Response.Write "  <p align='center'>"
        Response.Write "   <input name='Resume' type='button'  id='Resume' value=' 返回 ' onClick=""window.location.href='User_Job.asp?Action=Resume';"" style='cursor:hand;'>"
        Response.Write "&nbsp;&nbsp;<a href='User_Job.asp?Action=ResumePrint&ResumeID=" & rsResume("ResumeID") & "' target='_blank'><font color='blue'>【打印】</font></a>"
        Response.Write "</p>"
    End If
End Sub



Sub ModifyResume()
    Call ShowJS_Resume
    Dim rsResume, sqlResume

    sqlResume = "select ResumeID,IntervieweeName,Nationality,PoliticalFeature,Age,Height,Weight,Sex,Photo,Marital,Health,BirthPlace,CurrentAddress,QQ,Telephone,MobilePhone,Address,E_mail,GraduateSchool,Education,Profession,AvailableDate,WorkExperience,ProfessionalAbility,ForeignLanguageKind,ForeignLanguageLeval,MotherLanguageLeval,OtherLanguageLeval from  PE_Resume  where UserName='" & UserName & "'"
    Set rsResume = Conn.Execute(sqlResume)
    If rsResume.BOF And rsResume.EOF Then
        Call AddResume
        rsResume.Close
        Set rsResume = Nothing
        Exit Sub
    End If
    Response.Write "<script language='javascript'>" & vbCrLf
    Response.Write "var tID=0;" & vbCrLf
    Response.Write "function ShowTabs(ID){" & vbCrLf
    Response.Write "  if(ID!=tID){" & vbCrLf
    Response.Write "    TabTitle[tID].className='title5';" & vbCrLf
    Response.Write "    TabTitle[ID].className='title6';" & vbCrLf
    Response.Write "    Tabs[tID].style.display='none';" & vbCrLf
    Response.Write "    Tabs[ID].style.display='';" & vbCrLf
    Response.Write "    tID=ID;" & vbCrLf
    Response.Write "    if(ID==1){" & vbCrLf
    Response.Write "      editorWorkExperience.yToolbarsCss();" & vbCrLf
    Response.Write "      editorProfessionalAbility.yToolbarsCss();" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "</script>" & vbCrLf

    Response.Write "<br><table width='100%'><tr><td align='left'>我的简历管理&nbsp;&gt;&gt;&nbsp;维护我的简历</td></tr></table>"
    Response.Write "<form method='post' action='User_Job.asp' name='myform' onSubmit='return CheckForm();'>"
    Response.Write "<table width='100%'  border='0' align='center' cellpadding='0' cellspacing='0'>" & vbCrLf
    Response.Write "        <tr align='center'>" & vbCrLf
    Response.Write "            <td id='TabTitle' class='title6' onclick='ShowTabs(0)'>基本信息</td>" & vbCrLf
    Response.Write "            <td id='TabTitle' class='title5' onclick='ShowTabs(1)'>经验能力</td>" & vbCrLf
    Response.Write "            <td id='TabTitle' class='title5' onclick='ShowTabs(2)'>联系信息</td>" & vbCrLf
    Response.Write "            <td>&nbsp;</td>" & vbCrLf
    Response.Write "        </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf

    Response.Write "<table width='100%'  border='0' align='center' cellpadding='5' cellspacing='1' class='border'><tr class='tdbg'><td height='100' valign='top'>" & vbCrLf
    Response.Write "  <table width='95%' align='center' cellpadding='2' cellspacing='1' bgcolor='#FFFFFF'>" & vbCrLf
    Response.Write "  <tbody id='Tabs' style='display:'>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>姓    名：</td>" & vbCrLf
    Response.Write "        <td width='38%'><input name='IntervieweeName' id='IntervieweeName' size='18' maxlength='20' value='" & rsResume("IntervieweeName") & "'> <font color='#FF0000'>*</font></td>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>学    历：</td>" & vbCrLf
    Response.Write "        <td width='38%'>" & vbCrLf
    Response.Write "            <select name='Education' size='1' style=width:139px>" & vbCrLf
    Response.Write "               <option value='" & rsResume("Education") & "' selected>" & GetEducation(rsResume("Education")) & "</option>" & vbCrLf
    Response.Write "               <option value='1'>----  小学 ---</option>" & vbCrLf
    Response.Write "               <option value='2'>----  初中 ---</option>" & vbCrLf
    Response.Write "               <option value='3' >----  高中 ---</option>" & vbCrLf
    Response.Write "               <option value='4'>----  中专 ---</option>" & vbCrLf
    Response.Write "               <option value='5'>----  大专 ---</option>" & vbCrLf
    Response.Write "               <option value='6' >----  本科 ---</option>" & vbCrLf
    Response.Write "               <option value='7'>----  硕士 ---</option>" & vbCrLf
    Response.Write "               <option value='8'>----  博士 ---</option>" & vbCrLf
    Response.Write "               <option value='9'>----  博士后 ---</option>" & vbCrLf
    Response.Write "               <option value='10'>----  其它 ---</option>" & vbCrLf
    Response.Write "            </select>" & vbCrLf
    Response.Write "        </td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>民    族：</td>" & vbCrLf
    Response.Write "        <td width='38%'><input name='Nationality' id='Nationality' size='18' maxlength='20' value='" & rsResume("Nationality") & "'></td>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>政治面貌：</td>" & vbCrLf
    Response.Write "        <td width='38%'><input name='PoliticalFeature' id='PoliticalFeature' size='18' maxlength='20' value='" & rsResume("PoliticalFeature") & "'></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>年    龄：</td>" & vbCrLf
    Response.Write "        <td width='38%'><input name='Age' id='Age' size='18' maxlength='20' value='" & rsResume("Age") & "'></td>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>性    别：</td>" & vbCrLf
    Response.Write "        <td width='38%'>" & vbCrLf
    Response.Write "            <select name='Sex' size='1' style=width:139px>"
    Response.Write "               <option value='" & rsResume("Sex") & "' selected>" & GetSex(rsResume("Sex")) & "</option>" & vbCrLf
    Response.Write "               <option value='1'>-----   男 ----</option>" & vbCrLf
    Response.Write "               <option value='2'>-----   女 ----</option>" & vbCrLf
    Response.Write "               <option value='3' >----- 保密 ----</option>" & vbCrLf
    Response.Write "             </select>" & vbCrLf
    Response.Write "        </td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>身    高：</td>" & vbCrLf
    Response.Write "        <td width='38%'><input name='Height' id='Height' size='18' maxlength='20' value='" & rsResume("Height") & "'></td>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>体    重：</td>" & vbCrLf
    Response.Write "        <td width='38%'><input name='Weight' id='Weight' size='18' maxlength='20' value='" & rsResume("Weight") & "'></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>婚姻状况：</td>" & vbCrLf
    Response.Write "        <td width='38%'>" & vbCrLf
    Response.Write "            <select name='Marital' size='1' style=width:139px>" & vbCrLf
    Response.Write "               <option value='" & rsResume("Marital") & "' selected>" & GetMarital(rsResume("Marital")) & "</option>" & vbCrLf
    Response.Write "               <option value='1'>----  未婚 -----</option>" & vbCrLf
    Response.Write "               <option value='2'>---- 已婚 -----</option>" & vbCrLf
    Response.Write "               <option value='3' >----  离异 -----</option>" & vbCrLf
    Response.Write "               <option value='4'>----  其它 -----</option>" & vbCrLf
    Response.Write "            </select>" & vbCrLf
    Response.Write "        </td>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>健康状况：</td>" & vbCrLf
    Response.Write "        <td width='38%'><input name='Health' id='Health' size='18' maxlength='20' value='" & rsResume("Health") & "'></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>外语语种：</td>" & vbCrLf
    Response.Write "        <td width='38%'>" & vbCrLf
    Response.Write "            <select name='ForeignLanguageKind' size='1' style=width:139px>" & vbCrLf
    Response.Write "               <option value='" & rsResume("ForeignLanguageKind") & "' selected>" & GetForeignLanguageKind(rsResume("ForeignLanguageKind")) & "</option>" & vbCrLf
    Response.Write "               <option value='1'>---  英语 ---</option>" & vbCrLf
    Response.Write "               <option value='2'>---  日语 ---</option>" & vbCrLf
    Response.Write "               <option value='3'>---  德语 ---</option>" & vbCrLf
    Response.Write "               <option value='4'>---  法语 ---</option>" & vbCrLf
    Response.Write "               <option value='5'>---  西班牙语 --</option>" & vbCrLf
    Response.Write "            </select>" & vbCrLf
    Response.Write "        </td>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>外语水平：</td>" & vbCrLf
    Response.Write "        <td width='38%'><input name='ForeignLanguageLeval' id='ForeignLanguageLeval' size='18' maxlength='20' value='" & rsResume("ForeignLanguageLeval") & "'></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>国语水平：</td>" & vbCrLf
    Response.Write "        <td width='38%'><input name='MotherLanguageLeval' id='MotherLanguageLeval' size='18' maxlength='20' value='" & rsResume("MotherLanguageLeval") & "'></td>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>其它语言：</td>" & vbCrLf
    Response.Write "        <td width='38%'><input name='OtherLanguageLeval' id='OtherLanguageLeval' size='18' maxlength='20' value='" & rsResume("OtherLanguageLeval") & "'></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>户口所在地：</td>" & vbCrLf
    Response.Write "        <td width='38%'><input name='BirthPlace' id='BirthPlace' size='36' maxlength='50' value='" & rsResume("BirthPlace") & "'></td>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>目前所在地：</td>" & vbCrLf
    Response.Write "        <td width='38%'><input name='CurrentAddress' id='CurrentAddress' size='36' maxlength='50' value='" & rsResume("CurrentAddress") & "'></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>毕业院校：</td>" & vbCrLf
    Response.Write "        <td width='38%'><input name='GraduateSchool' id='GraduateSchool' size='36' maxlength='50' value='" & rsResume("GraduateSchool") & "'></td>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>所学专业：</td>" & vbCrLf
    Response.Write "        <td width='38%'><input name='Profession' id='Profession' size='36' maxlength='50' value='" & rsResume("Profession") & "'></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf

    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>我的相片：</td>" & vbCrLf
    Response.Write "        <td width='38%'><input name='MyPhoto' type='text' size='36' value='" & rsResume("Photo") & "'></strong></td><td colspan=2><iframe style='top:2px' ID='uploadMyPhoto' src='Upload.asp?ChannelID=997&dialogtype=Intervieweepic' frameborder=0 scrolling=no width='350' height='25'></iframe></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "  </tbody>" & vbCrLf




    Response.Write "                  <tbody id='Tabs' style='display:none'>" & vbCrLf
    Response.Write "                    <tr class='tdbg'>" & vbCrLf
    Response.Write "                        <td class='tdbg5' align='left' valign='top' width='15%'>工作经历|教育情况：</td>" & vbCrLf
    Response.Write "                       <td colspan='5'>" & vbCrLf
    Response.Write "                           <textarea name='WorkExperience' id='WorkExperience' style='display:none' >" & Server.HTMLEncode(rsResume("WorkExperience")) & "</textarea>" & vbCrLf
    Response.Write "                           <iframe ID='editorWorkExperience' src='../editor.asp?tContentid=WorkExperience&ShowType=3' frameborder='1' scrolling='no' width='680' height='200' ></iframe>" & vbCrLf
    Response.Write "                        </td>" & vbCrLf
    Response.Write "                    </tr>" & vbCrLf
    Response.Write "                    <tr class='tdbg'>" & vbCrLf
    Response.Write "                        <td class='tdbg5' align='left' valign='top' >能力特长：</td>" & vbCrLf
    Response.Write "                        <td colspan='5'>" & vbCrLf
    Response.Write "                            <textarea name='ProfessionalAbility' id='ProfessionalAbility' style='display:none' >" & Server.HTMLEncode(rsResume("ProfessionalAbility")) & "</textarea>" & vbCrLf
    Response.Write "                            <iframe ID='editorProfessionalAbility' src='../editor.asp?tContentid=ProfessionalAbility&ShowType=3' frameborder='1' scrolling='no' width='680' height='200' ></iframe>" & vbCrLf
    Response.Write "                        </td>" & vbCrLf
    Response.Write "                    </tr>" & vbCrLf
    Response.Write "                </tbody>" & vbCrLf



    Response.Write "                  <tbody id='Tabs' style='display:none'>" & vbCrLf
    Response.Write "                    <tr class='tdbg'>" & vbCrLf
    Response.Write "                        <td class='tdbg5' align='right' >联系电话：</td>" & vbCrLf
    Response.Write "                        <td width='38%'><input name='Telephone' id='Telephone' size='18' maxlength='20' value='" & rsResume("Telephone") & "'></td>" & vbCrLf
    Response.Write "                        <td class='tdbg5' align='right' >手机号码：</td>" & vbCrLf
    Response.Write "                        <td><input name='MobilePhone' id='MobilePhone' size='18' maxlength='20' value='" & rsResume("MobilePhone") & "'></td>" & vbCrLf
    Response.Write "                    </tr>" & vbCrLf
    Response.Write "                    <tr class='tdbg'>" & vbCrLf
    Response.Write "                        <td class='tdbg5' align='right' >E_mail：</td>" & vbCrLf
    Response.Write "                        <td><input name='E_mail' id='E_mail' size='18' maxlength='20' value='" & rsResume("E_mail") & "'></td>" & vbCrLf
    Response.Write "                        <td class='tdbg5' align='right' >QQ号码：</td>" & vbCrLf
    Response.Write "                        <td><input name='QQ' id='QQ' size='18' maxlength='20' value='" & rsResume("QQ") & "'></td>" & vbCrLf
    Response.Write "                    </tr>" & vbCrLf
    Response.Write "                    <tr class='tdbg'>" & vbCrLf
    Response.Write "                        <td class='tdbg5' align='right'  width='12%'>联系地址：</td>" & vbCrLf
    Response.Write "                        <td width='38%'><input name='Address' id='Address' size='18' maxlength='20' value='" & rsResume("Address") & "'></td>" & vbCrLf
    Response.Write "                        <td class='tdbg5' align='right'  width='12%'>可到职时间：</td>" & vbCrLf
    Response.Write "                        <td width='38%'><input name='AvailableDate' id='AvailableDate' size='18' maxlength='20' value='" & rsResume("AvailableDate") & "'></td>" & vbCrLf
    Response.Write "                    </tr>" & vbCrLf
    Response.Write "                  </tbody>" & vbCrLf



    Response.Write "</table>" & vbCrLf
    Response.Write "</td></tr></table>" & vbCrLf
    Response.Write "<table width='100%'  border='0' align='center' cellpadding='5' cellspacing='1'><tr align='center'><td height='40'>" & vbCrLf
    Response.Write "   <input name='ResumeID' type='hidden' id='ResumeID' value='" & rsResume("ResumeID") & "'>"
    Response.Write "   <input name='Action' type='hidden' id='Action' value='SaveModifyResume'>"
    Response.Write "   <input name='ModifyResume' type='submit'  id='ModifyResume' value=' 保存修改 '  style='cursor:hand;'>&nbsp;&nbsp;"
    Response.Write "   <input name='ResumePreview' type='button'  id='ResumePreview' value=' 预览 ' onClick=""window.location.href='User_Job.asp?Action=ResumePreview&ResumeID=" & rsResume("ResumeID") & "';"" style='cursor:hand;'>&nbsp;&nbsp;"
    'Response.Write "   <input name='Resume' type='button'  id='Resume' value=' 返回 ' onClick=""window.location.href='User_Job.asp?Action=Resume';"" style='cursor:hand;'>"
    Response.Write "</td></tr></table>" & vbCrLf
    Response.Write "</form>" & vbCrLf
End Sub


Sub AddResume()
    Call ShowJS_Resume
    
    Response.Write "<script language='javascript'>" & vbCrLf
    Response.Write "var tID=0;" & vbCrLf
    Response.Write "function ShowTabs(ID){" & vbCrLf
    Response.Write "  if(ID!=tID){" & vbCrLf
    Response.Write "    TabTitle[tID].className='title5';" & vbCrLf
    Response.Write "    TabTitle[ID].className='title6';" & vbCrLf
    Response.Write "    Tabs[tID].style.display='none';" & vbCrLf
    Response.Write "    Tabs[ID].style.display='';" & vbCrLf
    Response.Write "    tID=ID;" & vbCrLf
    Response.Write "    if(ID==1){" & vbCrLf
    Response.Write "      editorWorkExperience.yToolbarsCss();" & vbCrLf
    Response.Write "      editorProfessionalAbility.yToolbarsCss();" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "</script>" & vbCrLf

    Response.Write "<br><table width='100%'><tr><td align='left'>我的简历管理&nbsp;&gt;&gt;&nbsp;维护我的简历</td></tr></table>"
    Response.Write "<form method='post' action='User_Job.asp' name='myform' onSubmit='return CheckForm();'>"
    Response.Write "<table width='100%'  border='0' align='center' cellpadding='0' cellspacing='0'>" & vbCrLf
    Response.Write "        <tr align='center'>" & vbCrLf
    Response.Write "            <td id='TabTitle' class='title6' onclick='ShowTabs(0)'>基本信息</td>" & vbCrLf
    Response.Write "            <td id='TabTitle' class='title5' onclick='ShowTabs(1)'>经验能力</td>" & vbCrLf
    Response.Write "            <td id='TabTitle' class='title5' onclick='ShowTabs(2)'>联系信息</td>" & vbCrLf
    Response.Write "            <td>&nbsp;</td>" & vbCrLf
    Response.Write "        </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf

    Response.Write "<table width='100%'  border='0' align='center' cellpadding='5' cellspacing='1' class='border'><tr class='tdbg'><td height='100' valign='top'>" & vbCrLf
    Response.Write "  <table width='95%' align='center' cellpadding='2' cellspacing='1' bgcolor='#FFFFFF'>" & vbCrLf
    Response.Write "  <tbody id='Tabs' style='display:'>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>姓    名：</td>" & vbCrLf
    Response.Write "        <td width='38%'><input name='IntervieweeName' id='IntervieweeName' size='18' maxlength='20'> <font color='#FF0000'>*</font></td>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>学    历：</td>" & vbCrLf
    Response.Write "        <td width='38%'>" & vbCrLf
    Response.Write "            <select name='Education' size='1' style=width:139px>" & vbCrLf
    Response.Write "               <option value='0' selected>-- 请选择学历--</option>"
    Response.Write "               <option value='1'>---  小学 ---</option>" & vbCrLf
    Response.Write "               <option value='2'>---  初中 ---</option>" & vbCrLf
    Response.Write "               <option value='3' >---  高中 ---</option>" & vbCrLf
    Response.Write "               <option value='4'>---  中专 ---</option>" & vbCrLf
    Response.Write "               <option value='5'>---  大专 ---</option>" & vbCrLf
    Response.Write "               <option value='6' >---  本科 ---</option>" & vbCrLf
    Response.Write "               <option value='7'>---  硕士 ---</option>" & vbCrLf
    Response.Write "               <option value='8'>---  博士 ---</option>" & vbCrLf
    Response.Write "               <option value='9'>---  博士后 ---</option>" & vbCrLf
    Response.Write "               <option value='10'>---  其它 ---</option>" & vbCrLf
    Response.Write "            </select>" & vbCrLf
    Response.Write "        </td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>民    族：</td>" & vbCrLf
    Response.Write "        <td width='38%'><input name='Nationality' id='Nationality' size='18' maxlength='20'></td>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>政治面貌：</td>" & vbCrLf
    Response.Write "        <td width='38%'><input name='PoliticalFeature' id='PoliticalFeature' size='18' maxlength='20'></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>年    龄：</td>" & vbCrLf
    Response.Write "        <td width='38%'><input name='Age' id='Age' size='18' maxlength='20' ></td>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>性    别：</td>" & vbCrLf
    Response.Write "        <td width='38%'>" & vbCrLf
    Response.Write "            <select name='Sex' size='1' style=width:139px>"
    Response.Write "               <option value='0' selected> -- 请选择性别-- </option>"
    Response.Write "               <option value='1'>----   男 ---</option>" & vbCrLf
    Response.Write "               <option value='2'>----   女 ---</option>" & vbCrLf
    Response.Write "               <option value='3' >---  保密 ---</option>" & vbCrLf
    Response.Write "             </select>" & vbCrLf
    Response.Write "        </td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>身    高：</td>" & vbCrLf
    Response.Write "        <td width='38%'><input name='Height' id='Height' size='18' maxlength='20' ></td>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>体    重：</td>" & vbCrLf
    Response.Write "        <td width='38%'><input name='Weight' id='Weight' size='18' maxlength='20' ></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>婚姻状况：</td>" & vbCrLf
    Response.Write "        <td width='38%'>" & vbCrLf
    Response.Write "            <select name='Marital' size='1' style=width:139px>" & vbCrLf
    Response.Write "               <option value='0' selected>--请选婚姻状况-</option>"
    Response.Write "               <option value='1'>---  未婚 ---</option>" & vbCrLf
    Response.Write "               <option value='2'>---  已婚 ---</option>" & vbCrLf
    Response.Write "               <option value='3' >---  离异 ---</option>" & vbCrLf
    Response.Write "               <option value='4'>---  其它 ---</option>" & vbCrLf
    Response.Write "            </select>" & vbCrLf
    Response.Write "        </td>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>健康状况：</td>" & vbCrLf
    Response.Write "        <td width='38%'><input name='Health' id='Health' size='18' maxlength='20' ></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>外语语种：</td>" & vbCrLf
    Response.Write "        <td width='38%'>" & vbCrLf
    Response.Write "            <select name='ForeignLanguageKind' size='1' style=width:139px>" & vbCrLf
    Response.Write "               <option value='0' selected>--请选外语语种- </option>"
    Response.Write "               <option value='1'>---  英语 ---</option>" & vbCrLf
    Response.Write "               <option value='2'>---  日语 ---</option>" & vbCrLf
    Response.Write "               <option value='3'>---  德语 ---</option>" & vbCrLf
    Response.Write "               <option value='4'>---  法语 ---</option>" & vbCrLf
    Response.Write "               <option value='5'>---  西班牙语 --</option>" & vbCrLf
    Response.Write "            </select>" & vbCrLf
    Response.Write "        </td>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>外语水平：</td>" & vbCrLf
    Response.Write "        <td width='38%'><input name='ForeignLanguageLeval' id='ForeignLanguageLeval' size='18' maxlength='20'></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>国语水平：</td>" & vbCrLf
    Response.Write "        <td width='38%'><input name='MotherLanguageLeval' id='MotherLanguageLeval' size='18' maxlength='20'></td>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>其它语言：</td>" & vbCrLf
    Response.Write "        <td width='38%'><input name='OtherLanguageLeval' id='OtherLanguageLeval' size='18' maxlength='20'></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>户口所在地：</td>" & vbCrLf
    Response.Write "        <td width='38%'><input name='BirthPlace' id='BirthPlace' size='36' maxlength='50'></td>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>目前所在地：</td>" & vbCrLf
    Response.Write "        <td width='38%'><input name='CurrentAddress' id='CurrentAddress' size='36' maxlength='50'></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>毕业院校：</td>" & vbCrLf
    Response.Write "        <td width='38%'><input name='GraduateSchool' id='GraduateSchool' size='36' maxlength='50'></td>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>所学专业：</td>" & vbCrLf
    Response.Write "        <td width='38%'><input name='Profession' id='Profession' size='36' maxlength='50'></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf

    Response.Write "    <tr class='tdbg'>" & vbCrLf
    Response.Write "        <td width='12%' class='tdbg5' align='right'>我的相片：</td>" & vbCrLf
    Response.Write "        <td width='38%'><input name='MyPhoto' type='text' size='36'></strong></td><td colspan=2><iframe style='top:2px' ID='uploadMyPhoto' src='Upload.asp?ChannelID=997&dialogtype=Intervieweepic' frameborder=0 scrolling=no width='350' height='25'></iframe></td>" & vbCrLf
    Response.Write "    </tr>" & vbCrLf
    Response.Write "  </tbody>" & vbCrLf




    Response.Write "                  <tbody id='Tabs' style='display:none'>" & vbCrLf
    Response.Write "                    <tr class='tdbg'>" & vbCrLf
    Response.Write "                        <td class='tdbg5' align='left' valign='top' width='20%'>工作经历|教育情况：</td>" & vbCrLf
    Response.Write "                       <td colspan='5'>" & vbCrLf
    Response.Write "                           <textarea name='WorkExperience' id='WorkExperience' style='display:none' ></textarea>" & vbCrLf
    Response.Write "                           <iframe ID='editorWorkExperience' src='../editor.asp?tContentid=WorkExperience&ShowType=3' frameborder='1' scrolling='no' width='650' height='200' ></iframe>" & vbCrLf
    Response.Write "                        </td>" & vbCrLf
    Response.Write "                    </tr>" & vbCrLf
    Response.Write "                    <tr class='tdbg'>" & vbCrLf
    Response.Write "                        <td class='tdbg5' align='left' valign='top' >能力特长：</td>" & vbCrLf
    Response.Write "                        <td colspan='5'>" & vbCrLf
    Response.Write "                            <textarea name='ProfessionalAbility' id='ProfessionalAbility' style='display:none' ></textarea>" & vbCrLf
    Response.Write "                            <iframe ID='editorProfessionalAbility' src='../editor.asp?tContentid=ProfessionalAbility&ShowType=3' frameborder='1' scrolling='no' width='650' height='200' ></iframe>" & vbCrLf
    Response.Write "                        </td>" & vbCrLf
    Response.Write "                    </tr>" & vbCrLf
    Response.Write "                </tbody>" & vbCrLf



    Response.Write "                  <tbody id='Tabs' style='display:none'>" & vbCrLf
    Response.Write "                    <tr class='tdbg'>" & vbCrLf
    Response.Write "                        <td class='tdbg5' align='right' >联系电话：</td>" & vbCrLf
    Response.Write "                        <td width='38%'><input name='Telephone' id='Telephone' size='18' maxlength='20'></td>" & vbCrLf
    Response.Write "                        <td class='tdbg5' align='right' >手机号码：</td>" & vbCrLf
    Response.Write "                        <td><input name='MobilePhone' id='MobilePhone' size='18' maxlength='20'></td>" & vbCrLf
    Response.Write "                    </tr>" & vbCrLf
    Response.Write "                    <tr class='tdbg'>" & vbCrLf
    Response.Write "                        <td class='tdbg5' align='right' >E_mail：</td>" & vbCrLf
    Response.Write "                        <td><input name='E_mail' id='E_mail' size='18' maxlength='20'></td>" & vbCrLf
    Response.Write "                        <td class='tdbg5' align='right' >QQ号码：</td>" & vbCrLf
    Response.Write "                        <td><input name='QQ' id='QQ' size='18' maxlength='20' ></td>" & vbCrLf
    Response.Write "                    </tr>" & vbCrLf
    Response.Write "                    <tr class='tdbg'>" & vbCrLf
    Response.Write "                        <td class='tdbg5' align='right'  width='12%'>联系地址：</td>" & vbCrLf
    Response.Write "                        <td width='38%'><input name='Address' id='Address' size='18' maxlength='20'></td>" & vbCrLf
    Response.Write "                        <td class='tdbg5' align='right'  width='12%'>可到职时间：</td>" & vbCrLf
    Response.Write "                        <td width='38%'><input name='AvailableDate' id='AvailableDate' size='18' maxlength='20'></td>" & vbCrLf
    Response.Write "                    </tr>" & vbCrLf
    Response.Write "                  </tbody>" & vbCrLf



    Response.Write "</table>" & vbCrLf
    Response.Write "</td></tr></table>" & vbCrLf
    Response.Write "<table width='100%'  border='0' align='center' cellpadding='5' cellspacing='1'><tr align='center'><td height='40'>" & vbCrLf
    Response.Write "   <input name='Action' type='hidden' id='Action' value='SaveAddResume'>"
    Response.Write "   <input name='AddResume' type='submit'  id='AddResume' value=' 提交保存 '  style='cursor:hand;'>&nbsp;&nbsp;"
    Response.Write "   <input name='Resume' type='button'  id='Resume' value=' 返回 ' onClick=""window.location.href='User_Job.asp?Action=Resume';"" style='cursor:hand;'>"
    Response.Write "</td></tr></table>" & vbCrLf
    Response.Write "</form>" & vbCrLf
End Sub



Sub SaveResume()
    Dim ResumeID, IntervieweeName, Nationality, PoliticalFeature, Age, Height, Weight, Sex, Photo, Marital, Health, BirthPlace, CurrentAddress, QQ, Telephone, MobilePhone, Address, E_mail, GraduateSchool, Education, Profession, AvailableDate, WorkExperience, ProfessionalAbility, ForeignLanguageKind, ForeignLanguageLeval, MotherLanguageLeval, OtherLanguageLeval
    Dim rs, sql, mrs

    ResumeID = PE_CLng(Request.Form("ResumeID"))
    IntervieweeName = PE_HTMLEncode(Trim(Request.Form("IntervieweeName")))
    Nationality = PE_HTMLEncode(Trim(Request.Form("Nationality")))
    PoliticalFeature = PE_HTMLEncode(Trim(Request.Form("PoliticalFeature")))
    Age = PE_CLng(Request.Form("Age"))
    Height = PE_HTMLEncode(Trim(Request.Form("Height")))
    Weight = PE_HTMLEncode(Trim(Request.Form("Weight")))
    Sex = PE_CLng(Trim(Request.Form("Sex")))
    Photo = PE_HTMLEncode(Trim(Request.Form("MyPhoto")))
    Marital = PE_CLng(Trim(Request.Form("Marital")))
    Health = PE_HTMLEncode(Trim(Request.Form("Health")))
    BirthPlace = PE_HTMLEncode(Trim(Request.Form("BirthPlace")))
    CurrentAddress = PE_HTMLEncode(Trim(Request.Form("CurrentAddress")))
    QQ = PE_HTMLEncode(Trim(Request.Form("QQ")))
    Telephone = PE_HTMLEncode(Trim(Request.Form("Telephone")))
    MobilePhone = PE_HTMLEncode(Trim(Request.Form("MobilePhone")))
    Address = PE_HTMLEncode(Trim(Request.Form("Address")))
    E_mail = PE_HTMLEncode(Trim(Request.Form("E_mail")))
    GraduateSchool = PE_HTMLEncode(Trim(Request.Form("GraduateSchool")))
    Education = PE_CLng(Trim(Request.Form("Education")))
    Profession = PE_HTMLEncode(Trim(Request.Form("Profession")))
    AvailableDate = PE_CDate(Trim(Request.Form("AvailableDate")))
    WorkExperience = ReplaceBadUrl(Trim(Request.Form("WorkExperience")))
    ProfessionalAbility = ReplaceBadUrl(Trim(Request.Form("ProfessionalAbility")))
    ForeignLanguageKind = PE_CLng(Trim(Request.Form("ForeignLanguageKind")))
    ForeignLanguageLeval = PE_HTMLEncode(Trim(Request.Form("ForeignLanguageLeval")))
    MotherLanguageLeval = PE_HTMLEncode(Trim(Request.Form("MotherLanguageLeval")))
    OtherLanguageLeval = PE_HTMLEncode(Trim(Request.Form("OtherLanguageLeval")))


    If IntervieweeName = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>姓名不能为空！</li>"
    Else
        IntervieweeName = ReplaceBadChar(IntervieweeName)
    End If

    If E_mail <> "" Then
        If IsValidEmail(E_mail) = False Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>请输入正确的联系邮箱地址！</li>"
        End If
    End If

    If FoundErr = True Then
        Exit Sub
    End If

    Set rs = Server.CreateObject("Adodb.RecordSet")
    If Action = "SaveAddResume" Then
        Set mrs = Conn.Execute("select max(ResumeID) from PE_Resume")
        If IsNull(mrs(0)) Then
            ResumeID = 1
        Else
            ResumeID = mrs(0) + 1
        End If
        Set mrs = Nothing
        sql = "select top 1 * from PE_Resume"
        rs.open sql, Conn, 1, 3
        rs.addnew
        rs("ResumeID") = ResumeID
        rs("IntervieweeName") = IntervieweeName
        rs("UserName") = UserName
        rs("Nationality") = Nationality
        rs("PoliticalFeature") = PoliticalFeature
        rs("Age") = Age
        rs("Height") = Height
        rs("Weight") = Weight
        rs("Sex") = Sex
        rs("Photo") = Photo
        rs("Marital") = Marital
        rs("Health") = Health
        rs("BirthPlace") = BirthPlace
        rs("CurrentAddress") = CurrentAddress
        rs("QQ") = QQ
        rs("Telephone") = Telephone
        rs("MobilePhone") = MobilePhone
        rs("Address") = Address
        rs("E_mail") = E_mail
        rs("GraduateSchool") = GraduateSchool
        rs("Education") = Education
        rs("Profession") = Profession
        rs("AvailableDate") = AvailableDate
        rs("WorkExperience") = WorkExperience
        rs("ProfessionalAbility") = ProfessionalAbility
        rs("ForeignLanguageKind") = ForeignLanguageKind
        rs("ForeignLanguageLeval") = ForeignLanguageLeval
        rs("MotherLanguageLeval") = MotherLanguageLeval
        rs("OtherLanguageLeval") = OtherLanguageLeval
        rs.Update
        rs.Close
        Set rs = Nothing
        Call CloseConn
        Response.Redirect "User_Job.asp?Action=Resume"
    Else
        If Action = "SaveModifyResume" Then
            If ResumeID = 0 Then
                FoundErr = True
                ErrMsg = ErrMsg & "<li>请指定要修改的简历ID！</li>"
                Exit Sub
            End If
            sql = "select * from PE_Resume  where ResumeID=" & ResumeID & " and UserName='" & UserName & "'"
            rs.open sql, Conn, 1, 3
            If rs.BOF And rs.EOF Then
                FoundErr = True
                ErrMsg = ErrMsg & "<li>找不到指定的简历，可能已经被删除！</li>"
                rs.Close
                Set rs = Nothing
            Else
                rs("IntervieweeName") = IntervieweeName
                rs("Nationality") = Nationality
                rs("PoliticalFeature") = PoliticalFeature
                rs("Age") = Age
                rs("Height") = Height
                rs("Weight") = Weight
                rs("Sex") = Sex
                rs("Photo") = Photo
                rs("Marital") = Marital
                rs("Health") = Health
                rs("BirthPlace") = BirthPlace
                rs("CurrentAddress") = CurrentAddress
                rs("QQ") = QQ
                rs("Telephone") = Telephone
                rs("MobilePhone") = MobilePhone
                rs("Address") = Address
                rs("E_mail") = E_mail
                rs("GraduateSchool") = GraduateSchool
                rs("Education") = Education
                rs("Profession") = Profession
                rs("AvailableDate") = AvailableDate
                rs("WorkExperience") = WorkExperience
                rs("ProfessionalAbility") = ProfessionalAbility
                rs("ForeignLanguageKind") = ForeignLanguageKind
                rs("ForeignLanguageLeval") = ForeignLanguageLeval
                rs("MotherLanguageLeval") = MotherLanguageLeval
                rs("OtherLanguageLeval") = OtherLanguageLeval
                rs.Update
                rs.Close
                Set rs = Nothing
                Call CloseConn
                Response.Redirect "User_Job.asp?Action=Resume"
            End If
        End If
    End If
End Sub








Sub Supply()
    Dim rsSupply, sqlSupply

    Response.Write "<br><table width='100%'><tr><td align='left'>我的简历管理&nbsp;&gt;&gt;&nbsp;我申请的职位</td></tr></table>"
    Response.Write "<table width='100%' border='0' align='center' cellpadding='0' cellspacing='0'>"
    Response.Write "  <tr>"
    Response.Write "  </tr>"
    Response.Write "</table>"
    Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='0'><tr>"
    Response.Write "    <form name='myform' method='Post' action='User_Job.asp' onsubmit='return ConfirmDel();'>"
    Response.Write "     <td><table class='border' border='0' cellspacing='1' width='100%' cellpadding='0'>"
    Response.Write "          <tr class='title' height='22'> "
    Response.Write "            <td width='55' align='center'><strong>ID</strong></td>"
    Response.Write "            <td width='150' align='center'><strong>职位名称</strong></td>"
    Response.Write "            <td width='150' align='center'><strong>用人单位</strong></td>"
    Response.Write "            <td width='150' align='center'><strong>工作地点</strong></td>"
    Response.Write "            <td width='110' align='center'><strong>审核状态</strong></td>"
    Response.Write "            <td width='100' align='center'><strong>申请日期</strong></td>"
    Response.Write "          </tr>"
    sqlSupply = "select  PS.PositionSupplyInfoID,PS.UserName,PS.CheckStatus,PS.SupplyDate,P.PositionID,P.PositionName,S.SubCompanyName,W.WorkPlaceName from ((PE_PositionSupplyInfo PS left join PE_Position P on PS.PositionID=P.PositionID) left join PE_SubCompany S on PS.SubCompanyID=S.SubCompanyID) left join PE_WorkPlace W on PS.WorkPlaceID=W.WorkPlaceID where PS.UserName='" & UserName & "'"
    
    Set rsSupply = Server.CreateObject("ADODB.Recordset")
    rsSupply.open sqlSupply, Conn, 1, 1
    If rsSupply.BOF And rsSupply.EOF Then
        totalPut = 0
        Response.Write "<tr class='tdbg'><td colspan='20' align='center'><br>没有任何申请的职位信息！<br></td></tr>"
    Else
        Do While Not rsSupply.EOF
            Response.Write "      <tr class='tdbg' onmouseout=""this.style.backgroundColor=''"" onmouseover=""this.style.backgroundColor='#BFDFFF'"">"
            Response.Write "        <td width='55' align='center'>" & rsSupply("PositionSupplyInfoID") & "</td>"
            Response.Write "        <td width='110' align='center'><a href='User_Job.asp?Action=MyPositionPreview&PositionID=" & rsSupply("PositionID") & "'>" & rsSupply("PositionName") & " </a></td>"
            Response.Write "      <td width='110' align='center'>" & rsSupply("SubCompanyName") & "</td>"
            Response.Write "      <td width='110' align='center'>" & rsSupply("WorkPlaceName") & "</td>"
            Response.Write "      <td width='110' align='center'>" & GetCheckStatus(rsSupply("CheckStatus")) & "</td>"
            Response.Write "      <td width='100' align='center'>" & rsSupply("SupplyDate") & "</td>"
            Response.Write "</tr>"
            rsSupply.MoveNext
        Loop
    End If
    rsSupply.Close
    Set rsSupply = Nothing
    Response.Write "</table>"
    Response.Write "</td>"
    Response.Write "</form></tr></table>"
End Sub


Sub DeleteSupplyInfo()
    Select Case Action
    Case "DelPositionSupplyInfo", "DeletePositionSupplyInfo"
        Dim PositionSupplyInfoID, rs, sql
        PositionSupplyInfoID = Trim(Request("PositionSupplyInfoID"))
        If IsValidID(PositionSupplyInfoID) = False Then
            PositionSupplyInfoID = ""
        End If
        If PositionSupplyInfoID = "" Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>未找到任何简历信息！</li>"
            Exit Sub
        End If
        If InStr(PositionSupplyInfoID, ",") > 0 Then
            Conn.Execute ("delete from PE_PositionSupplyInfo Where PositionSupplyInfoID in (" & PositionSupplyInfoID & ") and UserName='" & UserName & "'")
        Else
            Conn.Execute ("delete from PE_PositionSupplyInfo Where PositionSupplyInfoID=" & PositionSupplyInfoID & " and UserName='" & UserName & "'")
        End If
    Case "DelAllPositionSupplyInfo"
        Conn.Execute ("delete from PE_PositionSupplyInfo where UserName='" & UserName & "'")
    End Select
    Call CloseConn
    Response.Redirect "User_Job.asp?Action=Supply"
End Sub



Sub ShowJS_Resume()
    Response.Write "<script language = 'JavaScript'>" & vbCrLf
    Response.Write "function unselectall()" & vbCrLf
    Response.Write "{" & vbCrLf
    Response.Write "  if (document.myform.chkAll.Checked){" & vbCrLf
    Response.Write "     document.myform.chkAll.Checked=document.myform.chkAll.Checked&0;" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "function CheckAll(form){" & vbCrLf
    Response.Write "  for (var i=0;i<form.elements.length;i++){" & vbCrLf
    Response.Write "    var e = form.elements[i];" & vbCrLf
    Response.Write "    if (e.Name != 'chkAll'&&e.disabled==false)" & vbCrLf
    Response.Write "       e.checked = form.chkAll.checked;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "function ConfirmDel(){" & vbCrLf
    Response.Write "  if (document.myform.Action.value=='DelPositionSupplyInfo'){"
    Response.Write "     if (confirm('确定要删除所选中的职位信息吗？'))" & vbCrLf
    Response.Write "         return true;" & vbCrLf
    Response.Write "     else" & vbCrLf
    Response.Write "          return false;" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "  if (document.myform.Action.value=='DelAllPositionPositionSupplyInfo'){"
    Response.Write "     if (confirm('确定要删除所有的职位信息吗？'))" & vbCrLf
    Response.Write "         return true;" & vbCrLf
    Response.Write "     else" & vbCrLf
    Response.Write "          return false;" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "  return true;" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "function CheckForm()" & vbCrLf
    Response.Write "{" & vbCrLf
    Response.Write "  if (document.myform.IntervieweeName.value==''){" & vbCrLf
    Response.Write "    alert('姓名不能为空！');" & vbCrLf
    Response.Write "    document.myform.IntervieweeName.focus();" & vbCrLf
    Response.Write "    return false;" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "  var CurrentMode=editorWorkExperience.CurrentMode;" & vbCrLf
    Response.Write "  if (CurrentMode==0){" & vbCrLf
    Response.Write "    document.myform.WorkExperience.value=editorWorkExperience.HtmlEdit.document.body.innerHTML; " & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "  else if(CurrentMode==1){" & vbCrLf
    Response.Write "    document.myform.WorkExperience.value=editorWorkExperience.HtmlEdit.document.body.innerText;" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "  if (document.myform.WorkExperience.value==''){" & vbCrLf
    Response.Write "     alert('工作经历不能为空！');" & vbCrLf
    Response.Write "     ShowTabs(1);" & vbCrLf
    Response.Write "     editorWorkExperience.HtmlEdit.focus();" & vbCrLf
    Response.Write "     return false;" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "  var CurrentMode=editorProfessionalAbility.CurrentMode;" & vbCrLf
    Response.Write "  if (CurrentMode==0){" & vbCrLf
    Response.Write "    document.myform.ProfessionalAbility.value=editorProfessionalAbility.HtmlEdit.document.body.innerHTML; " & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "  else if(CurrentMode==1){" & vbCrLf
    Response.Write "    document.myform.ProfessionalAbility.value=editorProfessionalAbility.HtmlEdit.document.body.innerText;" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "  if (document.myform.ProfessionalAbility.value==''){" & vbCrLf
    Response.Write "     alert('能力特长不能为空！');" & vbCrLf
    Response.Write "     ShowTabs(1);" & vbCrLf
    Response.Write "     editorProfessionalAbility.HtmlEdit.focus();" & vbCrLf
    Response.Write "     return false;" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "  return true;" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "</script>" & vbCrLf
End Sub




Sub MyResumePreview()
    Dim rsResume, sqlResume
    Dim PositionSupplyInfoID
    PositionSupplyInfoID = Trim(Request("PositionSupplyInfoID"))
    
    If PositionSupplyInfoID = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>请指定要所需的简历ID</li>"
        Exit Sub
    Else
        PositionSupplyInfoID = PE_CLng(PositionSupplyInfoID)
    End If

    sqlResume = "select PS.PositionSupplyInfoID,PS.CheckStatus,PS.CheckDate,PS.SupplyDate,R.IntervieweeName,R.Nationality,R.PoliticalFeature,R.Age,R.Height,R.Weight,R.Sex,R.Photo,R.Marital,R.Health,R.BirthPlace,R.CurrentAddress,R.QQ,R.Telephone,R.MobilePhone,R.Address,R.E_mail,R.GraduateSchool,R.Education,R.Profession,R.AvailableDate,R.WorkExperience,R.ProfessionalAbility,R.ForeignLanguageKind,R.ForeignLanguageLeval,R.MotherLanguageLeval,R.OtherLanguageLeval,S.SubCompanyName,P.PositionID,P.PositionName from ((PE_PositionSupplyInfo PS left join PE_Resume R on PS.UserName=R.UserName) left join PE_SubCompany S on PS.SubCompanyID=S.SubCompanyID) left join PE_Position P on PS.PositionID=P.PositionID where PositionSupplyInfoID=" & PositionSupplyInfoID & ""
    Set rsResume = Conn.Execute(sqlResume)
    If rsResume.BOF And rsResume.EOF Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>没有任何简历信息！</li>"
    End If
    If FoundErr = True Then
        rsResume.Close
        Set rsResume = Nothing
        Exit Sub
    End If

    Response.Write "<br><table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
    Response.Write "</table>"
    Response.Write "<table width='100%' border='0' align='center' cellpadding='5' cellspacing='1' class='border'>"
    Response.Write "    <tr class='title'>"
    Response.Write "      <td height='22' align='center' colspan='2'><b>个人简历</b></td>"
    Response.Write "    </tr>"
    Response.Write "  <tr align='center'>"
    Response.Write "    <td class='tdbg' height='100' valign='top'>"
    Response.Write "      <table width='100%' border='0' cellpadding='2' cellspacing='1' bgcolor='#FFFFFF'>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='120' align='right' class='tdbg5'>姓名：</td>"
    Response.Write "            <td width='120'>" & rsResume("IntervieweeName")
    Response.Write "            </td>"
    Response.Write "            <td width='120' align='right' class='tdbg5'>学历：</td>"
    Response.Write "            <td width='120'>" & GetEducation(rsResume("Education"))
    Response.Write "            </td>"
    Response.Write "            <td width='120' align='right' class='tdbg5'>政治面貌：</td>"
    Response.Write "            <td width='120'>" & rsResume("PoliticalFeature")
    Response.Write "</td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='120' align='right' class='tdbg5'>年龄：</td>"
    Response.Write "            <td width='120'>" & rsResume("Age")
    Response.Write "            </td>"
    Response.Write "            <td width='120' align='right' class='tdbg5'>身高：</td>"
    Response.Write "            <td>" & rsResume("Height")
    Response.Write "            </td>"
    Response.Write "            <td width='120' align='right' class='tdbg5'>体重：</td>"
    Response.Write "            <td>" & rsResume("Weight")
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='120' align='right' class='tdbg5'>民族：</td>"
    Response.Write "            <td>" & rsResume("Nationality")
    Response.Write "            </td>"
    Response.Write "            <td width='120' align='right' class='tdbg5'>婚姻状况：</td>"
    Response.Write "            <td>" & GetMarital(rsResume("Marital"))
    Response.Write "            </td>"
    Response.Write "            <td width='120' align='right' class='tdbg5'>健康状况：</td>"
    Response.Write "            <td>" & rsResume("Health")
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='120' align='right' class='tdbg5'>性别：</td>"
    Response.Write "            <td>" & GetSex(rsResume("Sex"))
    Response.Write "            <td width='120' align='right' class='tdbg5'>户口所在地：</td>"
    Response.Write "            <td>" & rsResume("BirthPlace")
    Response.Write "            </td>"
    Response.Write "            <td width='120' align='right' class='tdbg5' >目前所在地：</td>"
    Response.Write "            <td>" & rsResume("CurrentAddress")
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='120' align='right'class='tdbg5'>所学专业：</td>"
    Response.Write "            <td colspan='2'>" & rsResume("Profession")
    Response.Write "            </td>"
    Response.Write "            <td width='120' align='right'class='tdbg5'>毕业院校：</td>"
    Response.Write "            <td colspan='2'>" & rsResume("GraduateSchool")
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "        </table>"
    Response.Write "      </td>"
    Response.Write "      <td class='tdbg'   valign='top'>"
    Response.Write "        <table width='98%' border='0' cellpadding='2' cellspacing='1' bgcolor='#FFFFFF'>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td  align='right'class='tdbg5' width='120' height='120'>相片"
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "        </table>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "    <tr>"
    Response.Write "      <td class='tdbg' height='100' valign='top' colspan='2'>"
    Response.Write "        <table width='100%' border='0' cellpadding='2' cellspacing='1' bgcolor='#FFFFFF'>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='120' align='right'class='tdbg5'>QQ号码：</td>"
    Response.Write "            <td width='180'>" & rsResume("QQ")
    Response.Write "            </td>"
    Response.Write "            <td width='120' align='right'class='tdbg5'>手机号码：</td>"
    Response.Write "            <td width='180'>" & rsResume("MobilePhone")
    Response.Write "            </td>"
    Response.Write "            <td width='120' align='right'class='tdbg5'>联系电话：</td>"
    Response.Write "            <td>" & rsResume("Telephone")
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='120' align='right'class='tdbg5'>E_mail：</td>"
    Response.Write "            <td>" & rsResume("E_mail")
    Response.Write "            </td>"
    Response.Write "            <td width='120' align='right'class='tdbg5'>联系地址：</td>"
    Response.Write "            <td colspan='3'>" & rsResume("Address")
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='120' align='right'class='tdbg5'>所应聘职位：</td>"
    Response.Write "            <td width='120'>" & rsResume("PositionName")
    Response.Write "            </td>"
    Response.Write "            <td width='120' align='right'class='tdbg5'>所应聘公司：</td>"
    Response.Write "            <td width='120'>" & rsResume("SubCompanyName")
    Response.Write "            </td>"
    Response.Write "            <td width='120' align='right'class='tdbg5'>可到职时间：</td>"
    Response.Write "            <td width='120'>" & rsResume("AvailableDate")
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='120' valign='top' align='right'class='tdbg5'>工作经历|教育情况：</td>"
    Response.Write "            <td colspan='5'>" & rsResume("WorkExperience")
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='120' align='right'class='tdbg5'>能力特长：</td>"
    Response.Write "            <td colspan='5'>" & rsResume("ProfessionalAbility")
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='120' align='right'class='tdbg5'>" & GetForeignLanguageKind(rsResume("ForeignLanguageKind")) & "：</td>"
    Response.Write "            <td >" & rsResume("ForeignLanguageLeval")
    Response.Write "            </td>"
    Response.Write "            <td width='120' align='right'class='tdbg5'>国语：</td>"
    Response.Write "            <td>" & rsResume("MotherLanguageLeval")
    Response.Write "            </td>"
    Response.Write "            <td width='120' align='right'class='tdbg5'>其它语言：</td>"
    Response.Write "            <td>" & rsResume("OtherLanguageLeval")
    Response.Write "            </td>"
    Response.Write "          </tr>"
    If Action <> "MyResumePrint" Then
        Response.Write "          <tr class='tdbg'>"
        Response.Write "            <td width='120' align='right'class='tdbg5'>审核状态：</td>"
        Response.Write "            <td >" & GetCheckStatus(rsResume("CheckStatus"))
        Response.Write "            </td>"
        Response.Write "            <td width='120' align='right'class='tdbg5'>审核日期：</td>"
        Response.Write "            <td>" & rsResume("CheckDate")
        Response.Write "            </td>"
        Response.Write "            <td width='120' align='right'class='tdbg5'>申请时间：</td>"
        Response.Write "            <td>" & rsResume("SupplyDate")
        Response.Write "            </td>"
        Response.Write "          </tr>"
    End If
    Response.Write "        </table>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "  </table>"
    If Action <> "MyResumePrint" Then
        Response.Write "  <p align='center'>"
        Response.Write "   &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input name='ResumePreview' type='button'  id='ResumePreview' value=' 返回 ' onClick=""window.location.href='User_Job.asp?Action=Supply';"" style='cursor:hand;'>"
        Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href='User_Job.asp?Action=MyResumePrint&PositionSupplyInfoID=" & PositionSupplyInfoID & "' style='cursor:hand;' target='_blank'><font color='blue'>【打印】</font>"
        Response.Write "  </p>"
    End If
End Sub




Sub MyPositionPreview()
    Dim rs, sql
    Dim PositionID, WorkPlaceID, SubCompanyID
    PositionID = Trim(Request("PositionID"))
    
    If PositionID = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>请指定要所需的职位ID</li>"
        Exit Sub
    Else
        PositionID = PE_CLng(PositionID)
    End If
    sql = "select P.PositionID,P.PositionName,W.WorkPlaceName,P.PositionNum,P.ReleaseDate,P.PositionStatus,P.ValidDate,S.SubCompanyID,S.SubCompanyName,S.Contacter,S.Telephone,S.Address,S.E_mail,P.PositionDescription,P.DutyRequest from (PE_Position P left join PE_WorkPlace W on P.WorkPlaceID=W.WorkPlaceID) left join PE_SubCompany S on P.SubCompanyID=S.SubCompanyID where P.PositionID=" & PositionID & ""
    Set rs = Conn.Execute(sql)
    If rs.BOF And rs.EOF Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>找不到职位！</li>"
    End If
    If FoundErr = True Then
        rs.Close
        Set rs = Nothing
        Exit Sub
    End If
    Response.Write "<br><table width='100%'><tr><td align='left'>我的简历管理&nbsp;&gt;&gt;&nbsp;<a href='User_Job.asp?Action=Supply'>我申请的职位</a>&nbsp;&gt;&gt;&nbsp;查看职位</td></tr></table>"
    Response.Write "<table width='100%' border='0' align='center' cellpadding='5' cellspacing='0' class='border'>"
    Response.Write "    <tr class='title'>"
    Response.Write "      <td height='18' align='center'><b>职位信息</b></td>"
    Response.Write "    </tr>"
    Response.Write "  <tr align='center'>"
    Response.Write "    <td class='tdbg' height='200' valign='top'>"
    Response.Write "      <table width='98%' border='0' cellpadding='2' cellspacing='1' bgcolor='#FFFFFF'>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='200' align='right' class='tdbg5'><strong>职位名称：</strong></td>"
    Response.Write "            <td>" & rs("PositionName")
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='200' align='right' class='tdbg5'>工作地点：</td>"
    Response.Write "            <td>" & rs("WorkPlaceName")
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='200' align='right' class='tdbg5'>招聘人数：</td>"
    Response.Write "            <td>" & rs("PositionNum")
    Response.Write "</td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='200' align='right' class='tdbg5'>发布日期：</td>"
    Response.Write "            <td>" & rs("ReleaseDate")
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='200' align='right' class='tdbg5'><strong>用人单位：</strong></td>"
    Response.Write "            <td>" & rs("SubCompanyName")
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='200' align='right' class='tdbg5'>联系人：</td>"
    Response.Write "            <td>" & rs("Contacter")
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='200' align='right' class='tdbg5'>联系电话：</td>"
    Response.Write "            <td>" & rs("Telephone")
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='200' align='right' class='tdbg5'>联系地址：</td>"
    Response.Write "            <td>" & rs("Address")
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='200' align='right' class='tdbg5'>联系邮箱：</td>"
    Response.Write "            <td>" & rs("E_mail")
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='200' align='right' class='tdbg5'><strong>职位描述：</strong></td>"
    Response.Write "            <td>" & rs("PositionDescription")
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='200' align='right' class='tdbg5'><strong>任职要求：</strong></td>"
    Response.Write "            <td>" & rs("DutyRequest")
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='200' align='right'class='tdbg5'><strong>职位状态：</strong></td>"
    Response.Write "            <td>" & GetPositionStatus(rs("PositionStatus"), rs("ReleaseDate"), rs("ValidDate"))
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "        </table>"
    Response.Write "      </td>"
    Response.Write "    </tr>"
    Response.Write "  </table>"
    Response.Write "  <p align='center'>"
    Response.Write "   <input name='Preview' type='button'  id='Preview' value=' 返回 ' onClick=""window.location.href='User_Job.asp?Action=Supply';"" style='cursor:hand;'></p>"
End Sub


Function GetPositionStatus(PositionStatus, ReleaseDate, ValidDate)
    Dim MyPositionStatus, strPositionStatus
    Dim CurrentDate, MyReleaseDate, MyValidDate

    MyPositionStatus = PE_CLng(PositionStatus)
    MyReleaseDate = ReleaseDate
    MyValidDate = PE_CLng(ValidDate)
    If MyReleaseDate <> "" And IsDate(MyReleaseDate) = True Then
        MyReleaseDate = CDate(MyReleaseDate)
    Else
        MyReleaseDate = PE_Now
    End If

    CurrentDate = DateAdd("d", 0, Date)
    If DateDiff("d", MyReleaseDate, CurrentDate) <= ValidDate Then
        If MyPositionStatus = 0 Then
            strPositionStatus = "正在招聘中"
        ElseIf MyPositionStatus = 1 Then
             strPositionStatus = "已停止招聘"
        End If
    Else
        strPositionStatus = "已过有效期"
    End If
    GetPositionStatus = strPositionStatus
End Function

%>
