①数据库连接的建立：
Ⅰ、没有密码的数据
< %
set cn=server.createobject("adodb.connection") *建立connecton对象,定义了一个adodb数据库连接组件
cn.open"provider=microsoft.jet.oledb.4.0;data source="&server.mappath("test.mdb") *打开数据库
% >
Ⅱ、设有密码的数据
< %
set cn=server.createobject("adodb.connection") *建立connecton对象,定义了一个adodb数据库连接组件
cn.open"provider=microsoft.jet.oledb.4.0;data source="&server.mappath("test.mdb")&";jet oledb:database password="&pwd *打开数据库
% >
②读取记录：
< %
set cn=server.createobject("adodb.connection")
cn.open"provider=microsoft.jet.oledb.4.0;data source="&server.mappath("test.mdb")
set rs=server.createobject("adodb.recordset") *建立connecton对象
sql="select * from table" *SQL语句
rs.open sql,cn,1,1 *执行上面的SQL语句，其中参数1,1代表读取；参数1,3代表修改记录
if not rs.eof then *如果没有到库底
response.write"< tr >"
for i=0 to rs.fields.count-1 *循环读取字段
resposne.write"< td >"&rs(i).name&"< /td >"
next
rs.movefirst *指针置于首记录
while not rs.eof
response.write"< tr >"
for i=0 to rs.fields.count-1 *循环读取记录
resposne.write"< td >"&rs(i)&"< /td >"
next
rs.movenext *指针下移一个记录
wend
end if
rs.close *关闭rs对像
set rs=nothing *释放rs对像
cn.close *……
set cn=nothing *……
% >
③写入记录：
< %
set cn=server.createobject("adodb.connection")
cn.open"provider=microsoft.jet.oledb.4.0;data source="&server.mappath("test.mdb")
cn.execute"insert into table(fields1,fields2，fields3,…)values(*"&变量1&"*,*"&变量2&"*,*"&变量3&"*,…)"
cn.close *关闭cn对像
set cn=nothing *释放cn对像
% >
④查询记录：
< %
set cn=server.createobject("adodb.connection")
cn.open"provider=microsoft.jet.oledb.4.0;data source="&server.mappath("test.mdb")
set rs=server.createobject("adodb.recordset")
sql="select * from table where fields1=*"&变量1&"* and fields2=*"&变量2&"*"
rs.open sql,cn,1,1
: *关闭对象
:
% >
⑤删除记录：
< %
set cn=server.createobject("adodb.connection")
cn.open"provider=microsoft.jet.oledb.4.0;data source="&server.mappath("test.mdb")
cn.execute"delect * from tablename where 条件"
% >
⑥更新记录：
< %
set cn=server.createobject("adodb.connection")
cn.open"provider=microsoft.jet.oledb.4.0;data source="&server.mappath("test.mdb")
Ⅰ、
set rs=server.createobject("adodb.recordset")
sql="update tablename set fields1=数值1 and fields2=数值2"
rs.open sql,cn,1,3
Ⅱ、
cn.execute"update tablename set fields1=数值1,fields2=数值2 where fields=条件"
Ⅲ、
set rs=server.createobject("adodb.recordset")
sql="select * from tablename where fields=数值2"
rs.open sql,cn,1,3
rs("fields1")=新数值1
rs("fields2")=新数值2
rs.update
% >
以下是数据库的常用技巧：
1、设置最多返回条数：
有时候符合查询的记录可能有很多条，但我们并不需要查看全部记录，只是想看前几条记录。
如：看前6条件记录
select top 6 * from tablename order by id desc *desc为递减，asc为递增
另一种可以用百分比返回记录数：
select top 20 percent * from tablename order by id desc
意思是返回全部记录的百分之二十的记录。
2、数据库中的指针操作指令：
rs.movenext 将记录指针从当前的位置向下移一行
rs.moveprevious 将记录指针从当前的位置向上移一行
rs.movefirst 将记录指针移到数据表第一行
rs.movelast 将记录指针移到数据表最后一行
rs.recordcount 返回记录总数 ,但必须rs.open sql,cn,3,3时才有效
