| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 669 人关注过本帖
标题:[求助]推荐系统的代码问题,急急求助!
只看楼主 加入收藏
qqwhen
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2005-5-7
收藏
 问题点数:0 回复次数:3 
[求助]推荐系统的代码问题,急急求助!

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

搜索更多相关主题的帖子: httpstr 系统 username 代码 
2005-10-06 15:02
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
'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
2005-10-06 23:52
ming206
Rank: 2
来 自:重庆
等 级:等待验证会员
威 望:3
帖 子:545
专家分:7
注 册:2005-8-2
收藏
得分:0 

代码修改下,如下看看可以不。我也没运行 <!--#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)'调用%>


外贸综合平台:E贸通
2005-10-07 00:20
yilinjun
Rank: 1
等 级:新手上路
帖 子:232
专家分:0
注 册:2005-6-5
收藏
得分:0 
请问是哪里出错了?

分段测试嘛

不能更新还是不能加入?

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

2005-10-07 10:19
快速回复:[求助]推荐系统的代码问题,急急求助!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016187 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved