<!--#include file=webhead.asp-->
<title><%=webname%>-装饰公司</title>
<%
Public sub StrCount3(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 >= 34 then
			z=i
			response.write  left(str,z)
			exit for
			end if
		Next
		if z=0 then
			response.write str
end if
End sub
%>
<%
Public sub StrCount4(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 >= 48 then
			z=i
			response.write  left(str,z)
			exit for
			end if
		Next
		if z=0 then
			response.write str
end if
End sub
%>


<LINK href="../css/style.css" type="text/css" rel="stylesheet">

			<div align="center">
<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>

<div align="center">
	<table border="0" width="784" cellspacing="0" cellpadding="0" 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" bordercolor="#000000">
		<tr>
			<td>
					<table border="0" width="100%" cellspacing="0" cellpadding="00">
						<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 valign="top">
			<table cellSpacing="0" cellPadding="0" width="100%" border="0">
				<tr>
					<td vAlign="top" align="middle" colspan="2">
					<table border="0" width="98%" 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=10></td>
								</tr>
							</table>
									</td>
				</tr>
				<tr>
					<td vAlign="top" align="middle" colSpan="2">
					<table id="AutoNumber4" style="BORDER-TOP-WIDTH: 0px; BORDER-LEFT-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 0px; BORDER-COLLAPSE: collapse; BORDER-RIGHT-WIDTH: 0px" borderColor="#111111" cellSpacing="2" cellPadding="2" width="96%" align="center" border="0">
						<tr bgColor="#f7f7f7">
							<td  width="33%" height="21">
							<div align="left">
								装修公司</div>
							</td>
							<td  width="16%" height="21">
							联系电话</td>
							<td  width="9%" height="21">
							联系人</td>
							<td  width="37%" height="21">
							联系地址</td>
						</tr><%
									
									set rs=server.createobject("adodb.recordset")
    sql="select  * from [zxgg] order by zxorder desc"
        rs.open sql,conn,1,1
	if rs.recordcount=0 then 
		else
		
	  		rs.PageSize =20 '每页记录条数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.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
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if
	
			For i=1 To x
		%>
						<tr class="9size" bgColor="#f7f7f7">
							<td  width="33%">
							<span ><%=rs("company")%></span> </td>
							<td  width="16%">
							<%=rs("tel")%></td>
							<td  width="9%">
							<%=rs("username")%></td>
							<td  width="37%">
							<%=rs("address")%><span style="FONT-SIZE: 9pt"><a onclick="return newpage(this.href);" target="_blank" href="http://127.0.0.1/ajfc/web/show.asp?typeto=sale&zid=6400"><font color="#ff6600"> </font></a>
								</span></td>
						</tr>
						<%rs.movenext
		next
			end if
						rs.close
						
						%>
						<tr><td colspan=6><%	call PageControl(iCount,maxpage,page,"border=0 align=right","<p align=center>")


		rs.close
		set rs=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 )    
        
    if page<=1 then     
        Response.Write ("上页 " & vbCrLf)
    else        
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上页</A> " & vbCrLf)
    end if

    if page>=pagecount then
        Response.Write ("下页 " & vbCrLf)    
    else
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下页</A> " & vbCrLf)  
    end if

    Response.Write(" 页次：" & page & "/" & pageCount & "页" &  vbCrLf)
    Response.Write(" 共有" & iCount & "条信息" &  vbCrLf)
    Response.Write("</TD>" & vbCrLf )                
    Response.Write("</TR></form>" & vbCrLf )        
    Response.Write("</table>" & vbCrLf )        
End Sub
%></td></tr>
						</table>
					</td>
				</tr>
				<tr>
					<td width="39%" height="20">&nbsp;&nbsp;</td>
					<td align="right" width="61%">
					　</td>
				</tr>
			</table>
							</td>
						</tr>
					</table>
					</td>
		</tr>
	</table>
	</div>

<!--#include file=webfoot.asp-->
			