電子工業出版社 JEUISHING HOUSE DF ELECTRONCS INDSTR </p> <h3>请点击记录后的“显示”:<h3> If Not rsUsers Eof Then <table border"I"cellpadding="8 cellspacing="0"width=383> <th width="115"></th> width="120″>记录号< < th width="115">姓名</th> Do While Not rsUsers. Eof <th width="115"> </th> ="120"><%= rsUsers("id")%</td Open Windows( this href) ><%=rsUsers("username")%></a> <html> 1 ist sele record.asp>程序可以理解为:用户在 select record.asp中选定的需要浏 览的记录,1 ist sele record.asp根据获取的记录号进行查询,所以, list record.asp 可以引用查询模块中 query.asp程序段。 接受表单输入的数据</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 %> <% '接受表单输入的数据