<%=rs("company")%>图片展示-武鸣信息网

<%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 if rs.bof or eof then Response.Write "" response.end end if 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%>

" class="font_menu">楼盘简介

" target="_blank" class="font_menu">楼盘视频

团购预订

<% compid=replace(request("id"),"'","’") pictype=replace(request("t"),"'","’") if pictype="" then sql2="select * from pic where compid='"&compid&"' and pictype<>'户型图' order by id desc" else sql2="select * from pic where pictype='"&pictype&"' and compid='"&compid&"' order by id desc" end if Set rs2=Server.CreateObject("ADODB.RecordSet") rs2.open sql2,conn,1,1 if not isempty(request("page")) then pagecount=cint(request("page")) else pagecount=1 end if i=0 rs2.pagesize=9 rs2.AbsolutePage=pagecount %> <% do while not rs2.eof and i<9 %> <% i=i+1 if i mod 3=0 then response.write "" rs2.movenext loop %>

" target="_blank" onFocus="this.blur()"> " width="200" border="0" />
"><%=rs2("ntitle")%> (点击图片可放大)
<%=rs2("pictype")%>

每页显示<%=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%>

<%if rs("flashad2")<>"" then%>

" target="_blank">

" border="0">

<%else%>

<%end if%>