嘉缘人才系统V6.0精简版说明书DOC版

nazi9609

jiuojjklj;

xuuu520

要

halleck

lianhai

谢谢

johnnys

qingvsning

ddddddddddddd

zjjweb

<%
Dim HireRS,HireSql
        Set HireRS = Server.CreateObject(FR_HR_RS)
        html=\"\"
        HireSql = \"Select top 10 * from JOB_C_hire where company_id=\"&Cid&\" and datediff(\"&FR_HR_d&\",hire_enddate,\"&FR_HR_Now&\")<=0 and hire_status=1 order by hire_id desc\"
                HireRS.open HireSql,conn,1,1
                IF Not HireRS.EOF Then
                Do While Not HireRS.EOF
                html=html&\"<a href=\"&FormatLink(HireRS(\"hire_announcedate\"),2,1,HireRS(\"hire_id\"),0)&\" target=\"&target&\">\"&HireRS(\"hire_place\")&\"(\"&Hirenumber(HireRS(\"hire_number\"))&\"人)</a><br>\"
                HireRS.MoveNext
                Loop
                Else
                html=html&\"尚未发布职位信息!\"
                End If
        HireRS.Close:Set HireRS=Nothing
GetHireTitList=html
End Function
%>

mmsos

顶.认真学习

Ghost

这个得看一下~~~~~~~~~~~~~~~~~~

dzswvip

kanakna whduwheui