<% dim titleee,des Set kk = Server.CreateObject("ADODB.Recordset") kk.open "select * from Affiche",conn,1,3 titleee=kk("Title") des=left(kk("content"),72) kk.close kk=nothing%> <% set rsxx=server.CreateObject("adodb.recordset") sqlxx="select top 1 * from news where BigClassName='楼盘户外广告牌' order by id asc" rsxx.open sqlxx,conn,1,3 ssid=rsxx("id") %> <% rsxx.close() set rsxx=nothing %> <% set rsxx=server.CreateObject("adodb.recordset") sqlxx="select top 1 * from news where BigClassName='楼盘户外广告牌' order by id desc" rsxx.open sqlxx,conn,1,3 mmid=rsxx("id") %> <% rsxx.close() set rsxx=nothing %> <% id=request("id") set rs=server.CreateObject("adodb.recordset") sql="select top 1 * from news where id="&id&" order by AddDate asc" rs.open sql,conn,1,3 %> <% if not rs.eof then i=1 do while not rs.eof %> <%=titleee%>_<%= RS("TITLE") %>
<%=titleee%> | <%=rs("BigClassName")%> > <%=rs("TITLE")%> 登陆 | 注册
" alt="<%= RS("TITLE") %>" border="0" />
<%=rs("TITLE")%> <%if rs("Content")<>"" then%> :<%=rs("Content")%> <%end if%> …… " target="_blank" style='FONT-SIZE: 12px; line-height:22px;color:#ffffff'>更多>>>
<%=RS("BigClassName")%>推荐 <%if int(id)=int(ssid) then%>第一页<%else%>上一张<%end if%> | <%if int(id)=int(mmid) then%>浏览结束<%else%>下一张<%end if%>
<% r = id set rs02=server.CreateObject("adodb.recordset") sql02="select top 4 * from news where BigClassName='"&RS("BigClassName")&"' order by rnd(" & r & "-id)" rs02.open sql02,conn,1,3 %>
<% if not rs02.eof then i02=1 do while not rs02.eof %> <%if i02 mod 4 = 0 then%> <%end if rs02.movenext i02=i02+1 loop rs02.close() set rs02=nothing end if%>
" >" alt="放大图片" width="211" height="146" border="0" />

<% rs.movenext i=i+1 loop rs.close() set rs=nothing end if%>