<% dh="您的位置:首页" if request("bh")<>"" then bh=sqlcheck(IsIntegers(request("bh"))) '读取二级栏目 sql2="select * from bhlm where bh="&bh&"" set rs2=conn.execute(sql2) if not rs2.eof then lm=rs2("bhmc") dh=dh&" > "&rs2("bhmc") end if end if if request("lmid")<>"" then lmid=sqlcheck(IsIntegers(request("lmid"))) '读取二级栏目 sql2="select * from xwlm where lmid="&lmid&"" set rs2=conn.execute(sql2) if not rs2.eof then lm=rs2("lmmc") dh=dh&" > "&rs2("lmmc") end if end if %> 沈阳<%=lm%>_<%=seotitle%>
 > <%=dh%>

<% set rs=server.createobject("adodb.recordset") sql="select * from xwfb where pic is not null " if bh<>"" then sql=sql&" and bh="&bh&"" end if if lmid<>"" then sql=sql&" and lmid="&lmid&"" end if if sj<>"" then sql=sql&" and sj="&sj&"" end if sql=sql&" order by px,id " rs.open sql,conn,1,1 if rs.eof then%>     对不起,暂无记录! <% else Dim CurPage,Url_Add IF CheckStr(Request.QueryString("Page"))<>Empty Then Curpage=CLng(CheckStr(Request.QueryString("Page"))) IF Curpage<0 Then Curpage=1 Else Curpage=1 End IF Url_Add="?bh="&request("bh")&"&lmid="&request("lmid")&"&" rs.PageSize=9 rs.AbsolutePage=CurPage Dim nums Nums=rs.RecordCount Dim MultiPages,PageCount MultiPages=MultiPage(Nums,rs.PageSize,CurPage,Url_Add) do until rs.eof or PageCount=rs.PageSize %>

<% for ii=1 to 3%> <% rs.movenext i=i+1 PageCount=PageCount+1 if rs.eof then exit for next %>
<% loop rs.close end if %>