我编了一个取SQL结果的函数，请高手设计最高效的算法！！！
本函数仅返回只有一个字段、一条记录的查询结果。
用于快速从数据表中取值，例如：
可以用   get_sql( "SELECT   UserName   FROM   USERS   WHERE   USERID= 'aaa ' ")
立即得到aaa用户的真实姓名

FUNCTION   get_sql(sqlstr)

                dim   rs
                set   rs=conn.execute(sqlstr)
                if   not   rs.eof   then
                          get_sql= " "&rs(0)
                else  
                          get_sql= " "
                end   if
                rs.close
                set   rs=nothing

END   FUNCTION

这样我认为是最高效的算法了，请问还有更高效率的吗？

------解决方案--------------------
传个用户名得了,干嘛传个SQL
------解决方案--------------------
不要用数据库就更高“效率”啦。lz
------解决方案--------------------
有那么麻烦么?
on error resume next '避免用户名为NULL时,或找不到用户时出错
username=conn.( "SELECT UserName FROM USERS WHERE USERID= 'aaa ' ").getstring '取得用户名
------解决方案--------------------
:)
------解决方案--------------------
想法可爱，不过违背了三层开发的精神哦。

建议用存储过程，把数据库查询语句剥离，asp函数只负责传参
------解决方案--------------------
楼上的,应该可以的吧