Question

怎么在这段asp代码中加上增加点击数的功能

<%
checkhefa
view_date=Request("view_Date")
if view_date="" or (not IsDate(view_date)) then WriteErrMsg("数据错误!")'view_date=now()
StrSql= "Select * from rili where DT_Date = #" & view_date & "#"
set rs = Conn.Execute (StrSql)
if rs.eof then WriteErrMsg(view_date&"没有任何记录!")
%>
点击日历的某日显示当日的内容,我想在显示一次内容就增加一个点击数,我在表里增加一个存点击数的字段DJ,要怎么写到上面的代码中呢?

Answer 1

DJ=rs("旅消闭DJ")+1
Conn.execute "update rili set DJ = "桥贺&DJ&"拆裂 where ID = "&trim(request("Id"))&""

Answer 2

if rs.eof then
WriteErrMsg(view_date&"没有举誉任何记录!")
else
Conn.Execute("UPDATE rili SET dj=dj+1 WHERE id="& rs("id")
end if
最后的id是指显示的当日内容的正源段裂谈主键，或者用
Conn.Execute("UPDATE rili SET dj=dj+1 WHERE DT_Date = #" & view_date & "#" 代替

Answer 3

if rs.eof then
WriteErrMsg(view_date&"没念者有仔激薯任何记录!")
else
Conn.Execute("UPDATE rili SET dj=dj+1 WHERE id="铅森& rs("id")
end if