【例15.9】在浏览器上显示Demo数据库users表中的所有记录，选择记录号如图15.19所示,显示记录详细内容，如图15.20所示。（基础模块3.2,选择记录号，显示记录详细内容”）
图15.19 选择要显示的记录
图15.20 显示记录详细内容
“选择记录号，显示记录详细内容”模块由两段程序代码select_record.asp与list_sele_record.asp组成。Select_record.asp是选择记录号，list_sele_record.asp是显示被选定记录的详细内容。
Select_record.asp程序流程如下图15.21所示：
图15.21 Select_record.asp程序流程图从程序流程图中可以看出，程序段“建立一个到数据源的连结”“建立记录集，存放查询结果”与【例15.4】的模块中这两个程序段相同.只要检查修改相应的参数，就可直接引用这两个程序段。
<Select_record.htm>源程序：
<% Option Explicit %>
<%
'建立一个到数据源的连接
Dim strDSN
Dim connDemo
strDSN="Provider=MSDASQL;DRIVER={SQL Server};SERVER=127.0.0.1;DATABASE=Demo;UID=chen;PWD=123"
Set connDemo = Server.CreateObject("ADODB.Connection")
connDemo.Open strDSN
'建立记录集，存放查询结果
Dim rsUsers
Dim strSqlSelectUsers
Set rsUsers = Server.CreateObject("ADODB.Recordset")
strSqlSelectUsers="SELECT * FROM users"
rsUsers.Open strSqlSelectUsers,connDemo,3,3
%>
<!--结果输出(以供选择)-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>基础模块“选择记录,显示记录详细内容”之“选择记录”</title>
<SCRIPT>
function OpenWindows(url){
var newwin=window.open(url,"_blank","toolbar=no,location=no,directories=no,status=no,"+
"menubar=no,scrollbars=yes,resizable=yes,"+
"top=50,left=120,width=600,height=400");
return false;
}
</SCRIPT>
</head>
<body bgcolor="#C0C0C0">
<p>
<font face="华文行楷" size="6">选择记录</font></h1>
</p>
<h3>请点击记录后的“显示”：</h3>
<%
If Not rsUsers.Eof Then
%>
<table border="1" cellpadding="8" cellspacing="0" width="383">
<tr>
<th width="115" > </th>
<th width="120" >记录号</th>
<th width="115" > 姓名 </th>
<th width="120"></th>
</tr
<%
Do While Not rsUsers.Eof
%>
<tr>
<th width="115" > </th>
<td width="120"><% =rsUsers("id") %></td>
<td width="120">
<a href="list_sele_record.asp?id=<% =rsUsers("id") %>" onClick='return OpenWindows(this.href);'><% =rsUsers("username") %></a>
</td>
<%
rsUsers.MoveNext
Loop
End If
%>
</table>
</body>
</html>
<list_Sele_record.asp>程序可以理解为：用户在select_record.asp中选定的需要浏览的记录，list_sele_record.asp根据获取的记录号进行查询，所以，list_record.asp可以引用查询模块中query.asp程序段。
<list_Sele_record.htm>源程序：
<% Option Explicit %>
<%
'接受表单输入的数据
Dim id
id=Request.QueryString("id")
'建立一个到数据源的连接
Dim strDSN
Dim connDemo
strDSN="Provider=MSDASQL;DRIVER={SQL Server};SERVER=127.0.0.1;DATABASE=Demo;UID=chen;PWD=123"
Set connDemo = Server.CreateObject("ADODB.Connection")
connDemo.Open strDSN
'建立记录集,存放查询结果
Dim rsUsers
Dim strSqlSelectUsers
Set rsUsers = Server.CreateObject("ADODB.Recordset")
strSqlSelectUsers="SELECT * FROM users WHERE id=" & id & ""
rsUsers.Open strSqlSelectUsers,connDemo
%>
<!--显示结果-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>基础模块“选择记录,显示记录详细内容”之“显示记录详细内容”</title>
</head>
<body bgcolor="#C0C0C0">
<p>
<font face="华文行楷" size="6">显示记录详细内容</font></h1>
</p>
<h3>您所选择的记录的详细内容为：</h3>
<form>
<p style="line-height:100%">
<font face="华文新魏">姓名, <%=rsUsers("username")%> 电话：<%=rsUsers("phone")%></font></p>
<p style="line-height,100%"><font face="华文新魏">
e-mail,<%=rsUsers("email")%></font></p>
<hr> <p style="line-height:100%">
<font size="4" face="华文行楷">个人简历</font></p>
<p style="line-height,100%"><textarea rows="11" name="resume" cols="92"><%=rsUsers("resume")%></textarea></p>
<p> </p>
</form>
</body>
</html>
图15.19 选择要显示的记录
图15.20 显示记录详细内容
“选择记录号，显示记录详细内容”模块由两段程序代码select_record.asp与list_sele_record.asp组成。Select_record.asp是选择记录号，list_sele_record.asp是显示被选定记录的详细内容。
Select_record.asp程序流程如下图15.21所示：
图15.21 Select_record.asp程序流程图从程序流程图中可以看出，程序段“建立一个到数据源的连结”“建立记录集，存放查询结果”与【例15.4】的模块中这两个程序段相同.只要检查修改相应的参数，就可直接引用这两个程序段。
<Select_record.htm>源程序：
<% Option Explicit %>
<%
'建立一个到数据源的连接
Dim strDSN
Dim connDemo
strDSN="Provider=MSDASQL;DRIVER={SQL Server};SERVER=127.0.0.1;DATABASE=Demo;UID=chen;PWD=123"
Set connDemo = Server.CreateObject("ADODB.Connection")
connDemo.Open strDSN
'建立记录集，存放查询结果
Dim rsUsers
Dim strSqlSelectUsers
Set rsUsers = Server.CreateObject("ADODB.Recordset")
strSqlSelectUsers="SELECT * FROM users"
rsUsers.Open strSqlSelectUsers,connDemo,3,3
%>
<!--结果输出(以供选择)-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>基础模块“选择记录,显示记录详细内容”之“选择记录”</title>
<SCRIPT>
function OpenWindows(url){
var newwin=window.open(url,"_blank","toolbar=no,location=no,directories=no,status=no,"+
"menubar=no,scrollbars=yes,resizable=yes,"+
"top=50,left=120,width=600,height=400");
return false;
}
</SCRIPT>
</head>
<body bgcolor="#C0C0C0">
<p>
<font face="华文行楷" size="6">选择记录</font></h1>
</p>
<h3>请点击记录后的“显示”：</h3>
<%
If Not rsUsers.Eof Then
%>
<table border="1" cellpadding="8" cellspacing="0" width="383">
<tr>
<th width="115" > </th>
<th width="120" >记录号</th>
<th width="115" > 姓名 </th>
<th width="120"></th>
</tr
<%
Do While Not rsUsers.Eof
%>
<tr>
<th width="115" > </th>
<td width="120"><% =rsUsers("id") %></td>
<td width="120">
<a href="list_sele_record.asp?id=<% =rsUsers("id") %>" onClick='return OpenWindows(this.href);'><% =rsUsers("username") %></a>
</td>
<%
rsUsers.MoveNext
Loop
End If
%>
</table>
</body>
</html>
<list_Sele_record.asp>程序可以理解为：用户在select_record.asp中选定的需要浏览的记录，list_sele_record.asp根据获取的记录号进行查询，所以，list_record.asp可以引用查询模块中query.asp程序段。
<list_Sele_record.htm>源程序：
<% Option Explicit %>
<%
'接受表单输入的数据
Dim id
id=Request.QueryString("id")
'建立一个到数据源的连接
Dim strDSN
Dim connDemo
strDSN="Provider=MSDASQL;DRIVER={SQL Server};SERVER=127.0.0.1;DATABASE=Demo;UID=chen;PWD=123"
Set connDemo = Server.CreateObject("ADODB.Connection")
connDemo.Open strDSN
'建立记录集,存放查询结果
Dim rsUsers
Dim strSqlSelectUsers
Set rsUsers = Server.CreateObject("ADODB.Recordset")
strSqlSelectUsers="SELECT * FROM users WHERE id=" & id & ""
rsUsers.Open strSqlSelectUsers,connDemo
%>
<!--显示结果-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>基础模块“选择记录,显示记录详细内容”之“显示记录详细内容”</title>
</head>
<body bgcolor="#C0C0C0">
<p>
<font face="华文行楷" size="6">显示记录详细内容</font></h1>
</p>
<h3>您所选择的记录的详细内容为：</h3>
<form>
<p style="line-height:100%">
<font face="华文新魏">姓名, <%=rsUsers("username")%> 电话：<%=rsUsers("phone")%></font></p>
<p style="line-height,100%"><font face="华文新魏">
e-mail,<%=rsUsers("email")%></font></p>
<hr> <p style="line-height:100%">
<font size="4" face="华文行楷">个人简历</font></p>
<p style="line-height,100%"><textarea rows="11" name="resume" cols="92"><%=rsUsers("resume")%></textarea></p>
<p> </p>
</form>
</body>
</html>
