in_news.asp

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

									<table cellSpacing="0" cellPadding="0" width="100%" border="0" id="table59">
										<tr>
											<td width="6">
											<img height="6" src="images/didi_001.gif" width="6"></td>
											<td background="images/didi_005.gif">
											<img height="6" src="images/didi_005.gif" width="6"></td>
											<td width="6">
											<img height="6" src="images/didi_002.gif" width="6"></td>
										</tr>
										<tr>
											<td background="images/didi_007.gif">　</td>
											<td vAlign="top" height="131">
											<table  cellSpacing="0" cellPadding="0" width="100%" border="0" id="table60">
												<tr>
													<td align="middle" width="25" bgcolor="#BDDBE9">
													<img height="5" src="images/didi_017.gif" width="13"></td>
													<td  bgcolor="#BDDBE9">
													汽车新闻</td>
												</tr>
											</table>
											<table  cellSpacing="0" cellPadding="5" width="175" border="0" id="table61">
												<tr>
													<td><%
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 >= 16 then
			z=i
			response.write  left(str,z)
			exit for
			end if
		Next
		if z=0 then
			response.write str
end if
End sub
classid1=classid 
if classid= "" then
classid1=rsb("class")
end if
%>
<SCRIPT src="js/tree.js"></SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
<!--
d = new dTree('d');
d.add(0,-1,'新闻分类',"carnews.asp",'新闻分类','','','');
d.add(1,0,'<%if  classid1=1  then%><font color=#0099CC>二手车新闻</font><%else%>二手车新闻<%end if%>',"carnews.asp?class=1",'二手车新闻','');
<%	  	set rs=server.createobject("adodb.recordset")
					  	rs.open "select * from news where  class=1 order by adddate desc",conn,1,1
					  	i=2
						   do while not rs.eof 
					  	
					  	%>
					  	
d.add(<%=i%>,1,'<%if rs("newsid")=rsb("newsid") then%><font color=#0099CC><%end if%><% StrCount(rs("newsname"))%></font>',"news.asp?id=<%=rs("newsid")%>",'发布日期<%=year(rs("adddate"))%>-<%=month(rs("adddate"))%>-<%=day(rs("adddate"))%> 浏览次数:<%=rs("viewcount")%>','','','');
<%rs.movenext
i=i+1
loop
rs.close

%>
d.add(200,0,'<%if classid1=2 then%><font color=#0099CC>行内标准</font><%else%>行内标准<%end if%>',"carnews.asp?class=2",'行内标准','');
<%	  	set rs=server.createobject("adodb.recordset")
					  	rs.open "select * from news where   class=2 order by adddate desc",conn,1,1
				
						   do while not rs.eof 
					  	
					  	%>
					  	
d.add(<%=i%>,200,'<%if rs("newsid")=rsb("newsid") then%><font color=#0099CC><%end if%><%StrCount(rs("newsname"))%></font>',"news.asp?id=<%=rs("newsid")%>",'发布日期<%=year(rs("adddate"))%>-<%=month(rs("adddate"))%>-<%=day(rs("adddate"))%> 浏览次数:<%=rs("viewcount")%>','','','');
<%rs.movenext
i=i+1
loop
rs.close
%>
d.add(201,0,'<%if classid1=3 then%><font color=#0099CC>行内政策</font><%else%>行内政策<%end if%>',"carnews.asp?class=3",'行内政策','');
<%	  	set rs=server.createobject("adodb.recordset")
					  	rs.open "select * from news where   class=3 order by adddate desc",conn,1,1
				
						   do while not rs.eof 
					  	
					  	%>
					  	
d.add(<%=i%>,201,'<%if rs("newsid")=rsb("newsid") then%><font color=#0099CC><%end if%><%StrCount(rs("newsname"))%></font>',"news.asp?id=<%=rs("newsid")%>",'发布日期<%=year(rs("adddate"))%>-<%=month(rs("adddate"))%>-<%=day(rs("adddate"))%> 浏览次数:<%=rs("viewcount")%>','','','');
<%rs.movenext
i=i+1
loop
rs.close
%>

d.add(202,0,'<%if classid1=4 then%><font color=#0099CC>二手车贷款</font><%else%>二手车贷款<%end if%>',"carnews.asp?class=4",'二手车贷款','');
<%	  	set rs=server.createobject("adodb.recordset")
					  	rs.open "select * from news where   class=4 order by adddate desc",conn,1,1
				
						   do while not rs.eof 
					  	
					  	%>
					  	
d.add(<%=i%>,202,'<%if rs("newsid")=rsb("newsid") then%><font color=#0099CC><%end if%><%StrCount(rs("newsname"))%></font>',"news.asp?id=<%=rs("newsid")%>",'发布日期<%=year(rs("adddate"))%>-<%=month(rs("adddate"))%>-<%=day(rs("adddate"))%> 浏览次数:<%=rs("viewcount")%>','','','');
<%rs.movenext
i=i+1
loop
rs.close
set rs=nothing
%>

document.write(d);
//-->
</SCRIPT>
<table border="0" width="100%" id="table62" cellspacing="0" cellpadding="0">
														<tr>
															<td height="11"></td>
														</tr>
													</table>
													</td>
												</tr>
											</table>
											</td>
											<td background="images/didi_008.gif">　</td>
										</tr>
										<tr>
											<td>
											<img height="6" src="images/didi_003.gif" width="6"></td>
											<td background="images/didi_006.gif">
											<img height="6" src="images/didi_006.gif" width="6"></td>
											<td>
											<img height="6" src="images/didi_004.gif" width="6"></td></tr></table><table border="0" width="100%" id="table72" cellspacing="0" cellpadding="0" height="11">
	<tr>
		<td></td>
	</tr>
</table>