ASP自定义函数，仿VBA中域函数DLookup

核心提示：Function dlookup(strFieldName, strTableName, strWhere, objConn) '参考access VBA 中的Dlookup函数 '由于环境不同，加了ObjConn参数，ASP自定义函数，仿VBA中域函数DLookup，直接将Adodb.connec

Function dlookup(strFieldName, strTableName, strWhere, objConn)
　  '参考access VBA 中的Dlookup函数
　  '由于环境不同，加了ObjConn参数，直接将Adodb.connection直接调进来
　  Dim strsql
　  Dim rs
　  Set rs = server.CreateObject("adodb.recordset")
　  '下面要调用外部的一个自定义函数 checksql()
　  strFieldName = checksql(strFieldName)
　  If strWhere <> "" Then
　　　  strWhere = " where " & strWhere
　  End If
　  strsql="select "&strfieldname&" from "&strtablename&" " & strwhere
　  'debugstop strsql
　  On Error Resume Next
　  rs.Open strsql, objConn, 1, 1
　  If Err <> 0 Then
　　　  response.write Err.Description
　　　  response.end()
　  End If
　 
　  If rs.EOF And rs.BOF Then
　　　  dlookup = ""
　  Else
　　　  '要调用一个自定义函数 NZ
　　　  '详细内容请参考 ACCESS VBA 帮助中的资料
　　　  dlookup = Nz(rs(strFieldName), "")
　  End If
　  rs.Close
End Function