pingpai.asp

模块及功能： 1.汽车新闻 分类.查询.翻页 2.出售信息 搜索.评估.地区展示.发布.展示.固顶.刷新 3.求购信息 发布.展示.固顶.刷新 3.加盟商家管理 注册.登录.信

  <!--#include file=byshop_conn.asp-->
  <!--#include file=webhead.asp-->
<title>品牌展示-<%=webname%></title>  
  <%
Public sub StrCount(Str)
	Dim I, Counter
		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 >= 70 then
			z=i
			response.write  left(str,z)
			exit for
			end if
		Next
		if z=0 then
			response.write str
end if
End sub
%><div align="center">
<table border="0" width="779" id="table3" cellspacing="0" cellpadding="0">
	<tr>
		<td>
						<span lang="zh-cn">您的位置</span>：<span lang="zh-cn"><a href="default.asp">网站首页</a> </span>
						&gt;<span lang="zh-cn"> 品牌展示</span></td>
	</tr>
</table>
<table width="779" border="1" cellspacing="0" cellpadding="0" bordercolor="#BDDBE9" style="border-collapse: collapse">
 
  <tr> 
    <td> 

	 <TABLE align=center cellSpacing=0 cellPadding=0 width="100%" bgColor=#e6e6e6 border=0>
<%
		dim rss,rs2,ii,i
		set rss = server.CreateObject ("adodb.recordset")
		set rs2 = server.CreateObject ("adodb.recordset")
		sql="select * from anclass order by anclassidorder"
		rss.open sql,conn,1,1
		if rss.eof and rss.bof then
		response.write "没有添加大分类"
		else
		i=1
		do while not rss.eof
	 %>
          <TR bgColor=#FFFFFF>
             <TD  >
				<table border="0" width="100%" id="table1" cellspacing="0" cellpadding="0">
					<tr>
						<td> <table border="0" width="100%" id="table4">
							<tr>
								<td bgcolor="#BDDBE9"><%=rss("anclass")%>
							</td>

					
								</td>
							</tr>
						</table>
						</td>
					</tr>
				</table>
				</TD></TR>
		<TR>	<%rs2.open "select anclassid,nclassid,nclasspic,nclassidorder,anclassid,nclasscontent,nclass from nclass where anclassid=" & rss("anclassid") & " order by nclassidorder ",conn,1,1
				'rs2.open sql,conn,1,1
				if rs2.eof and rs2.bof then
				response.write "没有添加小分类"
				else
				ii=1
				%>
           <TD  bgColor=#FFFFFF align="center">
			<%
				
				do while not rs2.eof
			%></a>
             <table border="0" width="98%" style="border-collapse: collapse" bordercolor="#DFDFDF">
				<tr> 
				<td >
				<table cellSpacing="0" cellPadding="0" width="25" border="0">
											<tr>
												<td style="FONT-SIZE: 12px; COLOR: #293d05" align="middle" height="86">
												<table cellSpacing="1" cellPadding="0"  bgColor="#cccccc" border="0">
													<tr>
														<td style="FONT-SIZE: 12px; COLOR: #293d05" bgColor="#ffffff" height="30">
														<table cellSpacing="1" cellPadding="0"  bgColor="#ffffff" border="0">
															<tr>
																<td style="FONT-SIZE: 12px; COLOR: #293d05" bgColor="#ffffff" height="30">
																<a href=pingpai2.asp?nclassid=<%=rs2("nclassid")%> >
																<img border="0" src="<%=rs2("nclasspic")%>" width="50" height="50" title="点击查看详细介绍"></a></td>
															</tr>
														</table>
														</td>
													</tr>
												</table>
												</td>
											</tr>
										
										</table>

				</td>
					<td width="24%" align="center"><a href=pingpai2.asp?nclassid=<%=rs2("nclassid")%> ><%=rs2("nclass")%><%
					        
   set rs3=server.CreateObject("adodb.recordset")
					rs3.open "select anclass,nclass from 1car where nclass="&rs2("nclassid"),conn,1,1
					
					  set rs5=server.CreateObject("adodb.recordset")
					rs5.open "select anclass,nclass from 2car where nclass="&rs2("nclassid"),conn,1,1
					%>

</a>
					<br>
					<br><a href="saleclass1.asp?id=small&anid=<%=rss("anclassid")%>&nid=<%=rs2("nclassid")%>">出售
					<%if  rs3.recordcount=0 then
%>

0
<%else%>
<font color="#FF0000">
					<%=rs3.recordcount%></font>
					<%end if%>
辆</a>&nbsp;<a href="buyclass1.asp?id=small&anid=<%=rss("anclassid")%>&nid=<%=rs2("nclassid")%>">求购

	<%if  rs5.recordcount=0 then
%>

0
<%else%>
<font color="#FF0000">
					<%=rs5.recordcount%></font>
					<%end if%>
辆</a>&nbsp;　
					<%rs3.close
					rs5.close
					%>　</td>
					
					<td width="22%" align="left"><%StrCount(rs2("nclasscontent"))%>
					　</td><%
					rs3.close
				rs2.movenext
				%>
					
						<td >
						<%if not rs2.eof then%>
						<table cellSpacing="1" cellPadding="0"  bgColor="#cccccc" border="0">
													<tr>
														<td style="FONT-SIZE: 12px; COLOR: #293d05" bgColor="#ffffff" height="30">
														<table cellSpacing="1" cellPadding="0"  bgColor="#ffffff" border="0">
															<tr>
																<td style="FONT-SIZE: 12px; COLOR: #293d05" bgColor="#ffffff" height="30">
																<a href=pingpai2.asp?nclassid=<%=rs2("nclassid")%> ><img border="0" src="<%=rs2("nclasspic")%>" width="50" height="50" title="点击查看详细介绍"></a></td>
															</tr>
														</table>
														</td>
													</tr>
												</table><%end if%>　</td>
					<td width="24%" align="center"><%if not rs2.eof then%><a href=pingpai2.asp?nclassid=<%=rs2("nclassid")%> ><%=rs2("nclass")%><%
					        set rs3=server.CreateObject("adodb.recordset")
					rs3.open "select * from 1car where nclass="&rs2("nclassid"),conn,1,1
					
					  set rs5=server.CreateObject("adodb.recordset")
					rs5.open "select * from 2car where nclass="&rs2("nclassid"),conn,1,1

%>


</a>
					<br>
					<br><a href="saleclass1.asp?id=small&anid=<%=rss("anclassid")%>&nid=<%=rs2("nclassid")%>">出售
					<%if  rs3.recordcount=0 then
%>

0
<%else%>
<font color="#FF0000">
					<%=rs3.recordcount%></font>
					<%end if%>
辆</a>&nbsp;<a href="buyclass1.asp?id=small&anid=<%=rss("anclassid")%>&nid=<%=rs2("nclassid")%>">求购

	<%if  rs5.recordcount=0 then
%>

0
<%else%>
<font color="#FF0000">
					<%=rs5.recordcount%></font>
					<%end if%>
辆</a>&nbsp;　
					<%rs3.close
					rs5.close
					%>　<%end if%>　</td>
					<td width="22%"><%if not rs2.eof then%><%StrCount(rs2("nclasscontent"))%><%end if%></td>
				
			
	
	
	
			
			
	
			
	
			
	
<%
				rs2.movenext
				
				loop
				end if
				rs2.close
			%></tr></table>
             </TD>
		</TR>
	<%
		rss.movenext
		i=i+1
		loop
		end if
		rss.close
  		set rs2=nothing
  		set rss=nothing
	%>
	
	</TABLE>
    </td>
  </tr>
</table></div>
<br>
<!--#include file="webfoot.asp"-->