《WEB程序设计与应用》网络教学平台

<html>
<head>
<title>利用Recordset对象查询记录</title>
</head>
<body>
<%
Dim db,rs,strSql
'建立Connection对象
Set db=Server.CreateObject("ADODB.Connection")
db.Open "DSN=addr" '这里利用数据源连接
'建立Recordset对象
Set rs=Server.CreateObject("ADODB.Recordset")
strSql ="Select * From users"
rs.Open strSql,db,1
'查询记录
If Not rs.Bof And Not rs.Eof Then
'以下主要为了分页显示
dim page_size '定义每页多少条记录变量
dim page_no '定义当前是第几页变量
dim page_total '定义总页数变量
page_size=2 '每页显示2条记录
'如果第一次打开，则page_no为1，否则由传回的参数决定
if Request.QueryString("page_no")="" then
page_no=1
else
page_no=Cint(Request.QueryString ("page_no")) '用Cint将字符串变为整数
end if
rs.PageSize=page_size '设置每页多少条记录
page_total=rs.PageCount '返回总页数
rs.AbsolutePage=page_no '设置当前显示第几页
'下面一段显示当前页的所有记录
Dim I
I=page_size '该变量用来控制显示当前页记录
Do While Not rs.Eof And I>0 '循环直到当前页结束或文件结尾
I=I-1
Response.Write rs("name") & " " '输出姓名字段值
rs.MoveNext
Loop
Response.Write "请选择数据页: "
'输出有关页数信息，从1到总页数循环，如不是当前页，就加上超链接
For I=1 To page_total
If I=page_no Then
Response.Write I & "&nbsp"
Else
Response.Write "<a href='9-8.asp?page_no=" & I & "'>" & I & "</a>&nbsp"
End If
Next
End if
'关闭对象就省略了
%>
</body>
</html>

3、

<html>
<head>
<title>利用Recordset对象更新数据库</title>
</head>
<body>
<%
Dim db,rs,strSql
'建立Connection对象
Set db=Server.CreateObject("ADODB.Connection")
db.Open "DSN=addr" '这里利用数据源连接
'建立Recordset对象
Set rs=Server.CreateObject("ADODB.Recordset")
strSql ="Select * From users"
rs.Open strSql,db,0,2 '注意参数，锁定类型为可以修改
'添加记录
Dim fields(2),values(2)
fields(0)="name"
fields(1)="Tel"
fields(2)="email"
values(0)="李玫"
values(1)="88888888"
values(2)="limei@263.net"
rs.AddNew fields,values
rs.Update
'更新记录（修改李玫的电话号码）
Dim fields2(0),values2(0)
fields2(0)="tel"
values2(0)="66666666"
rs.Update fields2,values2
'删除记录，删除李玫的记录
rs.Delete
rs.Update
'关闭Connection对象
db.Close
Set db=nothing
%>
</body>
</html>

4、

<html>
<head>
<title>利用Recordset对象更新数据库2</title>
</head>
<body>
<%
Dim db,rs,strSql
'建立Connection对象
Set db=Server.CreateObject("ADODB.Connection")
db.Open "DSN=addr" '这里利用数据源连接
'建立Recordset对象
Set rs=Server.CreateObject("ADODB.Recordset")
strSql ="Select * From users"
rs.Open strSql,db,0,2 '注意参数，锁定类型为可以修改
'添加记录
rs.AddNew
rs("name")="李玫"
rs("tel")="88888888"
rs("email")="limei@263.net"
rs.Update
'更新记录（修改李玫的电话号码）
rs("tel")="66666666"
rs.Update
'删除记录，删除李玫的记录
rs.Delete
rs.Update
'省略关闭对象
%>
</body>
</html>

5、

<html>
<head>
<title> Field对象的常用属性示例</title>
</head>
<body>
<%
Dim db,rs,strSql
Set db=Server.CreateObject("ADODB.Connection")
db.Open "DSN=addr"
Set rs=Server.CreateObject("ADODB.Recordset")
strSql ="Select * From users"
rs.Open strSql,db
'用一个循环将所有字段属性写出
Dim I,fld
For I=0 to rs.Fields.Count-1
'下面建立当前字段的Field对象fld
Set fld=rs.Fields.Item(I)
Response.Write "字段名称：" & fld.Name & " "
Response.Write "字段值：" & fld.Value & " "
Response.Write "字段类型：" & fld.Type & " "
Response.Write "字段大小：" & fld.Definedsize & " "
Response.Write "字段最大位数：" & fld.Precision & " "
Next
%>
</body>
</html>

~ 江西信息应用技术职业学院信息技术系制作 ~

E-Mail:lxlz2050@163.net Tel:0791-5275546