帮我看一下这个Sub错在那里

显示全部楼层 · 2008-7-26 16:46:00

Sub CsSub(Types)
Set rs=server.createobject("adodb.recordset")
hsql="select * from LM_Class "
rs.open sql,conn,1,1
uddre=rs("class")
If Types=1 Then
Set hotspotrs=server.createobject("adodb.recordset")
hotspotsql="select Class from LM_Class Where Class="&uddre&""
hotspotrs.open hotspotsql,conn,1,1
Response.Write hotspotrs("class")
End if
End Sub
为什么什么都显示不出来,不知道问题出在什么地方
问题是查询条件里的变量应该这样打'"&&"'问了这么多人，居然没有一个人注意到，哎！

千问 · 2008-7-26 16:46:00

hsql="select * from LM_Class " rs.open sql,conn,1,1 这里的rs.open sql,conn,1,1 是不是应该这样:rs.open hsql,conn,1,1（写程序要细心）如果这里改了还这样的话，你试试把这里改下：hotspotsql="select Class from LM_Class Where Class="&uddre&"" 改成：hotspotsql="select Class from LM_Class Where Class="&uddre还有你数据库有数据吗？呵呵（貌似这个问的有点多余）。

千问 · 2008-7-26 16:46:00

调用.call cssub(1)