www.gusucode.com > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书) > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书)\ASP001中学网站设计与实现\zxweb\ReadNews.asp

    <%Response.Buffer = True 
Response.ExpiresAbsolute = Now() - 1 
Response.Expires = 0 
Response.CacheControl = "no-cache" 
Response.AddHeader "Pragma", "No-Cache"
%>
<!--#include file="inc/conn.asp"-->
<%
request_NewsID=Request.QueryString("NewsID")   '传递得到的新闻编号NewsID
if request_NewsID="" then
%>
<script language=javascript>
 alert("参数传递失败!")
</script>
<%
Response.End
end if

conn.execute("update News Set Click=Click+1 where NewsID=" & request_NewsID) '更新点击统计Click

set rs=server.CreateObject("ADODB.RecordSet") '创建记录集对象
rs.Source="select * from News where NewsID=" & request_NewsID '查询所有符合条件的记录
rs.Open rs.Source,conn,1,1 '打开记录集对象
'RecordSet对象.Open [Source],[ActiveConnection],[CursorType],[LockType],[Options]
'CurorType=0 向前指针 1 键盘指针 2 动态指针 3 静态指针 具体使用方法请查询相关资料 
'LockType=1 只读 2 只能同时被一个客户修改,修改时锁定,修改完毕释放 3 可以同时被多个客户修改 4 数据可以修改,但不可锁定其他客户
'Options 可以忽略

Title=trim(rs("Title"))
Author=trim(rs("Author"))
Original=trim(rs("Original"))
UpdateTime=trim(rs("UpdateTime"))
Content=trim(rs("Content"))
Click=trim(rs("Click"))

rs.close

request_BigClassID=Request.QueryString("BigClassID")
request_SmallClassID=Request.QueryString("SmallClassID")
set rs=server.CreateObject("ADODB.RecordSet") '创建记录集对象
rs.Source="select * from News where (BigClassID=" & request_BigClassID & " and SmallClassID=" & request_SmallClassID & ") order by NewsID DESC"  '查询所有符合条件的记录
rs.Open rs.Source,conn,1,1 '打开记录集对象

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>江苏省铁富中学</title>
<link href="css/bodystyle.css" rel="stylesheet" type="text/css">
<script language="JavaScript" src="js/showtitle.js"></script>
</head>

<body background="pic/bg.gif" leftmargin="0" topmargin="2" marginwidth="0" marginheight="0">
<table width="755" height="80" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" style="border:#000000 0px dashed">
        <tr>
          <td width="755" align="center">
            <object classid="clsid:D27CDB6E-AE6D-11CF-96B8-444553540000" id="obj1" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0" border="0" width="753" height="80">
				<param name="movie" value="swf/tou.swf">
				<param name="quality" value="High">
				<embed src="swf/tou.swf" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" name="obj1" width="753" height="80" quality="High"></object>
          </td>
        </tr>
      </table> </td>
  </tr>
</table>
<table width="755" height="44" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center" background="pic/daohang.jpg"><a href="index.htm">本站首页</a> 
      | <a href="twgk.htm">学校概况</a> | <a href="yxdt.htm">学校动态</a>| <a href="xszz.htm">学生组织</a>  
      | <a href="lyb/index.asp" target="_blank">请您留言</a></td> 
  </tr>
</table>
<br>
<table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td valign="top"> 
      <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" style="border:#000000 1px solid;">
        <tr>
          <td><table width="85%" border="0" align="center" cellpadding="3" cellspacing="0">
              <tr> 
                <td align="center" class="big_font"><font color="#000099"><b><%= Title %></b></font></td>
              </tr>
              <tr> 
                <td align="center" class="big_font"><%= UpdateTime %>&nbsp;&nbsp;<%= Original %>&nbsp;&nbsp;<%= Author %>&nbsp;&nbsp;阅读<%= Click %>次</td>
              </tr>
              <tr> 
                <td class="big_font"><%= Content %>&nbsp;</td>
              </tr>
              <tr> 
                <td><hr size="1"></td>
              </tr>
              <tr> 
                <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td><strong><img src="pic/link.gif" width="14" height="13"> 
                        相关新闻</strong></td> 
                    </tr>
                    <tr>
                      <td><table width="100%" border=0 cellpadding=2 cellspacing=0 >
                          <% if rs.bof and rs.eof then
Response.write "没有相关新闻!"
else
%>
                          <% While not rs.eof %>
                          <tr><td width=100%>
<% Response.write "<a title=" & trim(rs("Title")) & " href=ReadNews.asp?NewsID=" & rs("NewsID") &  "&BigClassID=" & rs("BigClassId") & "&SmallClassID=" & rs("SmallClassID") & " target=_blank><img src='./pic/news.gif' border=0> " & trim(rs("Title")) & "(" & YEAR(rs("UpdateTime")) & "-" & Month(rs("UpdateTime")) &"-"& Day(rs("UpdateTime")) & ")</a>" %>
                      </td></tr>
<% rs.movenext
wend
end if

rs.close
set rs=nothing
%>
					  </table></td>
                    </tr>
                  </table></td>
              </tr>
            </table></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<hr align="center" width="755" size="1">
<table width="755" height="65" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#6699CC">
  <tr>
    <td align="center" valign="middle" style="line-height:120%"><font color="#FFFFFF">版权所有&copy;  
      2005 <br>
      </font></td>
  </tr>
</table>
</body>
</html>