28,391
社区成员
发帖
与我相关
我的任务
分享
<!--#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
%>
'添加标题及搜索此标题的次数
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也不行。。。 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