newsinfo.asp

采用asp+fso技术 傻瓜式的程序安装和调试 用户无需考虑系统的安装维护 美观、友好的展示铺面 设计中应用了多种网络安全技术 顾客可以方便的查询并订购商品 用户可以方便的定义各种商品信息

<table width="100%" align="center" border="0" cellspacing="0" cellpadding="0" height="22">
<%'dim i
		  i=0
		  set rs=server.CreateObject("adodb.recordset")
		  rs.open "select top 6 newsname,adddate,newsid from shop_news 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%>
<tr> 
<td height="24" bgcolor="#EDF0DB"><span class="b">&nbsp;&nbsp;&nbsp;□</span>
  <%if len(trim(rs("newsname")))>24 then
		  response.write "<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")),22)&"...."&"</a><br>"
		  else
		  response.write "<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>=10 then exit do%></td>
</tr>
<%rs.movenext
		  loop
		  end if
		  rs.close
		  set rs=nothing%>
</table>                    
<TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 bgcolor="#EDF0DB">
  <TBODY>
    <TR>
      <TD align=right><a href="dongtai.asp" target="_blank"><font color="#75710A">More&gt;&gt;</font></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</TD>
    </TR>
    <TR>
      <TD align=right height=4></TD>
    </TR>
  </TBODY>
</TABLE>