快来看看,困绕我好多天的问题。高分相赠!

longhorn008 2004-05-06 08:05:44
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/rs.asp" -->
<%

if(request.querystring("id") <> "") then cmd__did = request.querystring("id")

%>
<%

set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = MM_rs_STRING
cmd.CommandText = "UPDATE lrc SET hot=hot+1 WHERE id=" + Replace(cmd__did, "'", "''") + " "
cmd.CommandType = 1
cmd.CommandTimeout = 0
cmd.Prepared = true
cmd.Execute()
%>
<%
set rs=server.CreateObject("adodb.recordset")
response.redirect("lrc/"&server.urlencode(rs("down"))&".lrc")
%>
目的是实现点击后自动加一,然后下载。
最后一段加上去,发生错误,没法重定向
记录加一没问题。帮忙写写最后一段。

错误类型:
ADODB.Recordset (0x800A0CC1)
在对应所需名称或序数的集合中,未找到项目。
/lrc/click_.asp, 第 20 行

...全文
53 4 点赞 打赏 收藏 举报
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
xieyj 2004-05-06
set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = MM_rs_STRING
cmd.CommandText = "UPDATE lrc SET hot=hot+1 WHERE id=" + Replace(cmd__did, "'", "''") + " "
cmd.CommandType = 1
cmd.CommandTimeout = 0
cmd.Prepared = true
cmd.Execute()

改成

conn.execute("UPDATE lrc SET hot=hot+1 WHERE id=" + Replace(cmd__did, "'", "''") + " ")
  • 打赏
  • 举报
回复
skyboy0720 2004-05-06
在对应所需名称或序数的集合中,未找到项目。

说明数据库中可能没有你写的字段
  • 打赏
  • 举报
回复
longhorn008 2004-05-06
改试了一下。

rs.open sql,conn,1,1这一行
错误类型:
ADODB.Recordset (0x800A0BB9)
参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。
/lrc/click_.asp, 第 21 行
  • 打赏
  • 举报
回复
wolfsky1994 2004-05-06
set rs=server.CreateObject("adodb.recordset")
sql="select down from 表"
rs.open sql,conn,1,1
response.redirect("lrc/"&server.urlencode(rs("down"))&".lrc")
  • 打赏
  • 举报
回复
相关推荐
发帖
ASP
加入

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-05-06 08:05
社区公告
暂无公告