你是说加到自己的收藏夹里吗?
不太难呀,
建一个字段 addshou的表 shou(数字)
<%
function add(table,t,shou)'talbe表名,t字段名,shou是参数
set radd=server.createobject("adodb.recordset")
sql="select * from "&table&" where "&t&"="&shou
radd.open sql,conn,3,2
if not radd.eof then
response.write"你已经收藏了这篇文章!"
else
radd.addnew
radd(""&t&"")=shou
radd.update
response.write"添加成功!"
end if
radd.close
set radd=nothing
end function %>
调用
addshou.asp
<% id=request.QueryString("id")
if id<>"" and isnumeric(id)=true then
call add("addshou","shou",id)
else
response.Write"参数错误"
end if
%>
[此贴子已经被作者于2005-6-2 11:46:39编辑过]