news.asp

来自「一个电子商务网站完整代码,在.net平台下开发」· ASP 代码 · 共 30 行

<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<title><%=webname%>--最新新闻</title>
<%dim newsid
newsid=request.QueryString("id")
set rs=server.CreateObject("adodb.recordset")
if newsid="" then
rs.open "select top 1 newsid,newsname,newscontent,addname,adddate,viewnum from news order by adddate desc",conn,1,3
else
rs.open "select * from news where newsid="&newsid&"",conn,1,3
end if
rs("viewnum")=rs("viewnum")+1
rs.update
%> 
<table width="400" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor=<%=bgclr1%>>
  <tr> 
    <td HEIGHT="20" align="center" bgcolor="<% = bgclr1 %>"> <FONT COLOR=#ffffff><%=trim(rs("newsname"))%></FONT> 
    </td>
  </tr>
  <tr> 
    <td height="150" valign="top" BGCOLOR=#FFFFFF>　　<%=trim(rs("newscontent"))%> 
    </td>
  </tr>
  <tr> 
    <td valign="top" BGCOLOR=#FFFFFF align="center">发布人：<%=trim(rs("addname"))%> 发布时间：<%=year(rs("adddate"))&"年"&month(rs("adddate"))&"月"&day(rs("adddate"))&"日"%> 已被浏览 <font color=red><%=rs("viewnum")%></font> 次 <br>
      <a href='javascript:window.close()'>点击关闭窗口</a></td>
  </tr>
</table>
<%rs.close
set rs=nothing%>