VBA의 도메인 함수 DLookup을 모방하는 ASP 사용자 정의 함수
저자：Eve Cole
업데이트 시간：2009-06-24 16:47:28
함수 dlookup(strFieldName, strTableName, strWhere, objConn)
'Access VBA 중적 Dlookup函数
'由于环境不同，加了ObjConn参数，直接将Adodb.connection直接调进来
희미한 strsql
희미한 RS
rs = server.CreateObject("adodb.recordset")를 설정합니다.
'하단 인터페이스를 사용하는 외부 사용자 정의 checksql()
strFieldName = checksql(strFieldName)
strWhere <> ""이면
strWhere = " 어디에서 " & strWhere
종료 조건
strsql=""&strtablename&"에서 "&strfieldname&" 선택 " & strwhere
'strsql 디버그 중지
오류 발생 시 다음 재개
rs.Open strsql, objConn, 1, 1
오류 <> 0이면
response.write 오류.설명
응답.끝()
종료 조건
rs.EOF 및 rs.BOF인 경우
dlookup = ""
또 다른
'要调用一个자정义函数 NZ
'详细内容请参考 ACCESS VBA 帮助中的资料
dlookup = Nz(rs(strFieldName), "")
종료 조건
RS.닫기
기능 종료
