大家好，我用ASP制作一个友情链接，想实现点击一次点击次数就自动加1
代码我写成这样：
sub f_click()
dim f_update,f_id
f_id=rs("f_id")
f_update="update friend set f_dianji=f_dianji+1 where f_id=" & rs("f_id")
lele.execute(f_update)
end sub

-----------------------------------------

<a href="<%=rs("f_url")%>" title="<%=rs("f_name")%>" target="_blank" ><%=rs ("f_name")%></a>


可是好像不能实现，打开网页左下角有错了！请教下大家！谢谢

Js错误吧

我一般是用两个页面实现的
比如：A页面是链接页面
A.asp：<a href="B.asp?f_id=<%=rs("id")%>&f_url=<%=rs("f_url")%>" title="<%=rs("f_name")%>" target="_blank" ><%=rs ("f_name")%></a>
B.asp:
<%
dim f_id,f_url
f_id=request.querystring("id")
f_url=request.querystring("f_url")
f_update="update friend set f_dianji=f_dianji+1 where f_id=" & f_id
lele.execute(f_update)
response.write f_url
%>

呵呵，我没有用到JS，只是不知道网页右下方还会提示JS的错误，现在只能用两个页面按照楼上的那样了！是可以实现！不知道有没有别的方法呢？因为我是在学做友情链接系统，如果分两个页面的话，得在第二个页面里操作完数据库后再重新定向！并且当鼠标停留在第一页的链接上时不是显示友情链接的网址页是显示了如：、
www.域名.com/b.asp?f_id=1这样的链接，似乎不太好！呵呵！不知道还有没有别的方法！请教

点击左下角出错的图标看错误提示
sub怎么会是js呢？

提示出错是：缺少(;)后来删除了sub就没有了提示，不知道是不是冲突了还是怎么了？现在分成两个页来制作了，只是表现不太好！呵呵！

<script language=javascript>
function f_click()
{
<%
dim f_update,f_id
f_id=rs("f_id")
f_update="update friend set f_dianji=f_dianji+1 where f_id=" & rs("f_id")
lele.execute(f_update)
%>
}
</script>
<a href="<%=rs("f_url")%>" title="<%=rs("f_name")%>" target="_blank" onclick="f_click();"><%=rs ("f_name")%></a>

我试一下，谢谢