ASP提交的数据如果相同则不再添加只是计数+1;不相同则添加,同时计数为1。

iou3344 2016-02-22 01:34:29
ASP提交的数据如果相同,则该字段数据不再添加,只是其对应的计数字段+1;
如果没有相同的,则添加至该字段,同时其对应的计数字段设为1。


<!--#include file='conn.asp'-->
<%
title = request("title")
actor = request("actor")
Set rs = server.CreateObject("adodb.recordset")

'添加标题及搜索此标题的次数
if title<>"" then
sql = "select * from [search] where title='"&title&"'"
rs.Open sql, conn, 1, 3
rs.addnew
if not rs.eof then
rs("title_numb") = title_numb + 1
else
rs("title") = title
rs("title_numb") =1
end if
rs.update
rs.Close
end if

'添加演员及搜索此演员的次数
if actor<>"" then
sql = "select * from [search] where actor='"&actor&"'"
rs.Open sql, conn, 1, 3
rs.addnew
if not rs.eof then
rs("actor_numb") = actor_numb + 1
else
rs("actor") = actor
rs("actor_numb") = 1
end if
rs.update
rs.Close
end if

Set rs = Nothing
conn.Close
%>


数据库为access
表结构:
id       自动编号    主键
title      文本      保存搜索的影片名称
title_numb   数字      默认为空,保存该影片名称被搜索的次数
actor     文本       保存搜索的演员姓名
actor_numb  数字       默认为空,保存该演员姓名被搜索的次数

为什么不对呢?
...全文
146 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
  • 打赏
  • 举报
回复
rs("title_numb") = cint(rs("title_numb"))+1
iou3344 2016-02-22
  • 打赏
  • 举报
回复

	'添加标题及搜索此标题的次数
	if title<>"" then
		sql = "select * from [search]  where title='" & title & "'"
		rs.Open sql, conn, 1, 3
		if not rs.eof then
			rs("title_numb") = title_numb+1
			rs.update
		else
			rs.addnew
			rs("title") = title
			rs("title_numb") =1
			rs.update
		end if
		rs.Close
	end if
每一部分都加上rs.update也不行。。。
iou3344 2016-02-22
  • 打赏
  • 举报
回复
@ showbo 谢谢 这下好了 ,不过, 。。。又发现一个问题 为什么+1无效呢??
  • 打赏
  • 举报
回复
你都addnew了。。addnew放分支里面 '添加标题及搜索此标题的次数
    if title<>"" then
        sql = "select * from [search]  where title='"&title&"'"
        rs.Open sql, conn, 1, 3
        ''''rs.addnew
        if not rs.eof then
            rs("title_numb") = title_numb + 1
        else
            rs.addnew
            rs("title") = title
            rs("title_numb") =1
        end if
        rs.update
        rs.Close
    end if

    '添加演员及搜索此演员的次数
    if actor<>"" then
        sql = "select * from [search]  where actor='"&actor&"'"
        rs.Open sql, conn, 1, 3
        ''''''''''rs.addnew
        if not rs.eof then
            rs("actor_numb") = actor_numb + 1
        else
            rs.addnew
            rs("actor") = actor
            rs("actor_numb") = 1
        end if
        rs.update
        rs.Close
    end if

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧