default.asp

北京商务网

loop 
rs.close 
set rs=nothing 
%>
<TR>
<TD colSpan=2 height=8 bgcolor="#FAFDF9"></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD height=1 background="images/bg_b.gif"></TD>
<TD></TD>
<TD background="images/bg_b.gif"></TD></TR>
<TR>
<TD height=4></TD>
<TD></TD>
<TD></TD></TR>
<TR>
<TD background="images/BusinessAnalyse-an03.gif" 
height=21>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD width=25>　</TD>
<TD><FONT class=M color=#006600>食品</FONT> </TD>
<TD width=100>
<DIV align=right><B><a href="more.asp?typeid=3&newstype=轻织"><FONT 
color=#cc9900>&gt;&gt;更多</FONT></a></B></DIV></TD></TR></TBODY></TABLE></TD>
<TD>　</TD>
<TD 
background="images/BusinessAnalyse-an03.gif">
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD width=25>　</TD>
<TD><FONT class=M color=#006600>化工</FONT> </TD>
<TD width=100>
<DIV align=right><B><a href="more.asp?typeid=4&newstype=化工"><FONT 
color=#cc9900>&gt;&gt;更多</FONT></a></B></DIV></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%" style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<TR>
<TD colSpan=2 height=8 bgcolor="#FAFDF9"></TD></TR>
<% 
sql="select * from hyxx where typeid=3 order by NewsID desc" 
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1 
%> 
<%do while not rs.eof%>
<TR>
<TD height=18 vAlign=top width="94%" bgcolor="#FAFDF9">·<%if rs("selectpic")=1 then%><%end if%><span style=\&quot;font-size:9pt;line-height: 15pt\"><a href="javascript:view1('shownews.asp?newsid=<%=rs("newsid")%>')"><% if len(rs("title"))>16 then%><%=left(rs("title"),15)%>..<% else%><%=rs("title")%><%end if%></a></span>&nbsp; </TD>
<TD height=18 width="6%" bgcolor="#FAFDF9"><FONT color=#999999>
<DIV align=right>(<FONT color=#808080><%=month(rs("dateandtime"))%>/<%=day(rs("dateandtime"))%></FONT>)</DIV></FONT></TD></TR>
<% c=c+1 
if c>=Max then exit do 
rs.movenext 
loop 
rs.close 
set rs=nothing 
%>
<TR>
<TD colSpan=2 height=8 bgcolor="#FAFDF9"></TD></TR></TBODY></TABLE></TD>
<TD>　</TD>
<TD>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%" style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<TR>
<TD colSpan=2 height=8 bgcolor="#FAFDF9"></TD></TR>
<% 
sql="select * from hyxx where typeid=4 order by NewsID desc" 
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1 
%> 
<%do while not rs.eof%>
<TR>
<TD height=18 vAlign=top width="94%" bgcolor="#FAFDF9">·<%if rs("selectpic")=1 then%><%end if%><span style=\&quot;font-size:9pt;line-height: 15pt\"><a href="javascript:view1('shownews.asp?newsid=<%=rs("newsid")%>')"><% if len(rs("title"))>16 then%><%=left(rs("title"),15)%>..<% else%><%=rs("title")%><%end if%></a></span>&nbsp; </TD>
<TD height=18 width="6%" bgcolor="#FAFDF9"><FONT color=#999999>
<DIV align=right>(<FONT color=#808080><%=month(rs("dateandtime"))%>/<%=day(rs("dateandtime"))%></FONT>)</DIV></FONT></TD></TR>
<% d=d+1 
if d>=Max then exit do 
rs.movenext 
loop 
rs.close 
set rs=nothing 
%> 
<TR>
<TD colSpan=2 height=8 bgcolor="#FAFDF9"></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD height=1 background="images/bg_b.gif"></TD>
<TD></TD>
<TD background="images/bg_b.gif"></TD></TR>
<TR>
<TD height=4></TD>
<TD></TD>
<TD></TD></TR>
<TR>
<TD background="images/BusinessAnalyse-an03.gif" 
height=21>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD width=25>　</TD>
<TD><FONT class=M color=#006600>房产</FONT> </TD>
<TD width=100>
<DIV align=right><B><a href="more.asp?typeid=5&newstype=房产"><FONT 
color=#cc9900>&gt;&gt;更多</FONT></a></B></DIV></TD></TR></TBODY></TABLE></TD>
<TD>　</TD>
<TD 
background="images/BusinessAnalyse-an03.gif">
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD width=25>　</TD>
<TD><FONT class=M color=#006600>旅游</FONT> </TD>
<TD width=100>
<DIV align=right><B><a href="more.asp?typeid=6&newstype=旅游"><FONT 
color=#cc9900>&gt;&gt;更多</FONT></a></B></DIV></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%" style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<TR>
<TD colSpan=2 height=8 bgcolor="#FAFDF9"></TD></TR>
<% 
sql="select * from hyxx where typeid=5 order by NewsID desc" 
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1 
%> 
<%do while not rs.eof%>
<TR>
<TD height=18 vAlign=top width="94%" bgcolor="#FAFDF9">·<%if rs("selectpic")=1 then%><%end if%><span style=\&quot;font-size:9pt;line-height: 15pt\"><a href="javascript:view1('shownews.asp?newsid=<%=rs("newsid")%>')"><% if len(rs("title"))>16 then%><%=left(rs("title"),15)%>..<% else%><%=rs("title")%><%end if%></a></span>&nbsp; </TD>
<TD height=18 width="6%" bgcolor="#FAFDF9"><FONT color=#999999>
<DIV align=right>(<FONT color=#808080><%=month(rs("dateandtime"))%>/<%=day(rs("dateandtime"))%></FONT>)</DIV></FONT></TD></TR>
<% e=e+1 
if e>=Max then exit do 
rs.movenext 
loop 
rs.close 
set rs=nothing 
%>
<TR>
<TD colSpan=2 height=8 bgcolor="#FAFDF9"></TD></TR></TBODY></TABLE></TD>
<TD>　</TD>
<TD>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%" style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<TR>
<TD colSpan=2 height=8 bgcolor="#FAFDF9"></TD></TR>
<% 
sql="select * from hyxx where typeid=6 order by NewsID desc" 
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1 
%> 
<%do while not rs.eof%>
<TR>
<TD height=18 vAlign=top width="94%" bgcolor="#FAFDF9">·<%if rs("selectpic")=1 then%><%end if%><span style=\&quot;font-size:9pt;line-height: 15pt\"><a href="javascript:view1('shownews.asp?newsid=<%=rs("newsid")%>')"><% if len(rs("title"))>16 then%><%=left(rs("title"),15)%>..<% else%><%=rs("title")%><%end if%></a></span>&nbsp; </TD>
<TD height=18 width="6%" bgcolor="#FAFDF9"><FONT color=#999999>
<DIV align=right>(<FONT color=#808080><%=month(rs("dateandtime"))%>/<%=day(rs("dateandtime"))%></FONT>)</DIV></FONT></TD></TR>
<% f=f+1 
if f>=Max then exit do 
rs.movenext 
loop 
rs.close 
set rs=nothing 
%>
<TR>
<TD colSpan=2 height=8 bgcolor="#FAFDF9"></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD height=1 background="images/bg_b.gif"></TD>
<TD></TD>
<TD background="images/bg_b.gif"></TD></TR>
<TR>
<TD height=4></TD>
<TD></TD>
<TD></TD></TR>
<TR>
<TD background="images/BusinessAnalyse-an03.gif" 
height=21>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD width=25>　</TD>
<TD><FONT class=M color=#006600>电子</FONT> </TD>
<TD width=100>
<DIV align=right><B><a href="more.asp?typeid=7&newstype=电子"><FONT 
color=#cc9900>&gt;&gt;更多</FONT></a></B></DIV></TD></TR></TBODY></TABLE></TD>
<TD>　</TD>
<TD 
background="images/BusinessAnalyse-an03.gif">
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD width=25>　</TD>
<TD><FONT class=M color=#006600>五金</FONT> </TD>
<TD width=100>
<DIV align=right><B><a href="more.asp?typeid=8&newstype=五金"><FONT 
color=#cc9900>&gt;&gt;更多</FONT></a></B></DIV></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%" style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<TR>
<TD colSpan=2 height=8 bgcolor="#FAFDF9"></TD></TR>
<% 
sql="select * from hyxx where typeid=7 order by NewsID desc" 
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1 
%> 
<%do while not rs.eof%>
<TR>
<TD height=18 vAlign=top width="94%" bgcolor="#FAFDF9">·<%if rs("selectpic")=1 then%><%end if%><span style=\&quot;font-size:9pt;line-height: 15pt\"><a href="javascript:view1('shownews.asp?newsid=<%=rs("newsid")%>')"><% if len(rs("title"))>16 then%><%=left(rs("title"),15)%>..<% else%><%=rs("title")%><%end if%></a></span>&nbsp; </TD>
<TD height=18 width="6%" bgcolor="#FAFDF9"><FONT color=#999999>
<DIV align=right>(<FONT color=#808080><%=month(rs("dateandtime"))%>/<%=day(rs("dateandtime"))%></FONT>)</DIV></FONT></TD></TR>
<% g=g+1 
if g>=Max then exit do 
rs.movenext 
loop 
rs.close 
set rs=nothing 
%>
<TR>
<TD colSpan=2 height=8 bgcolor="#FAFDF9"></TD></TR></TBODY></TABLE></TD>
<TD>　</TD>
<TD>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%" style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<TR>
<TD colSpan=2 height=8 bgcolor="#FAFDF9"></TD></TR>
<% 
sql="select * from hyxx where typeid=8 order by NewsID desc" 
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1 
%> 
<%do while not rs.eof%>
<TR>
<TD height=18 vAlign=top width="94%" bgcolor="#FAFDF9">·<%if rs("selectpic")=1 then%><%end if%><span style=\&quot;font-size:9pt;line-height: 15pt\"><a href="javascript:view1('shownews.asp?newsid=<%=rs("newsid")%>')"><% if len(rs("title"))>16 then%><%=left(rs("title"),15)%>..<% else%><%=rs("title")%><%end if%></a></span>&nbsp; </TD>
<TD height=18 width="6%" bgcolor="#FAFDF9"><FONT color=#999999>
<DIV align=right>(<FONT color=#808080><%=month(rs("dateandtime"))%>/<%=day(rs("dateandtime"))%></FONT>)</DIV></FONT></TD></TR>
<% h=h+1 
if h>=Max then exit do 
rs.movenext 
loop 
rs.close 
set rs=nothing 
%>
<TR>
<TD colSpan=2 height=8 bgcolor="#FAFDF9"></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD height=1 background="images/bg_b.gif"></TD>
<TD></TD>
<TD background="images/bg_b.gif"></TD></TR>
<TR>
<TD height=4></TD>
<TD></TD>
<TD></TD></TR>
<TR>
<TD background="images/BusinessAnalyse-an03.gif" 
height=21>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD width=25>　</TD>
<TD><FONT class=M color=#006600>医药</FONT> </TD>
<TD width=100>
<DIV align=right><B><a href="more.asp?typeid=9&newstype=医药"><FONT 
color=#cc9900>&gt;&gt;更多</FONT></a></B></DIV></TD></TR></TBODY></TABLE></TD>
<TD>　</TD>
<TD 
background="images/BusinessAnalyse-an03.gif">
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD width=25>　</TD>
<TD><FONT class=M color=#006600>汽摩</FONT> </TD>
<TD width=100>
<DIV align=right><B><a href="more.asp?typeid=10&newstype=汽摩"><FONT 
color=#cc9900>&gt;&gt;更多</FONT></a></B></DIV></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%" style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<TR>
<TD colSpan=2 height=8 bgcolor="#FAFDF9"></TD></TR>
<% 
sql="select * from hyxx where typeid=9 order by NewsID desc" 
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1 
%> 
<%do while not rs.eof%>
<TR>
<TD height=18 vAlign=top width="94%" bgcolor="#FAFDF9">·<%if rs("selectpic")=1 then%><%end if%><span style=\&quot;font-size:9pt;line-height: 15pt\"><a href="javascript:view1('shownews.asp?newsid=<%=rs("newsid")%>')"><% if len(rs("title"))>16 then%><%=left(rs("title"),15)%>..<% else%><%=rs("title")%><%end if%></a></span>&nbsp; </TD>
<TD height=18 width="6%" bgcolor="#FAFDF9"><FONT color=#999999>
<DIV align=right>(<FONT color=#808080><%=month(rs("dateandtime"))%>/<%=day(rs("dateandtime"))%></FONT>)</DIV></FONT></TD></TR>
<% i=i+1 
if i>=Max then exit do 
rs.movenext 
loop 
rs.close 
set rs=nothing 
%>
<TR>
<TD colSpan=2 height=8 bgcolor="#FAFDF9"></TD></TR></TBODY></TABLE></TD>
<TD>　</TD>
<TD>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%" style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<TR>
<TD colSpan=2 height=8 bgcolor="#FAFDF9"></TD></TR>
<% 
sql="select * from hyxx where typeid=10 order by NewsID desc" 
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1 
%> 
<%do while not rs.eof%>
<TR>
<TD height=18 vAlign=top width="94%" bgcolor="#FAFDF9">·<%if rs("selectpic")=1 then%><%end if%><span style=\&quot;font-size:9pt;line-height: 15pt\"><a href="javascript:view1('shownews.asp?newsid=<%=rs("newsid")%>')"><% if len(rs("title"))>16 then%><%=left(rs("title"),15)%>..<% else%><%=rs("title")%><%end if%></a></span>&nbsp; </TD>
<TD height=18 width="6%" bgcolor="#FAFDF9"><FONT color=#999999>
<DIV align=right>(<FONT color=#808080><%=month(rs("dateandtime"))%>/<%=day(rs("dateandtime"))%></FONT>)</DIV></FONT></TD></TR>
<% k=k+1 
if k>=Max then exit do 
rs.movenext 
loop 
rs.close 
set rs=nothing 
%>
<TR>
<TD colSpan=2 height=8 bgcolor="#FAFDF9"></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD height=1 background="images/bg_b.gif"></TD>
<TD></TD>
<TD background="images/bg_b.gif"></TD></TR>
<TR>
<TD height=4></TD>
<TD></TD>
<TD></TD></TR>
<TR>
<TD background="images/BusinessAnalyse-an03.gif" 
height=21>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD width=25>　</TD>
<TD><FONT class=M color=#006600>通讯</FONT></TD>
<TD width=100>
<DIV align=right><B><a href="more.asp?typeid=11&newstype=通讯"><FONT 
color=#cc9900>&gt;&gt;更多</FONT></a></B></DIV></TD></TR></TBODY></TABLE></TD>
<TD>　</TD>
<TD 
background="images/BusinessAnalyse-an03.gif">
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD width=25>　</TD>
<TD><FONT class=M color=#006600>金融</FONT> </TD>
<TD width=100>
<DIV align=right><B><a href="more.asp?typeid=12&newstype=金融"><FONT 
color=#cc9900>&gt;&gt;更多</FONT></a></B></DIV></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%" style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<TR>
<TD colSpan=2 height=8 bgcolor="#FAFDF9"></TD></TR>
<% 
sql="select * from hyxx where typeid=11 order by NewsID desc" 
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1 
%> 
<%do while not rs.eof%>
<TR>
<TD height=18 vAlign=top width="94%" bgcolor="#FAFDF9">·<%if rs("selectpic")=1 then%><%end if%><span style=\&quot;font-size:9pt;line-height: 15pt\"><a href="javascript:view1('shownews.asp?newsid=<%=rs("newsid")%>')"><% if len(rs("title"))>16 then%><%=left(rs("title"),15)%>..<% else%><%=rs("title")%><%end if%></a></span>&nbsp; </TD>
<TD height=18 width="6%" bgcolor="#FAFDF9"><FONT color=#999999>
<DIV align=right>(<FONT color=#808080><%=month(rs("dateandtime"))%>/<%=day(rs("dateandtime"))%></FONT>)</DIV></FONT></TD></TR>
<% l=l+1 
if l>=Max then exit do 
rs.movenext 
loop 
rs.close 
set rs=nothing 
%>
<TR>
<TD colSpan=2 height=8 bgcolor="#FAFDF9"></TD></TR></TBODY></TABLE></TD>
<TD>　</TD>
<TD>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%" style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<TR>
<TD colSpan=2 height=8 bgcolor="#FAFDF9"></TD></TR>
<% 
sql="select * from hyxx where typeid=12 order by NewsID desc" 
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1 
%> 
<%do while not rs.eof%>
<TR>
<TD height=18 vAlign=top width="94%" bgcolor="#FAFDF9">·<%if rs("selectpic")=1 then%><%end if%><span style=\&quot;font-size:9pt;line-height: 15pt\"><a href="javascript:view1('shownews.asp?newsid=<%=rs("newsid")%>')"><% if len(rs("title"))>16 then%><%=left(rs("title"),15)%>..<% else%><%=rs("title")%><%end if%></a></span>&nbsp; </TD>
<TD height=18 width="6%" bgcolor="#FAFDF9"><FONT color=#999999>
<DIV align=right>(<FONT color=#808080><%=month(rs("dateandtime"))%>/<%=day(rs("dateandtime"))%></FONT>)</DIV></FONT></TD></TR>
<% m=m+1 
if m>=Max then exit do 
rs.movenext 
loop 
rs.close 
set rs=nothing 
%>
<TR>
<TD colSpan=2 height=8 bgcolor="#FAFDF9"></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD height=1 background="images/bg_b.gif"></TD>
<TD></TD>
<TD background="images/bg_b.gif"></TD></TR>
</TBODY></TABLE>
</TD></TR></TBODY></TABLE>
</td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="750" id="AutoNumber6">
<tr>
<td width="100%" background="images/bt3.gif">　</td>
</tr>
</table>
</CENTER></BODY></HTML>
<!--#include file="../inc/end.asp"-->