<% dim sql,rsUser dim ID id=request("id") 'session("id") sql="select * from PE_Resume where ResumeID='" & ID & "'" set rsUser=server.createobject("adodb.recordset") rsUser.open sql,conn,1,3 If rsUser.eof and rsUser.bof then response.write "

此经纪人的信息不存在或已被删除

" response.end End if %> <% sub news() dim i,strTemp on error resume next Set info= Server.CreateObject("ADODB.Recordset") msg="select top 20 * from PE_Resume,PE_User where PE_Resume.UserName=PE_User.UserName and (PE_User.GroupID=1 or PE_User.GroupID=2 or PE_User.GroupID=3) 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 >=20 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("IntervieweeName")%>

  基本资料
姓  名: <%=rsUser("IntervieweeName")%> 民  族:
<%=rsUser("Nationality")%>
<% if rsUser("photo")<>"" then %> "> " border="0" height="120" width="99" alt="点击放大照片!" /> <% else %> 暂无照片 <% end if %>
性  别: <% if rsUser("Sex")="0" then %> <% elseif rsUser("Sex")="1" then %> <% elseif rsUser("Sex")="2" then %> <% elseif rsUser("Sex")="3" then %> 保密 <% end if %> 年  龄:
<%=rsUser("Age")%>
产  区:  <%=rsUser("CurrentAddress")%> 籍  贯:  <%=rsUser("BirthPlace")%>
QQ号码:  <%=rsUser("QQ")%> 联系电话:  <%=rsUser("Telephone")%>
联系手机:  <%=rsUser("MobilePhone")%> 联系地址:  <%=rsUser("Address")%>
  经营范围
    <%=rsUser("ProfessionalAbility")%>
 产区介绍
    <%=rsUser("WorkExperience")%>

<%call news()%>