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 %> <%= Original %> <%= Author %> 阅读<%= Click %>次</td> </tr> <tr> <td class="big_font"><%= Content %> </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">版权所有© 2005 <br> </font></td> </tr> </table> </body> </html>