shjianews.asp

商业网站开发有源代码可以运行

<%
set rs_news=server.CreateObject("adodb.recordset")
strnews="select top 8 * from news where shjiaid="&id
rs_news.open strnews,conn,1,1
%>
<table width=100% border=0 align=center cellpadding=0 cellspacing=0>
  <tr> 
    <td background="images/bj_x.gif" height="1"></td>
  </tr>
  <tr>
    <td height="22" bgcolor="#FFE9A4"> 
      <table cellspacing=0 cellpadding=0 width=100% height="20">
        <tr> 
          <td width=13 height="16">&nbsp;</td>
          <td height="16"> 
            <div align="center"></div>
             
            &nbsp;商家新闻</td>
          <td height="16"> 
            <%
set rs_n=server.CreateObject("adodb.recordset")
strn="select * from news where shjiaid="&id
rs_n.open strn,conn,1,1
if rs_n.recordcount>8 then
%>
            <a href=shjianews.asp?id=<%=rs_shjia("shjiaid")%> target=_blank>更多新闻</a> 
            <%else%>
            &nbsp; 
            <%end if
rs_n.close
set rs_n=nothing
%>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td background="images/bj_x.gif" height="1"></td>
  </tr>
  <%  		
  	    do while not rs_news.eof
  %>
  <tr>
    <td background="images/bj_x.gif" height="1"></td>
  </tr>  
  <tr>
    <td height=23>&nbsp;<img src="images/0.gif" width="12" height="11">&nbsp;
	<% if len(replace(trim(rs_news("title")),"<br>",""))>13 then
response.write "<a href=""javascript:;"" onClick=""javascript:window.open('user/news_shjia.asp?id="&rs_news("newsid")&"','news','width=432,height=288,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"" title="&year(rs_news("addtime"))&"年"&month(rs_news("addtime"))&"月"&day(rs_news("addtime"))&"日发布>"&left(trim(rs_news("title")),10)&"...."&"</a><br>"
			else
response.write "<a href=""javascript:;"" onClick=""javascript:window.open('user/news_shjia.asp?id="&rs_news("newsid")&"','news','width=432,height=288,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"" title="&year(rs_news("addtime"))&"年"&month(rs_news("addtime"))&"月"&day(rs_news("addtime"))&"日发布>"&trim(rs_news("title"))&"</a><br>"
			end if%></td>
  </tr>
  <%rs_news.movenext
  	loop
	rs_news.close
	set rs_news=nothing%>
  <tr>
    <td background="images/bj_x.gif" height="1"></td>
  </tr>  
</table>