set rs=server.createobject("adodb.recordset") - 编程论坛

#2

ayue2222007-08-23 14:18

我只能告诉你一个事实 ..我们不是神仙 ...不是你们给一段什么代码我们就能够知道是什么问题的 ....
就你目前的代码来看..如果查询没问题的话..你得到的数据集应该是多条数据...你应该用 do while not rs.eof进行循环读取数据集进行显示.... 还有最好能够定义一下title函数
dim title ,当然,如果你前面已经定义了话除外...

#3

djbad2007-08-23 14:32

谢谢!!不好意思!!!下次不会这样啦.....谢谢你热心的回答!

#4

hmhz2007-08-23 14:35

改成这样

<% Dim ID
ID=request.QueryString("id")
If ID="" or not IsNumeric(ID) Then
Response.Write ("<SCRIPT language=JavaScript>alert('晕，请不要乱搞哦!'); javascript:top.window.close();</SCRIPT>")
Response.End
End If

set rs=server.createobject("adodb.recordset")
rs.open "select title from HN_down where id="&id,conn,1,1
if rs.eof and rs.bof then
response.write "没有内容"
else
title=rs("title")
end if
rs.close
set rs=nothing
%>
<head><title><%=title%></title>

#5

fengmumei2007-08-23 14:48

<% Dim ID
ID=request.QueryString("id")
If ID="" or not IsNumeric(ID) Then
Response.Write ("<SCRIPT language=JavaScript>alert('晕，请不要乱搞哦!'); javascript:top.window.close();</SCRIPT>")
Response.End
End If
id=replace(request("id")," ","")
response.write("id="&id&"<br>")'输出id,看看有没有传值成功,若此时id无值,下面的也不用看了,若有值且正确则继续
set rs=server.createobject("adodb.recordset")
sql="select * from HN_down where id="&id
response.write(sql)'输出查询语句,然后拷贝到查询分析器中执行,看看有没有结果,有没有内容
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "没有内容"
else
title=rs("title")
end if
rs.close
%>
虽然不能很清楚的明白你的意思,但我觉得你应该在上面两个地方试试

#6

djbad2007-08-23 15:05

id=12
select * from HN_down where id=12没有内容

歌曲名:

#7

fengmumei2007-08-23 15:11

id=12'说明id传值成功
select * from HN_down where id=12
'拷贝到sql查询分析器中执行以下看看是否有值,若无值则title确实为空了

#8

fengmumei2007-08-23 15:15

还有就是那不是错误标记,上面运行出来的结果就是我要的结果,这个你以后测试程序也可以参考,就像这段代码,
response.write("id="&id&"<br>")
输出结果后:id=12
说明这个地方没有问题
你就可以将此处屏蔽了,即:
'response.write("id="&id&"<br>")

#9

djbad2007-08-23 17:34

谢谢,上面位朋友.这么热心的帮助,问题已经解决!!!!!!!!!

#10

下流人生2007-08-23 21:37

解决了说哈怎么解决的啊，我看你的程序看了半天才看明白，你也不说说

我也想知道你程序哪里出了问题