ASP操作数据库的类(5)

参 数：
TableName : String 表名称
IDFieldName : String 表的Id字段的名称
IDValues : String or Array 删除条件，可以是由逗号隔开的多个Id号，如果是数组应遵循前面的参数约定
举 例：
Dim ids, result
ids = Request.Form("selectid") '可以假设这裡获取的值是 12, 34, 256, 314 (复选框提交的值都这样)
result = db.DeleteRecord("TestTable", "UId", ids)
If result<>0 Then
Response.Write("删除数据成功！")
End If

当然，你也可以用字符串或者数组指定其它的条件，比如：

result = db.DeleteRecord("TestTable", "UId", "IsActive = 0 And FirstName = 'Tom'")

另外，你可以用下面的语句来查看这个函数生成的sql语句：

Response.Write(db.wDeleteRecord("TestTable", "UId", ids))

原 型：dbCtrl.ReadTable(TableName, Condition, GetFieldNames)
功 能：根据指定条件获取某条纪录中的其他字段的内容
返回值：String (GetFieldNames为单个字段) or Array (GetFieldNames为多个字段)
参 数：
TableName : String 表名称
Condition : String or Array 查询条件，如果是数组应遵循前面的参数约定
GetFieldNames : String 单个字段名或者由逗号隔开的多个字段名
举 例：
Dim uid, result
uid = rs("postid") '假设这裡是页面上某个记录集中的用户id值
result = db.ReadTable("UserTable","UId=" & uid, "UserName")
Response.Write("发佈者：" & result)

我不得不说，在实际应用中，这个函数可能是用得最多的，你上面看到的就是一个非常常用的例子，从一个值去获取另外一个表中某字段值等于该值的另外一个字段的值（有点拗口，不过确实就是这个意思）。下面的例子将告诉你如何根据这个值获得多个相应的值。

Dim uid, result
uid = rs("postid") '假设这裡是页面上某个记录集中的用户id值
result = db.ReadTable("UserTable","UId=" & uid, "UserName,UserSex,UserAge")
Response.Write("发佈者：" & result(0) & "<br /> 性别：" & result(1) & "<br /> 年龄：" &result(2))

如你所见，就这麽简单，输入多个字段名称得到的是一个数组。

原 型：dbCtrl.C(objRs)
功 能：关闭纪录集对像
参 数：
objRs : Object 页面上的某个记录集对像
举 例：
Dim rs
Set rs = db.GetRecordDetail("TestTable","Id=123" )
'Your Code here...
db.C(rs)

这个函数上面的许多例子都用了，就不多解释了，它等同于rs.close : set rs = nothing。
clsDbctrl.rar