[求助]推荐系统的代码问题，急急求助！ - ASP技术论坛

问题点数：0 回复次数：0

[求助]推荐系统的代码问题，急急求助！

最近我的网站要推广所以要写推广的代码，可是老是写不好，一个国庆就这样毁了请大家帮我看看吧  <script> var httpstr=window.location.href; httpstr=httpstr.substring(httpstr.indexOf("=")+1); </script> 这里取到推荐人的ID

<% username= httpstr

set rs=server.createobject("adodb.recordset") sql="select * from link where username='"&username&"'"

rs.open sql,conn,1,3 if rs.eof and rs.bof then rs.addnew rs("username") = username rs("tj") = 1 如果不存在把他加到数据库

rs.Update rs.close else Set rs = Server.CreateObject("ADODB.Recordset") sql="select * from link where username='"&username&"'" rs.open sql,conn,3,2 rs("tj")=rs("tj")+1 存在的话，推荐数加 1 rs.update end if set rs=nothing response.redirect "index.asp" %> 为什么运行了，数据库里老是没有数据加入呢？？请问是哪里出错了？

[此贴子已经被作者于2005-10-6 15:03:16编辑过]

搜索更多相关主题的帖子: httpstr　系统　 username　代码　