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.關閉
結束功能
