正在加载图片...
電子工業出版社 JEUISHING HOUSE DF ELECTRONCS INDSTR Next 建立记录集,存放查询结果 sers Dim strSql SelectUsers Set rsUsers= Server CreateObject("ADODB. Recordset) strSqlselectUsers=" SELECT FROM users rsUsers. Open strSqlselectUsers, connDemo !一结果输出-一 <html> Head> metahttp-equiv=content-typecontent=text/html:charset=gb2312> < title>基础模块“删除记录”之“删除记录”/ title </head <body bgcolor=#COCOC0"> font face="华文行楷”size="6">删除记录<font>/hl h3》您所选择的记录已删除。数据库中剩余的记录为:</h3 If Not rsUsers. Eof Then <table border="l" cellpadding=8 cellspacing=0 width=342"> < th width="70″>姓名</th < th width="121″>电话/th < th width="143″>电子邮箱√/th> Do While not rsusers. eof <td width=70"><% =rsUsers("username )%></td> <td width="121"><% =rsUsers(phone")%></td> <td width="143"><% =rsUsers (email")%></td>Next '建立记录集，存放查询结果 Dim rsUsers Dim strSqlSelectUsers Set rsUsers = Server.CreateObject("ADODB.Recordset") strSqlSelectUsers="SELECT * FROM users" 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> <% If Not rsUsers.Eof Then %> <table border="1" cellpadding="8" cellspacing="0" width="342"> <tr> <th width="70" >姓名</th> <th width="121" >电话</th> <th width="143" >电子邮箱</th> </tr <% Do While Not rsUsers.Eof %> <tr> <td width="70"><% =rsUsers("username") %></td> <td width="121"><% =rsUsers("phone") %></td> <td width="143"><% =rsUsers("email") %></td> </tr>