<!--#include file="inc/conn.asp"-->
<!--#include file="inc/function.asp"-->
<%
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")
	bhmc=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
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="X-UA-Compatible" content="IE=7" />
<meta name="copyright" content="http://www.wzbhl.com" />
<META content="<%=seoms%>" name="description">
<META content="<%=seokeys%>" name="keywords">
<title><%=seotitle%></title>
<link href="style/css/cnlist.css" type="text/css" rel="stylesheet"/>
<script type="text/javascript" src="style/js/jquery.min.js"></script>
<script type="text/javascript" src="style/js/img.js"></script>
</head>
<body>
<!--#include file="top.asp"--><script type="text/javascript">
$('#l1_pics').d_imagechange({width:'100%',height:430});
</script>
<div class="mqq">
    <div class="qqs"><a href="javascript:;" onclick="kf_openChatWindow(1,'b','1111111')" target="_blank"><img src="style/images/qqq.jpg" /></a></div>
</div>
<div class="vpubboxs">
  <!--#include file="left.asp"-->
  <div class="e_left tushurigfht"><div class="path_e weiruang"><strong><%=lm%></strong></div><div class="showgk"><p style="text-align:center">
    <% 
				set rs=server.createobject("adodb.recordset")
				sql="select * from xwfb where 1=1"
				if bh<>"" then
					sql=sql&" and bh="&bh&""
				end if
				if lmid<>"" then
					sql=sql&" and lmid="&lmid&""
				end if
				sql=sql&" order by px,id desc"
				cnt=0
				
      		 	rs.open sql,conn,1,1
				if rs.eof then%>
&nbsp;&nbsp;&nbsp;&nbsp;<strong><font color="#333333">对不起，暂无记录！</font></strong>
<%
			    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=6
        		rs.AbsolutePage=CurPage
        		Dim nums
				iii=0
        		Nums=rs.RecordCount
        		Dim MultiPages,PageCount
        		MultiPages=MultiPage(Nums,rs.PageSize,CurPage,Url_Add)
				do until rs.eof or PageCount=rs.PageSize
				cnt=cnt+1	
				%>
  </p>
      <table width="670" border="0" cellspacing="0" cellpadding="0" style="margin:10px 0 10px 0">
        <tr>
          <td width="3%">&nbsp;</td>
          <td width="92%"><a href="newview.asp?id=<%=rs("id")%>" target="_blank">
            <%
				  if rs("pic")<>"" then
				  %>
            <img src="<%=rs("pic")%>" width="120" border="0" style="float:right; margin:10px"/>
            <% end if%>
            <h3><%=rs("xwbt")%>
              </h2>
              <span style="line-height:20px;; color:#666"> <%=left(RemoveHTMLTag(rs("content")),100)%>... </span></h3></td>
          <td width="5%">&nbsp;</td>
        </tr>
      </table>
      <div style="height:10px; border-bottom:1px dotted #CCC; margin-bottom:10px"></div>
      <%
				rs.movenext
				i=i+1
				PageCount=PageCount+1
				loop
				rs.close
				end if
				%>
      <table width="500" height="19" border="0" align="center" cellpadding="0" cellspacing="0" style="margin-top:20px">
        <tr>
          <td align="center"><%=MultiPages%></td>
        </tr>
      </table>
  </div></div></div><div class="clear"></div>
<!--#include file="end.asp"-->
</html>
</body>