ASP Framework　（二）数据库操作DB类_setpageshownum-优快云博客

网站开发最常用最重要的也是数据库操作，该框架的DB类封装了几乎所有关于数据操作部分，并提供了一些高级功能以便灵活使用。

适合操作的数据库类型：ACCESS，MSSQL
虽然ASP也可以操作其它类型数据库，但那种情况非常少，而且兼容性也不太好，所以本类只支持这两种数据库类型。

属性说明：

[setshowerr]
可选值：0，1，2，默认为1
设置数据库操作中的错误显示类型
0为不显示（适用于网站正式发布后）
1显示该类定义的错误提示（提示出错方法名及常见原因）
2 显示IIS错误提示（适用于高级开发人员）

[setdb_type]（数据库类型，0-ACCESS，1-MSSQL，默认为0）
[setdb_host]
[setdb_user]
[setdb_password]
[setdb_name]
[setdb_path]（以上不再解释了，数据库各项配置信息）

[setpagesize]（翻页－每页显示记录数，默认为10）
[setpageshownum]（翻页－显示翻页链接的个数，默认为10）

[setsql]（设置完整的SQL语句）
[settpl]（设置循环段HTML模板）
[setmsg]（设置当一个查询没有记录的时候提示的信息）

方法：
[return]（1或者0）
返回记录是否为空，相当于rs.eof

[query]
返回查询结果
两种形式：
替换模板后的HTML代码，前提是你设置了settpl
第二种形式二维数据，相当于GetRows

[all]
返回查询结果，与RS类似，区别是all是针对于翻页

[page]
返回翻页string，与ALL配合使用

[TRY(sql)]
返回SQL语句操作状态
如果是select语句，将可以直接使用query返回结果
如果是删除、修改，成功则返回true，否则false

[field(sql)]
执行SQL语句，返回第一条记录第一个字段值，相当于rs(0)

[add(f_name,arr)]
添加一条新记录，用于表单提交，arr为形如a(0) = "title|限制条件或值"，a(1) = "adddate|notnull"，a(2) = "newsid|ID18"
将方法将表单名和字段名绑定，并根据|后面的内容进行判断或赋值，如notnull会检查是否为空，ID18将newsid字段添加为随机18位数字，IP为用户IP，等等，可以根据自己需要设置更多的固定值和判断方法。

[update(f_name,id,arr)]
修改记录，与ADD方法类似，多了一个ID，即想要修改的记录的ID值。

示例：
首先根据自己需要更改一下数据库配置信息，因为是框架，所以这些常用的设置已集中到config文件，方便统一管理。

先介绍一下settpl，功能非常强大。
比如我们现在要做一个显示新闻列表的页面，使用settpl将会使操作变得异常简单！

<%option explicit%> '其中include.asp包含了config.asp和class.db.asp  <% dim list,page set db = new cls_db with db .setsql = "select id,title,adddate from news" .settpl = "<li><span>{date_format([2],8)}</span><a href=""./news,show,['id']"">{str_cut([1],50)}</li>" .setmsg = "暂无记录" list = .all page = .page end with %> <html> ..... <ul><%=list%></ul> <p><%=page%></p> .... </html>

OK，这样一个简单的分页显示记录便完成了，你要做的就是设置一下SQL语句、循环块模板及没有记录时的提示。当然setmsg是可选的，不要也可以
为了方便描述，本文没有用到view模板类及ctrl类，即将代码和HTML混合在一起。

详细讲一下settpl：
[]代表字段值，可以使用两种方式，以字段序号表示：[n]代表第n个字段(从0开始计数)、以字段名表示：['title']代表title字段，注意里面是单引号，两种方式可以根据自己的喜好混合使用。
{}这里面代表变量名或函数名，比如上面用到了自己定义的两个函数：data_format格式化时间，str_cut截取中文字符串，{}里面可以包含字段标签，如{str_cut(['title'],50)}，将截取title值前50个字符。

再一例，用户验证

与上类似，重复的代码就不再写了
if db.try("select u_name,u_pwd from users where u_id = .....") then response.write("成功登录") dim query : query = db.query user_name = query(1,0) user_pwd = query(1,1) else response.write("用户名或密码错误") response.end end if

暂时这么多了，add和update还在整理，因为要进一步整合前台表单判断，有点麻烦。代码稍候上传