四、实验内容：
1、利用SQL Server创建一个名为tx1的数据库。
（1）在数据库中创建名为t_student和t_users两个表。 表t_student结构：
字段名 t_number t_name t_sex t_phone t_jiguan t_class t_minzu 字段类型 char char char char char char char 字段宽度 2 8 2 12 40 5 8 说明 主键 允许空 允许空 允许空 允许空 允许空 允许空
表t_users结构：
字段名 UserName UserPassword UserLevel 字段类型 char char char 字段宽度 16 16 4 说明 主键 允许空 允许空
（2）向两个数据表添加一些记录。
2．数据的分页查询。
用Session对象和RecordSet对象的AbsolutePosition属性以一页或一条为单位来浏览查询结果。
[参考代码]
建立ASP查询，文件名为select.asp。
<%'设置每一页所要显示的记录条数，这里为9条。 Session(\
'用RecordSet对象的Open方法连接数据库
Set Session(\Constr=\Source=zjf;Initial Catalog=txl;User ID=sa; Password=; \
Session(\
sql=\'利用RecordSet对象的Open方法创建记录集 Session(\
sql,Constr,adOpenkeySet,adlockreadonly,adcmdtext
%>
<%'输出表头，由于数据库中的字段名称为英文，因此，采用HTML标记输出%>
学号 姓名
20
性别 电话 籍贯 班级 民族
<%'记录开始时，当前数据指针在RecordSet对象的位置
Session(\'输出表中的数据
For j=0 To Session(\
Response.Write \ '记录结束时，当前数据指针在RecordSet对象的位置 Session(\'其中Session(\表示表的字段数 For i=0 To Session(\ '把当前的数据记录显示出来
Response.Write \ Next
Response.Write \
'移到下一条数据记录，然后判断是否到表尾，如果是，则把数据指针移到表头 Session(\ If Session(\
Session(\ Exit For End If Next
Response.Write \%>
<%'引入另一个文件，完成翻页功能%> link.as代码如下：
<%Response.Write \数据总条数：\'判断是否到表尾或记录解释否，如果是，则只给“上一页”加上超链接
If(Session(%unt) Then
Response.Write \上一页|\
Response.Write \下一页]\
'否则看是不是表头，如果是则只给“下一页”加上超链接
ElseIf((Session(\ Response.Write \上一页|\
Response.Write \下一页]\'其他情况，都加上超链接 Else
Response.Write \上一页|\
Response.Write \href=\下一页 ]\End If
Response.Write \开始记录：\，结束记录：\。\
%>
Query.asp代码如下：
21
学号 姓名 性别 电话 籍贯 班级 民族 <%
'将数据指针移到要求的位置，先移到头，再使用MoveNext往下移 If Request(\
if session(\ count=session(\ else
count=Session(\ end if
For i =1 To count
Session(\ If Session(\ Session(\ Exit For End If Next End If
'记录数据的起始位置。
Session(\'显示表中指定数据
For j=0 To Session(\
Response.Write \ Session(\ '显示当前数据记录。
For i=0 To Session(\
Response.Write \ Next
Response.Write \ Session(\ If Session(\ Session(\ Exit For End If NEXT
Response.Write \%>
22
3．数据的添加。 [参考代码]
首先创建一个添加数据的页面（INPUT.htm）：
学 生 基 本 数 据 录 入
添加记录文件d_ins.asp：
<%
on error resume Next
23
'取得用户输入的数据
t_name=request.form(\
t_number=request.form(\t_class=request.form(\t_sex=request.form(\
t_minzu=request.form(\t_phone=request.form(\t_jiguan=request.form(\'创建数据库的连接
Set conn = Server.CreateObject(\
strProvider = \Source=zjf;Initial Catalog=txl;User ID=sa; Password=; \
conn.Open strProvider '添加时使用的字段
fields=array(\_phone\
values=array(t_name,t_number,t_class,t_sex,t_minzu,t_phone,t_jiguan)
sql = \INTO t_student(\& Join(fields,\VALUES ('\Join(values,\'添加数据
conn.Execute sql '判断执行是否成功
If conn.Errors.Count>0 Then
Response.Write \系统发生\个错误！\Else
Response.Write \数据添加成功！\End If
Set conn=nothing %>
4．数据的删除。 [参考代码]
建立删除和编辑页面,单击“删除”将执行该记录的删除操作，单击“编辑”，将编辑该记录。
在执行删除和编辑操作时，首先应该定位该记录。可以在前面介绍的分页显示数据库中记录的例子文件名（select.asp）改为 文件名(select2.asp)，代码加入： …
For i=0 To Session(\ '把当前的数据记录显示出来
Response.Write \ Next %>
\修改 <%
Response.Write \
24