UC知道ASP怎样实现新闻数据自动加一
来源：百度知道 编辑：UC知道 时间：2024/06/24 10:43:05
现有数据表news 表中有 n_id n_title n_hits n_contents
news.asp向newsxx.asp传达新闻详细页
news.asp传达参数如下:
<a href="newsxx.asp?n_id=<%=rs_news("n_id")%> " target="_parent"><%=rs_news("n_title")%></a>
新闻详细页newsxx.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<html>
<%
Dim r_id,rs5,sql8
r_id = "1"
If (Request.QueryString("n_id") <> "") Then
r_id = Request.QueryString("n_id")
End If
set rs5 = Server.CreateObject("ADODB.RECORDSET")
sql8 = "SELECT * FROM news WHERE n_id = "&r_id
rs5.Open sql8,connStr ,1 ,1
%>
<body>
<--展示内容-->
新闻标题
新闻点击次数
新闻内容
</body>
</html>
我现在要实现新闻点击数次数自动加一效果,还有更
news.asp向newsxx.asp传达新闻详细页
news.asp传达参数如下:
<a href="newsxx.asp?n_id=<%=rs_news("n_id")%> " target="_parent"><%=rs_news("n_title")%></a>
新闻详细页newsxx.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<html>
<%
Dim r_id,rs5,sql8
r_id = "1"
If (Request.QueryString("n_id") <> "") Then
r_id = Request.QueryString("n_id")
End If
set rs5 = Server.CreateObject("ADODB.RECORDSET")
sql8 = "SELECT * FROM news WHERE n_id = "&r_id
rs5.Open sql8,connStr ,1 ,1
%>
<body>
<--展示内容-->
新闻标题
新闻点击次数
新闻内容
</body>
</html>
我现在要实现新闻点击数次数自动加一效果,还有更
方法很简单: 用session就可以了.方法如下:
'-----------------------------在那条新闻数据库里加一个字段为: sum
dim sum
sum=rs5("sum") '------------把现在数据库里的sum里的值传给 sum 变量.
if session("sum")<1 then '-------这里作判断
session("sum")=sum+1
'↓↓-----------下面就用更新数据库的方法来更新sum字段就可以了
set update_sum = Server.CreateObject("ADODB.RECORDSET")
update_sql="update * FROM news where sum='"&session("sum")&"'"
'↑↑---------这里上面都是更新内容.我不详细写了.一切按你的数据库来操作.
end if
写得这么样,相信你已经明白了吧?明白原理就行了.自已再写一次吧.不要复制,否则学不到东西哦.. ^_^ 祝你成功!!