最近我的网站要推广所以要写推广的代码，可是老是写不好，一个国庆就这样毁了 请大家帮我看看吧 <!--#include file="conn.asp"--> <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编辑过]

'Set rs = Server.CreateObject("ADODB.Recordset")这里可以把这句省了因为rs已经创建了不用在创建了。 sql="select * from link where username='"&username&"'" rs.open sql,conn,1,3'参数改成这样试试。 rs("tj")=rs("tj")+1 存在的话，推荐数 加 1 rs.update end if set rs=nothing

代码修改下，如下看看可以不。我也没运行 <!--#include file="conn.asp"--> <script> var httpstr=window.location.href; httpstr=httpstr.substring(httpstr.indexOf("=")+1); </script> 这里取到推荐人的ID

<% Dim username 'username=httpstr '这里有这样的用法吗？？我也不清楚，最好用response.Write username 看看出什么 username=request("httpstr") '----------------------------------------------------- 'username接收上页传来的参数，i传参数确定加多少 Function add_new(username,i) Dim rs,sql 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") =i ' 如果不存在 把他加到数据库 Else tj=rs("tj") rs("tj")=tj+i '存在的话，推荐数 加 1 End if rs.Update rs.Close Set rs=nothing conn.Close Set conn=nothing Response.Redirect "index.asp" End Function %> <%Call add_new(username,1)'调用%>

请问是哪里出错了？

分段测试嘛

不能更新还是不能加入？

用execute 看看
偶看到rs.addnew就晕