
<!--#include file=webhead.asp-->
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<title><%=webname%>-装修文章<%set rs2news=server.createobject("adodb.recordset")
       classid=trim(request("class"))
        if  classid="" then
    sql="select * from wz  order by adddate desc"
    else

         if  classid=1 then
        sql="select * from wz  where class=1  order by adddate desc"
        response.write "-装修常识"
        class1="-装修常识"
        end if 
         if  classid=2 then
        sql="select * from wz where class=2  order by adddate desc"
                response.write "-装修技巧"
                       class1="-装修技巧"
        end if 
         if  classid=3 then
        sql="select * from wz where class=3  order by adddate desc"
                response.write "-家装手册"
                       class1="-家装手册"
        end if 
         if  classid=4 then
        sql="select * from wz where class=4  order by adddate desc"
                response.write "-装修材料"
                       class1="-装修材料"
        end if 
           if  classid=5 then
        sql="select * from wz where class=5  order by adddate desc"
                response.write "-家居风水"
                       class1="-家居风水"
        end if 
           if  classid=6 then
        sql="select * from wz where class=6  order by adddate desc"
                response.write "-装修法规"
                       class1="-装修法规"
        end if 
    end if
    rs2news.open sql,conn,1,1
		%></title>
</head>
<div align="center">
	<table border="0" width="784" cellspacing="0" cellpadding="0" bordercolor="#000000" style="border-left-style: solid; border-left-width: 1px; border-right-style: solid; border-right-width: 1px; border-top-width: 1px; border-bottom-width: 1px" >
		<tr>
			<td bgcolor="#E9E9E9" height=2></td>
				</tr>
		<tr>
			<td height=5></td>
				</tr>
		<tr>
			<td align="center">
			<p align="center">
												<object classid="clsid:D27CDB6E-AE6D-11CF-96B8-444553540000" id="obj1" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0" border="0" width="777" height="123">
	<param name="movie" value="../flash/gd.swf">
	<param name="quality" value="High">
	<embed src="../flash/gd.swf" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" name="obj1" width="777" height="123"></object></td>
				</tr>
		<tr>
			<td height=5></td>
				</tr>
		<tr>
			<td height=5></td>
				</tr>
			</table>
</div>
<div align="center">
	<table border="0" width="784" cellspacing="0" cellpadding="0"  bordercolor="#000000" style="border-left-style: solid; border-left-width: 1px; border-right-style: solid; border-right-width: 1px; border-top-width: 1px; border-bottom-width: 1px" >
		<tr>
			<td></td>
		</tr>
	</table>
	<table border="0" width="784" cellspacing="0" cellpadding="0"  bordercolor="#000000" style="border-left-style: solid; border-left-width: 1px; border-right-style: solid; border-right-width: 1px; border-top-width: 1px; border-bottom-width: 1px" >
		<tr>
			<td valign="top" width="200"><table border="0" width="100%" cellspacing="0" cellpadding="0">
												<tr>
													<td bgcolor="#F7F7F7" height=20>&nbsp; 
													推荐装饰公司　</td>
													<td bgcolor="#E9E9E9"  width=2></td>
												</tr>
												<tr>
												
													<td bgcolor="#E9E9E9" height=2 colspan="1"></td>
													<td bgcolor="#E9E9E9" height=2 colspan="1"></td>

												</tr>
											</table>


<table border="0" width="100%">
								<tr>
									<td  height=0></td>
								</tr>
							</table>

							<table border="0" width="100%" cellspacing="0" cellpadding="0">
								<tr>
									<td>


<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from ad",conn,1,1
%>

						<table cellPadding="2" width="100%" border="0">
													<tr>
														<td  ></td>
													</tr>
													<tr>
														<td >
														 <p align="center">
															<a href="<%=trim(rs("1441url"))%>"  target="_blank">
													<img src="<%=trim(rs("1441"))%>" border="0" width="120" height="40" vspace="3" title="<%=rs("1441name")%>" ></a></td>
													</tr>
													<tr>
														<td >
														 <font color="#000000">
														<p align="center">
														<a href="<%=trim(rs("1442url"))%>"  target="_blank">
													<img src="<%=trim(rs("1442"))%>" border="0" width="120" height="40" vspace="3" title="<%=rs("1442name")%>" ></a> </td>
													</tr>
													<tr>
														<td >
														 <font color="#000000">
														<p align="center">
														<a href="<%=trim(rs("1443url"))%>"  target="_blank">
													<img src="<%=trim(rs("1443"))%>" border="0" width="120" height="40" vspace="3" title="<%=rs("1443name")%>" ></a></td>
													</tr>
													<tr>
														<td >
														 <font color="#000000">
														<p align="center">
														<a href="<%=trim(rs("1444url"))%>"  target="_blank">
													<img src="<%=trim(rs("1444"))%>" border="0" width="120" height="40" vspace="3" title="<%=rs("1444name")%>" ></a></td>
													</tr>
													</table><%rs.close
													set rs=nothing%>
												</td>
									<td bgcolor="#E9E9E9" width=2></td>
									<td  width=2>　</td>
								</tr>
							</table>
							<table border="0" width="100%">
								<tr>
									<td bgcolor="#E9E9E9" height=2></td>
								</tr>
							</table>
							<table border="0" width="100%">
								<tr>
									<td height=10></td>
								</tr>
							</table>
							<table border="0" width="100%" cellspacing="0" cellpadding="0">
												<tr>
													<td bgcolor="#F7F7F7" height=20>&nbsp; 
													装饰文章　</td>
													<td bgcolor="#E9E9E9"  width=2></td>
												</tr>
												<tr>
												
													<td bgcolor="#E9E9E9" height=2 colspan="1"></td>
													<td bgcolor="#E9E9E9" height=2 colspan="1"></td>

												</tr>
											</table>
											<table border="0" width="100%" cellspacing="0" cellpadding="0">
								<tr>
									<td>



						<table cellPadding="2" width="100%" border="0">
													<tr>
														<td  ></td>
													</tr>
													<tr>
														<td >
<table border="0" width="100%" cellpadding="0" cellspacing="0">
				<%
Public sub StrCount2(Str)
		Counter = 0
		z=0
		For I = 1 To Len(Trim(Str))
			If Asc(Mid(Str, I, 1))<0 Then
				Counter = Counter + 2
			Else
			Counter = Counter + 1
			
	
			end if
			if counter >= 26 then
			z=i
			response.write  left(str,z)
			exit for
			end if
		Next
		if z=0 then
			response.write str
end if
End sub
%><%
									
									set rsss=server.createobject("adodb.recordset")
    sqlss="select top 12 * from [wz]  order by adddate desc"
        rsss.open sqlss,conn,1,1
news_cont=0
%><tr>
						<%do while not rsss.eof
										news_cont=news_cont+1
										%>
													
													<tr>
														<td height="20" >
														 &nbsp;	<a title="<%=rsss("newsname")%><br>添加日期:<%=rsss("adddate")%><br>浏览次数:<%=rsss("viewcount")%>" href="list.asp?id=<%=rsss("newsid")%>" ><%StrCount2(rsss("newsname"))%></a> </td>
													</tr>
																<%
										rsss.movenext
										if news_cont >=9 then exit do
										
										loop
										rsss.close
										set rsss=nothing
							
										%>
				</tr>
			</table>
														　</td>
													</tr>
												
													</table>
												</td>
									<td bgcolor="#E9E9E9" width=2></td>
									<td  width=2>　</td>
								</tr>
							</table>
						<table border="0" width="100%">
								<tr>
									<td bgcolor="#E9E9E9" height=2></td>
								</tr>
							</table>
							</td>
			<td width=3 bgcolor="#ffffff">　</td>
			<td width=1 bgcolor="#E9E9E9">　</td>
			<td width=3 bgcolor="#ffffff">　</td>
			<td width=580 valign="top">
			<table border="0" width="100%" cellspacing="0" cellpadding="0">
				<tr>
					<td align="right">
					<div align="left">
						<table border="0" width="99%" cellspacing="0" cellpadding="0">
												<tr>
													<td bgcolor="#F7F7F7" height=20>
													&nbsp;装修文章</td>
															
													<td bgcolor="#E9E9E9"  width=2></td>
												</tr>
												<tr>
												
													<td bgcolor="#E9E9E9" height=2 colspan="1"></td>
													<td bgcolor="#E9E9E9" height=2 colspan="1"></td>

												</tr>
											</table></div>
					</td>
				</tr>
				<tr>
					<td align="right"  height="5"></td>
				</tr>
				<tr>
					<td align="right"  height="30">
					<p align="left">&nbsp;<a href="class.asp?class=1">装修常识</a>
					<a href="class.asp?class=2">装修技巧</a>
					<a href="class.asp?class=3">家装手册</a>
					<a href="class.asp?class=4">装修材料</a>
					<a href="class.asp?class=5">家居风水</a>
					<a href="class.asp?class=6">家装法规</a>&nbsp; </td>
				</tr>
				<tr>
					<td align="right"  height="5"></td>
				</tr><form name="myform" method="post" action="search.asp">
				<tr>
					<td align="right"  height="30">文章搜索：<input type=text name=keyword size=17 maxlength=20 class=wenbenkuang ><input type=radio name=where value=1 id="where1" class="input1" checked><label for="where1">标题</label><input type=radio name=where value=2 id="where2" class="input1"><label for="where2">内容</label><input type=radio name=where value=3 id="where3" class="input1"  ><label for="where3">来源</label>&nbsp;
					<input type=submit value="搜索">&nbsp;&nbsp;
					</td>
				</tr>
				<tr>
					<td align="right"  height="5"></td>
				</tr>
				<tr>
					<td  height="20"><table border="0" width="555" id="table2" cellspacing="0" cellpadding="0">
				<tr>
					<td align="center"></td>
				</tr>
				</form>
				<tr>
					<td></td>
				</tr>
				<%
		if rs2news.recordcount=0 then 
		
		%>
				<tr>
					<td>暂无信息
					　</td>
				</tr>
				<%else%>
				<tr>
					<td align="center">
					<%

	  		rs2news.PageSize =30 '每页记录条数
			iCount=rs2news.RecordCount '记录总数
			iPageSize=rs2news.PageSize
    		maxpage=rs2news.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs2news.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if
	%>
        <table width="95%" border="0" style="border-collapse: collapse" cellspacing="1">
         
          <%
			
			byshop_i=1
			For i=1 To x
			%>
          <tr > 
		    <td  width="538" ><a href="list.asp?id=<%=rs2news("newsid")%>" title="<%=trim(rs2news("newsname"))%>"><%=trim(rs2news("newsname"))%></a><font color="#ff9900">&nbsp;&nbsp;[ 
			<%=rs2news("adddate")%>     &nbsp;&nbsp;浏览：<%=rs2news("viewcount")%> ]</font></td>
          </tr>
         <%if   byshop_i mod 10 = 0 then%>
          <tr > 
		    <td  width="538" >　</td>
          </tr>
         <%end if%>
         
          <%
          byshop_i=byshop_i+1
			rs2news.movenext
		    next
			%>
        </table>
        <table border="0" width="100%" cellspacing="0" cellpadding="0">
			<tr>
				<td align="right">&nbsp;<%call PageControl(iCount,maxpage,page,"border=0 align=right","<p align=right>")%></td>
			</tr>
		</table>
        <%
		
		end if
		rs2news.close
		set rs2news=nothing
Sub PageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
    Dim query, a, x, temp
    action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")

    query = Split(Request.ServerVariables("QUERY_STRING"), "&")
    For Each x In query
        a = Split(x, "=")
        If StrComp(a(0), "page", vbTextCompare) <> 0 Then
            temp = temp & a(0) & "=" & a(1) & "&"
        End If
    Next

    Response.Write("<table " & Table_style & ">" & vbCrLf )        
    Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf )
    Response.Write("<TD align=right>" & vbCrLf )
    Response.Write(font_style & vbCrLf )    
 Response.Write(" 共有" & iCount & "条信息" &"&nbsp;"&   vbCrLf)
     Response.Write(" 共：" & pageCount & "页" &"&nbsp;"&   vbCrLf)
      Response.Write(" 每页" & iPageSize & "篇" &"&nbsp;"&  vbCrLf)
       Response.Write(" 当前第：" & page & "页" &"&nbsp;"&  vbCrLf)
    if page<=1 then
        Response.Write ("首页 " & vbCrLf)        
        Response.Write ("上一页 " & vbCrLf)
    else        
        Response.Write("<A HREF=" & action & "?" & temp & "Page=1>首页</A> " & vbCrLf)
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上一页</A> " & vbCrLf)
    end if

    if page>=pagecount then
        Response.Write ("下一页 " & vbCrLf)
        Response.Write ("尾页 " & vbCrLf)            
    else
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下一页</A> " & vbCrLf)
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & ">尾页</A> " & vbCrLf)            
    end if
    Response.Write("</TD>" & vbCrLf )                
    Response.Write("</TR></form>" & vbCrLf )        
    Response.Write("</table>" & vbCrLf )        
End Sub
%></td>
				</tr>
				<tr>
					<td></td>
				</tr>
			</table>　</td>
				</tr>

			</table>
			</td>
		</tr>
	</table>
</div>
<!--#include file=webfoot.asp-->