news.asp

来自「一套设计完善、高效的web商城解决方案」· ASP 代码 · 共 17 行

<table width="195" align="center" cellpadding="0" cellspacing="0">
<%Set rs = Server.CreateObject("ADODB.Recordset")
	sql = "select top 8 * from [News] order by id DESC"
	rs.open sql,conn,0,1
	do while not rs.eof
		Response.Write "<tr><td height=21 valign=middle>&nbsp;<img src=Images/hotpro_0.gif>&nbsp;<a onfocus=blur() href=NewsView.asp?id="&rs("id")&" OnClick='return openAdminWindow(this.href);'>"
		Response.Write ""&left(rs("topic"),14)&".."
		Response.Write "</a><br><img src=Images/190x1.gif></td></tr>"
		Response.Write("<script language='javascript'>function openAdminWindow(url) {	popupWin = window.open(url,'new_page','scrollbars=yes,width=500,height=350');	return false;}</script>")
		rs.movenext
	loop
	rs.close
	set rs=nothing%>
  <tr>
    <td height=22 align="right" valign=bottom><a onfocus=blur() href="News.asp"><img src="Images/top_more.gif" border="0"></a>&nbsp;&nbsp;&nbsp;&nbsp;</td>
  </tr>
</table>