⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 news.asp

📁 网上购物系统 asp+sql server 2005
💻 ASP
字号:
<!--#include file="include/dbopenbd.asp" -->
<%
NewsId=aspsql(Request("NewsId"))
If not isNumeric(NewsId) then
	Response.Redirect("main.asp")
end if
set rs=Server.CreateObject("ADODB.RecordSet")
sql= "select * from s_news where online='1' and Pubdate<= getdate() and (OffDate> getdate() or OffDate is null) and NewsId="&NewsId
rs.open sql,conn,1,1
%>
<title><%=rs("NewsTitle")%>-<%=sitename%>-<%=siteurl%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="description" content="<%=sitedescription%>">
<meta name="keywords" content="<%=sitekeywords%>">
<link rel="stylesheet" href="include/css.css" type="text/css">
</head>
<center>
<!--#include file="a_top.asp"-->
<table width="760" border=0 cellspacing=0 cellpadding=0 align=center bgcolor="#FFFFFF"  class="grayline">  
<tr><td bgcolor="FFFBF7" align=center valign=top width=185> 
	<!--#include file="a_login.asp" -->
	<!--#include file="a_tree.asp" -->
</td>
<td bgcolor="#CCCCCC" width="1"></td>
<td width=569 align=center valign=top>

<TABLE border=0 width=100% cellspacing="2" cellpadding="2" align=center>
          <tr>
            <td height=30>目前位置:<a href=main.asp>首页</a> > <a href=news_home.asp>新闻中心</a> > 浏览新闻</td>
          </tr>
          <tr>
            <td width="569"  align="center" height="1" background="images/small/bgline.gif"></td>
          </tr>
</table>
<TABLE cellSpacing=0 cellPadding=1 width=95% align=center bgColor=#FFFFFF border=0>
<%
if rs.bof and rs.eof then
Response.Redirect("main.asp")	
response.end
else
NewsContain= rs("NewsContain")
%>

	<TR align=center><TD><B><FONT color=#ff6600><div style="font-size=15pt;line-height=250%"><%=rs("NewsTitle")%></div></FONT></B></TD></TR>
	<TR><TD align=center><FONT color=#448697><img src=images/small/xie.gif border=0>出处:<%=rs("Source")%> &nbsp; 发布日期:<%=rs("PubDate")%> &nbsp; 浏览次数:<%=rs("cktimes")%> </FONT></TD></TR>
	
  <%
	n=rs("ckTimes")
	n=n+1
	conn.execute "UPDATE s_news SET ckTimes ="&n&" WHERE NewsId="&NewsId
	rs.close
	set rs=nothing
  %>

<TR><TD height=25></td></tr>
<TR><TD vAlign=center bgColor=#ffffff>
<div style="line-height=180%">
<%=NewsContain%>
</div>
</TD></TR>
<%end if%>
</TABLE>
<BR><BR></TD></TR></TABLE>

 <!--#include file="a_bottom.asp"-->
</body></center>

</html>

<%
set conn=nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -