news_info.asp

设计考虑校园电子商务模式

<%
'****************************************************
' 多多校园                      Power by ddtaobao.com
' Email:[e-mail]               OICQ:136465584
' Web: http://www.ddtaobao.com              作者:多多
' 校园、企业、医院、公司程序定做，系统开发，网站制作!
' Copyright (C) 2007 ddtaobao.com All Rights Reserved
'****************************************************
%><!--#include file="top.asp"-->

<%
Dim sql,rs,id
Set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from dd_news where id="&request("id")
rs.open sql,conn,1,3
Dim newsname,newsdate,content,newstimes,newswrite
newsname=Rs("newsname")
content=Rs("content")
newsdate=Rs("newsdate")
newstimes=Rs("newstimes")
newswrite=Rs("newswrite")
Rs("newstimes")=Rs("newstimes")+1
Rs.Update
Rs.Close

%>
<TABLE width=778 border=0 align=center cellpadding="4">
  <TBODY>
    <TR> 
      <TD align="center" vAlign=top>

         <TABLE cellSpacing=0 cellPadding=0 width="550" border=0>
          <TBODY>
            <TR> 
              <TD height=21 align="center">新闻标题:<font color=red><%=newsname%></font></TD>
            </TR>
               <TR> 
              <TD height=21 align="center"> 
				<hr noshade class=font size="1"> </TD>
            </TR>
            <TR> 
              <TD> <table width="100%" border="0">
                  <tr> 
                    <td align="right">发布：<%=newswrite%> 日期：<%=newsdate%> 点击：<%=newstimes%></td>
                  </tr>
                  <tr> 
                    <td><%=content%></td>
                  </tr>
                  <tr> 
                    <td align="center">[<a href="javascript:window.close()"><font class=font>关闭窗口</font></a>]</td>
                  </tr>
                </table></TD>
            </TR>
          </TBODY>
        </TABLE>
        


      </TD>
    </TR>
  </TBODY>
</TABLE>
<!--#include file="bottom.asp"-->
</html>