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

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

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