 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
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中使用SQL语句之5:开始执行 下一教程: 创建弹出式“每日提示”窗口 您可以阅读与"ASP自定义函数，仿VBA中域函数DLOOKUP"相关的教程: · ASP中和星期有关的自定义函数 · 几个ASP好用的自定义函数 · T-SQL: 17 个与日期时间相关的自定义函数(UDF) · 常用数据库操作的自定义函数 · 用自定义函数获取汉字的首字母 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
