正在加载图片...
電子工業出版社 JEUISHING HOUSE DF ELECTRONCS INDSTR <tie基础模块“修改记录”之“选择要修改的记录”</ile> <head> <body bgcolor"#COCOC0"> < font face="华文行楷"sie="6">选择要修改的记录</ont><hl> <h3>请选择要修改的记录:</h3> If Not rsUsers Eof Then <table border"I"cellpadding="8"cellspacing=0"width=383 <th width=115">. </th> < th width="120″>记录号</th> < th width="120">姓名</th <th width="56">*</th> Do While Not rsUsers Eof <th width="115"> </th> <td width="120"><%=rsUsers("id")%></td> <td width="120"><%=rsUsers username )%<d <a href="modify record. asp? id=<%=rsUsers("id")%>>< src- image s/editIgl </td> s Users MoveNext L End If </html> modify record.asp程序流程如下图15.17所示:<title>基础模块“修改记录”之“选择要修改的记录”</title> </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="120" >姓名</th> <th width="56">* </th> </tr> <% Do While Not rsUsers.Eof %> <tr> <th width="115" > </th> <td width="120"><% =rsUsers("id") %></td> <td width="120"><% =rsUsers("username") %></td> <td width="56"> <a href="modify_record.asp?id=<% =rsUsers("id") %>"><img src="images/edit1.gif" width="16" height="15" border="0"></a> </td> <% rsUsers.MoveNext Loop End If %> </table> </body> </html> modify_record.asp 程序流程如下图 15.17 所示：