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

<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>

<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 160x600, 创建于 08-4-23MSDN */google_ad_slot = "4367022601";google_ad_width = 160;google_ad_height = 600;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>

FunctionDLookup(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
       '详细内容请参考ACCESSVBA帮助中的资料
       DLookup=Nz(rs(strFieldName),"")
   EndIf
   rs.Close
EndFunction
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>

<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 160x600, 创建于 08-4-23MSDN */google_ad_slot = "4367022601";google_ad_width = 160;google_ad_height = 600;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>