info_news2.asp

一个ASP做的购物车

<table width="590" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td width="55" height="34" ><img src="images/main/th_img.gif" width="55" height="34"></td>
    <td width="240" background="images/main/th_bg.gif" ><font color="#FF6600"><strong><font color="#000000">商城快讯</font>　</strong></font><a href="List_news.asp">更多&gt;&gt;&gt;</a></td>
    <td width="55" height="34" ><img src="images/main/th_img2.gif" width="55" height="34"></td>
    <td width="240" background="images/main/th_bg.gif" ><font color="#FF6600"><strong><font color="#000000">站内新闻</font>　</strong></font><a href="List_news.asp">更多&gt;&gt;&gt;</a></td>
  </tr>
</table>
<table width="590" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="294" height="24"> <%'dim i
		  i=0
		  set rs=server.CreateObject("adodb.recordset")
		  rs.open "select top 6 newsname,adddate,newsid from wq_news where Class=1 order by adddate desc",conn,1,1
		  if rs.eof and rs.bof then
		  response.write "　　目前还没有新闻！"
		  else
		  do while not rs.eof
		  i=i+1%> <%if len(trim(rs("newsname")))>11 then
		  response.write "　<font color=#669966>★</font><a href=""javascript:;"" onClick=""javascript:window.open('news.asp?id="&rs("newsid")&"','news','width=432,height=288,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"" title="&year(rs("adddate"))&"年"&month(rs("adddate"))&"月"&day(rs("adddate"))&"日发布>"&left(trim(rs("newsname")),20)&"...."&"</a><br>"
		  else
		  response.write "　<font color=#669966>★</font><a href=""javascript:;"" onClick=""javascript:window.open('news.asp?id="&rs("newsid")&"','news','width=432,height=288,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"" title="&year(rs("adddate"))&"年"&month(rs("adddate"))&"月"&day(rs("adddate"))&"日发布>"&trim(rs("newsname"))&"</a><br>"
		  end if
		  if i>=6 then exit do%> <%rs.movenext
		  loop
		  end if
		  rs.close
		  set rs=nothing%> </td>
    <td valign=top width="1" background="images/bj_x1.gif"></td>
    <td width="294" height="24">
	 <%'dim i
		  i=0
		  set rs=server.CreateObject("adodb.recordset")
		  rs.open "select top 6 newsname,adddate,newsid from wq_news where Class=0 order by adddate desc",conn,1,1
		  if rs.eof and rs.bof then
		  response.write "　　目前还没有新闻！"
		  else
		  do while not rs.eof
		  i=i+1%> <%if len(trim(rs("newsname")))>11 then
		  response.write "　<font color=#669966>★</font><a href=""javascript:;"" onClick=""javascript:window.open('news.asp?id="&rs("newsid")&"','news','width=432,height=288,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"" title="&year(rs("adddate"))&"年"&month(rs("adddate"))&"月"&day(rs("adddate"))&"日发布>"&left(trim(rs("newsname")),20)&"...."&"</a><br>"
		  else
		  response.write "　<font color=#669966>★</font><a href=""javascript:;"" onClick=""javascript:window.open('news.asp?id="&rs("newsid")&"','news','width=432,height=288,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"" title="&year(rs("adddate"))&"年"&month(rs("adddate"))&"月"&day(rs("adddate"))&"日发布>"&trim(rs("newsname"))&"</a><br>"
		  end if
		  if i>=6 then exit do%> <%rs.movenext
		  loop
		  end if
		  rs.close
		  set rs=nothing%> </td>
  </tr>
</table>