ASP操作数据库的类
= 1","fName Asc", 0)
While Not rs.eof
Response.Write ("Name is:" & rs(1) & " Age is:" & rs(2) & "<br />")
rs.movenext()
Wend
db.C(rs)
对于以上的例子，用下面的数组方式指定条件是等价的：
Set rs = db.wGetRecord("TestTable","fId,fName,fAge", Array("fSex:男","IsActive:1"), "fName Asc", 0)
另外，你可以用下面的语句来查看这个函数生成的sql语句：
Response.Write(db.wGetRecord("TestTable","fId,fName,fAge", Array("fSex:男","IsActive:1"), "fName Asc", 0))
如你所见，只需要在原来的函数前加一个w即可。
原 型：dbCtrl.GetRecordBySQL(strSelect)
功 能：根据sql语句取得纪录集
返回值：Object 纪录集对像
参 数：
strSelect : String 用于生成记录集的SQL语句
举 例：
Dim rs
Set rs = db.GetRecordBySQL("Select a.Id, a.LastName, b.Group From User a InnerJoin Depart b On a.GroupId = b.GroupId")
''Your Code Here ...
db.C(rs)
原 型：dbCtrl.GetRecordDetail(TableName, Condition)
功 能：根据某一条指定纪录的详细数据
返回值：Object 纪录集对像
参 数：
TableName : String 表名称
Condition : String or Array 查询条件，如果是数组应遵循前面的参数约定
举 例：
Dim rs, Id
Id = Request.QueryString("id")
Set rs = db.GetRecordDetail("TestTable","Id=" & id)
''Your Code here...
db.C(rs)
说 明：就像你已经看出来的一样，这个最常用在打开某个详细页面(比如新闻内容页面)
原 型：dbCtrl.AddRecord(TableName, ValueList)
功 能：添加一个新的纪录
返回值：新记录的Id号(成功) or 0 (失败)
参 数：
TableName : String 表名称
ValueList : Array 插入表的字段和值，只能是数组且应遵循前面的参数约定
举 例：
Dim fName, fSex, fWorkYear, fBirth
fName = "王二坛"
fSex = "男"
fWorkYear = 12
fBirth = Cdate("1981-10-23")
Dim result
result = db.AddRecord("TestTable",Array("Name:"&fName, "Sex:"&fSex, "WorkYear:"&fWorkYear, "Birthday:"&fBirth, "IsActive:True"))
If result<>0 Then
Response.Write("添加记录成功！此记录的自动编号Id为" & result)
End If
看见了吧，真的不用考虑字段的类型是什麽滴。
如果你想要代码中的字段和值看得更清楚一点，也可以这样写，但凭卿之所好：
result = db.AddRecord("TestTable",Array("Name:" & fName,_
"Sex:" & fSex,_
"WorkYear:" & fWorkYear,_
"Birthday:" & fBirth,_
"IsActive:True"))
另外，你可以用下面的语句来查看这个函数生成的sql语句：
Response.Write(db.wAddRecord("TestTable",Array("Name:"&fName, "Sex:"&fSex, "WorkYear:"&fWorkYear, "Birthday:"&fBirth, "IsActive:True")))
说 明：返回的Id值用的是比较笨的方法，并不能保证在并发数据量大的时候的准确性，慎用。
原 型：dbCtrl.UpdateRecord(TableName, Condition, ValueList)
功 能：根据指定条件更新纪录
返回值：1 (成功) or 0 (失败)
参 数：
TableName : String 表名称
Condition : String or Array 更新条件，如果是数组应遵循前面的参数约定
ValueList : String or Array 更新的字段及值，如果是数组应遵循前面的参数约定
举 例：
Dim fName, fWorkYear
fName = "王三坛"
fWorkYear = 10
Dim result
result = db.UpdateRecord("TestTable", "UId = 1308", Array("Name:"&fName, "WorkYear:"&fWorkYear))
If result<>0 Then
Response.Write("更新数据成功！")
End If
另外，你可以用下面的语句来查看这个函数生成的sql语句：
Response.Write(db.wUpdateRecord("TestTable", "UId = 1308", Array("Name:"&fName, "WorkYear:"&fW
While Not rs.eof
Response.Write ("Name is:" & rs(1) & " Age is:" & rs(2) & "<br />")
rs.movenext()
Wend
db.C(rs)
对于以上的例子，用下面的数组方式指定条件是等价的：
Set rs = db.wGetRecord("TestTable","fId,fName,fAge", Array("fSex:男","IsActive:1"), "fName Asc", 0)
另外，你可以用下面的语句来查看这个函数生成的sql语句：
Response.Write(db.wGetRecord("TestTable","fId,fName,fAge", Array("fSex:男","IsActive:1"), "fName Asc", 0))
如你所见，只需要在原来的函数前加一个w即可。
原 型：dbCtrl.GetRecordBySQL(strSelect)
功 能：根据sql语句取得纪录集
返回值：Object 纪录集对像
参 数：
strSelect : String 用于生成记录集的SQL语句
举 例：
Dim rs
Set rs = db.GetRecordBySQL("Select a.Id, a.LastName, b.Group From User a InnerJoin Depart b On a.GroupId = b.GroupId")
''Your Code Here ...
db.C(rs)
原 型：dbCtrl.GetRecordDetail(TableName, Condition)
功 能：根据某一条指定纪录的详细数据
返回值：Object 纪录集对像
参 数：
TableName : String 表名称
Condition : String or Array 查询条件，如果是数组应遵循前面的参数约定
举 例：
Dim rs, Id
Id = Request.QueryString("id")
Set rs = db.GetRecordDetail("TestTable","Id=" & id)
''Your Code here...
db.C(rs)
说 明：就像你已经看出来的一样，这个最常用在打开某个详细页面(比如新闻内容页面)
原 型：dbCtrl.AddRecord(TableName, ValueList)
功 能：添加一个新的纪录
返回值：新记录的Id号(成功) or 0 (失败)
参 数：
TableName : String 表名称
ValueList : Array 插入表的字段和值，只能是数组且应遵循前面的参数约定
举 例：
Dim fName, fSex, fWorkYear, fBirth
fName = "王二坛"
fSex = "男"
fWorkYear = 12
fBirth = Cdate("1981-10-23")
Dim result
result = db.AddRecord("TestTable",Array("Name:"&fName, "Sex:"&fSex, "WorkYear:"&fWorkYear, "Birthday:"&fBirth, "IsActive:True"))
If result<>0 Then
Response.Write("添加记录成功！此记录的自动编号Id为" & result)
End If
看见了吧，真的不用考虑字段的类型是什麽滴。
如果你想要代码中的字段和值看得更清楚一点，也可以这样写，但凭卿之所好：
result = db.AddRecord("TestTable",Array("Name:" & fName,_
"Sex:" & fSex,_
"WorkYear:" & fWorkYear,_
"Birthday:" & fBirth,_
"IsActive:True"))
另外，你可以用下面的语句来查看这个函数生成的sql语句：
Response.Write(db.wAddRecord("TestTable",Array("Name:"&fName, "Sex:"&fSex, "WorkYear:"&fWorkYear, "Birthday:"&fBirth, "IsActive:True")))
说 明：返回的Id值用的是比较笨的方法，并不能保证在并发数据量大的时候的准确性，慎用。
原 型：dbCtrl.UpdateRecord(TableName, Condition, ValueList)
功 能：根据指定条件更新纪录
返回值：1 (成功) or 0 (失败)
参 数：
TableName : String 表名称
Condition : String or Array 更新条件，如果是数组应遵循前面的参数约定
ValueList : String or Array 更新的字段及值，如果是数组应遵循前面的参数约定
举 例：
Dim fName, fWorkYear
fName = "王三坛"
fWorkYear = 10
Dim result
result = db.UpdateRecord("TestTable", "UId = 1308", Array("Name:"&fName, "WorkYear:"&fWorkYear))
If result<>0 Then
Response.Write("更新数据成功！")
End If
另外，你可以用下面的语句来查看这个函数生成的sql语句：
Response.Write(db.wUpdateRecord("TestTable", "UId = 1308", Array("Name:"&fName, "WorkYear:"&fW