收集最實用的網頁特效代碼！
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