Question

asp语法问题 返回一个结果集

sub searchProcuctById(dim id) dim sqlProcuctById,rsProcuctById,iq sqlProcuctById="select  * from Product where ID='"&id&"'" Set rsProcuctById= Server.CreateObject("ADODB.Recordset") rsProcuctById.open sqlProcuctById,conn,1,1 return sqlProcuctById rsProcuctById.close set rsProcuctById=nothingend sub你们先看下上面这段代码，这样有没有什么错。 我不了解ASP的语法，我想写一个方法(函数),然后调用的时候只要提供一个ID就可以返回一个结果集，然后我在解开这个结果集，循环获取数据

Answer 1

sub searchProcuctById(id)'这里有变化
dim sqlProcuctById,rsProcuctById,iq
sqlProcuctById="select * from Product where ID="&id'这里id应该是数字，不能用引号
Set rsProcuctById= Server.CreateObject("ADODB.Recordset")
rsProcuctById.open sqlProcuctById,conn,1,1
if not rsProcuctById.eof then

searchProcuctById=rsProcuctById
else
searchProcuctById=null'这里如果找不到，返回空
end if

rsProcuctById.close
set rsProcuctById=nothing
end sub

Answer 2

asp的vb中没有return关键字,和 c, java,不一样
要这样用,吧结果集赋值给方法名就行了,我没有这样用过,应该可以你试试吧

sub searchProcuctById(dim id)
dim sqlProcuctById,rsProcuctById,iq
sqlProcuctById="select * from Product where ID='"&id&"'"
Set rsProcuctById= Server.CreateObject("ADODB.Recordset")
rsProcuctById.open sqlProcuctById,conn,1,1
searchProcuctById=sqlProcuctById
rsProcuctById.close
set rsProcuctById=nothing
end sub

Answer 3

Function SearchProductById(id)
Dim subRs,subSQL
subSQL = "select * from Product Where ID="&ID '组合需查询的对象的SQL
set subRs = conn.Execute(subSQL) 'conn
set SearchProductByID = subRs

End Function