ASP自定义函数，仿VBA中域函数DLookup
作者：Eve Cole
更新时间：2009-06-24 16:47:28
函数 dlookup(strFieldName, strTableName, strWhere, objConn)
'参考Access VBA中的Dlookup函数
'由于环境不同，加了ObjConn参数，直接将Adodb.connection直接调出
昏暗的strsql
暗淡
设置 rs = server.CreateObject("adodb.recordset")
' 下面要调用外部的一个自定义函数 checksql()
strFieldName = checksql（strFieldName）
如果 strWhere <> "" 那么
strWhere = " 其中 " & strWhere
结束如果
strsql="select "&strfieldname&" from "&strtablename&" " & strwhere
'调试停止strsql
出错时继续下一步
rs.打开 strsql, objConn, 1, 1
如果错误 <> 0 那么
响应.写入错误.描述
响应.end()
结束如果
如果 rs.EOF 和 rs.BOF 那么
dlookup =“”
别的
'要调用一个自定义函数 NZ
'详细内容请参考ACCESS VBA帮助中的资料
dlookup = Nz(rs(strFieldName), "")
结束如果
rs.关闭
结束功能
