shjianews.asp

来自「商城程序 界面漂亮 功能强大 欢迎交流 共同进步」· ASP 代码 · 共 21 行

<%
set rs_news=server.CreateObject("adodb.recordset")
strnews="select top 10 * from news where shjiaid="&id
rs_news.open strnews,conn,1,1
%>
<table width=100% border=0 align=center cellpadding=0 cellspacing=0>
<%do while not rs_news.eof%>
<tr>
<td height=23>　·
<% if len(replace(trim(rs_news("title")),"<br>",""))>12 then
response.write "<a href=""user/news_shjia.asp?id="&rs_news("newsid")&""" title="&year(rs_news("addtime"))&"年"&month(rs_news("addtime"))&"月"&day(rs_news("addtime"))&"日发布>"&left(trim(rs_news("title")),12)&"..."&"</a><br>"
	else
response.write "<a href=""user/news_shjia.asp?id="&rs_news("newsid")&""" 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%>
</table>