<%on error resume next%> <%id=request("id")%> <% sql="select * from comp where icheck=True and id=" & id Set rs=Server.CreateObject("ADODB.RecordSet") rs.open sql,conn,1,1 session("company")=rs("company") %> <% dim strSql,rs,i,PageNo strSql="select * from comp where icheck=True and id=" & request("id") set rs=Server.CreateObject("ADODB.RecordSet") rs.open strSql,conn,3,3 rs("click")=rs("click")+1 rs.update %> <%=rs("company")%>最新动态-武鸣信息网
您现在的位置是：首页> 楼盘><%=rs("company")%>
<%=rs("company")%>动态信息
<%if rs("messageCheck")=1 then%> <%end if%> <% if rs("lpvideoad")<>"" then%> <% if left(rs("lpvideoad"),7)="http://" then%> <%else%> <%end if%> <%end if%> <% rs.close set rs=nothing %>
" class="font_menu">楼盘简介  
<% compid=replace(request("id"),"'","’") set rs2=server.createobject("adodb.recordset") sql2="select * from news where compid='"&compid&"' ORDER BY ID DESC" rs2.open sql2,conn,1,3 if not isempty(request("page")) then pagecount=cint(request("page")) else pagecount=1 end if i=1 rs2.pagesize=25 rs2.AbsolutePage=pagecount %> <% do while not rs2.eof%> <% rs2.movenext i=i+1 if i>rs2.pagesize then exit do loop %>
　
标 题
 发布时间
<%=replace(rs2("ndate"),right(rs2("ndate"),8),"")%>
每页显示<%=rs2.pagesize%>条 页次: <%=pagecount%>/<%=rs2.pagecount%> <% if pagecount=1 and rs2.pagecount<>pagecount and rs2.pagecount<>0 then%> 下一页 <% end if %> <% if rs2.pagecount>1 and rs2.pagecount=pagecount then %> 上一页 <%end if%> <% if pagecount<>1 and rs2.pagecount<>pagecount then%> 上一页 下一页 <% end if%> 进入第 页

<% sqlad="select * from comp icheck=True and where id=" & id Set rsad=Server.CreateObject("ADODB.RecordSet") rsad.open sqlad,conn,1,1 %> <%if rsad("flashad2")<>"" then%>
<%end if%> <% rsad.close set rsad=nothing %>
购房工具