<% sub zhijie() dim i,strTemp on error resume next Set jie= Server.CreateObject("ADODB.Recordset") zhi="select * from PE_Resume,PE_PositionSupplyInfo where PE_Resume.UserName = PE_PositionSupplyInfo.UserName and PE_PositionSupplyInfo.PositionID = 1 order by ResumeID desc" jie.Open zhi,conn,1,3 Response.Write "" i=1 Do While Not jie.EOF strLb="
" strLb=strLb & "
" if jie("Photo")="" then strLb=strLb & "" & "" &"
" &o_char else strLb=strLb & "" & "" &"
" &o_char end if strLb=strLb & "
"& left(jie("IntervieweeName"),4) &""&o_char strLb=strLb & "
" strLb=strLb & "" Response.Write strLb if i >=25 then exit do jie.MoveNext i=i+1 Loop jie.close end sub %> <% sub news() dim i,strTemp on error resume next Set info= Server.CreateObject("ADODB.Recordset") msg="select top 26 * from PE_Resume order by AvailableDate desc" info.Open msg,conn,1,3 Response.Write "" i=1 Do While Not info.EOF strLb="" strLb=strLb & "" strLb=strLb & ""&o_char strLb=strLb & "" Response.Write strLb if i >=26 then exit do info.MoveNext i=i+1 Loop info.close Response.Write "
  " & left(info("IntervieweeName"),4) &" " &left(info("CurrentAddress"),4) & "[" & left(info("MobilePhone"),11) & "]" &o_char strLb=strLb & "
" end sub %> 经纪人<%=rsUser("IntervieweeName")%>--中国牛蒡网经纪人服务页 ,手机:<%=rsUser("MobilePhone")%>" /> ,联系手机:<%=rsUser("MobilePhone")%>,电话:<%=rsUser("Telephone")%>。为您提供最优质经纪服务!" />

您现在的位置: 中国苹果网 >> 诚信经纪人>>更多

<%call zhijie()%>

<%call news()%>