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

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

<script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

Function DLookup(strFieldName,strTableName,strWhere,objConn)
   '参考 VBA中的 DLookup函数
   '由于环境不同，加了ObjConn参数，直接将Adodb.connection直接调进来
   Dimstrsql
   Dimrs
   Setrs=server.CreateObject("adodb.recordset")
   '下面要调用外部的一个 自定义函数checksql()
   strFieldName=checksql(strFieldName)
   IfstrWhere<>""Then
       strWhere="where"&strWhere
   EndIf
   strsql="select"&strfieldname&"from"&strtablename&""&strwhere
   'debugstopstrsql
   OnErrorResumeNext
   rs.Openstrsql,objConn,1,1
   IfErr<>0Then
       response.writeErr.Description
       response.end()
   EndIf
   
   Ifrs.EOFAndrs.BOFThen
        DLookup=""
   Else
       '要调用一个 自定义函数NZ
       '详细内容请参考ACCESS VBA帮助中的资料
        DLookup=Nz(rs(strFieldName),"")
   EndIf
   rs.Close
EndFunction
<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

<script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>