28,390
社区成员
发帖
与我相关
我的任务
分享
title="这是 会 出现 的 是 我 的各 种搜 索关 键词"
value=replace(title," ",",")'空格替换为半角逗号
arr=split(value,",")'拆分得到数组
for j=0 to ubound(arr)
sql=""
sql = "select title,title_numb,id列 from [search] where title='" & arr(j) & "'"
rs.Open sql, conn, 1, 3
if not rs.eof then
sql="update [search] set title_numb=title_numb+1 where title='" & arr(j) & "'"
'rs("title_numb") = rs("title_numb")+1
' rs.update
else
sql="insert into [search](title,title_numb)values('"&arr(j)&"',1)"'插入的应该是arr(j)吧,你怎么插入了title?不是分割后的关键字??
' rs.addnew
' rs("title") = title
'rs("title_numb") = rs("title_numb")+1
' rs.update
end if
response.write sql&"<BR>"'打印sql
conn.execute(sql)'和rs.update差不多一个意思
rs.Close
next