| 本月文章推荐 |
ASP自定义函数，仿VBA中域函数DLookup发表日期：2004-2-9
|
|
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 |
| 上一篇：ASP 中 Split 函数的实例
人气:17228 下一篇：6行代码实现无组件上传 人气:37186 |
| 浏览全部函数的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
