日期:2011-08-27 浏览次数:20736 次
以下是代码: <% Class dbClass ’------------------------------------------------------------------------- ’变量说明 ’conn-----------connection对象 ’strsql---------执行查询的语句 ’vTbName--------查询分页的表名 ’vPKey----------查询分页的表的主键 ’vPgFields------查询分页要显示的字段 ’vPgSize--------查询分页每页显示的记录数 ’vCurrPg--------查询分页显示的当前页 ’vConditions----查询分页的条件 ’vOrderBy-------查询分页的排序 ’------------------------------------------------------------------------- private conn,strsql,vTbName,vPKey,vPgFields,vPgSize,vCurrPg,vConditions,vOrderBy ’类的初始化 private Sub Class_Initialize() ’当是MS Sql数据库时设置以下两个变量 Webjx.Com ’dim dbServer ’数据库服务器的名称或ip地址 ’dim dbname ’数据库的名字 dim dbPath ’若是Access数据库,此处设置其路径 dim dbUser ’数据库的登录用户名 dim dbPass ’数据库的登录密码 dim connstr dbPath = "/testasp/data/data.mdb" ’设置数据库路径 dbUser = "admin" Webjx.Com dbPass = "123456" ’若是access,并且有密码 connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbPath) &_ ";User ID=" & dbUser & ";Password=;Jet OLEDB:Database Password=" & dbPass ’若是access,并且没有密码 ’connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(dbPath) ’若是ms-sql数据库 ’connstr = "Provider = Sqloledb; User ID = " & dbUser & "; Password = " & dbPass &_ ’ "; Initial Catalog = " & dbname & "; Data Source = " & dbServer Webjx.Com on error resume next set conn=server.CreateObject("adodb.connection")
免责声明: 本文仅代表作者个人观点,与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
|