正在加载图片...
電子工業出版社 JEUISHING HOUSE DF ELECTRONCS INDSTR 建立记录集,存放查询结果 Dim rsusers Dim strSqlselectUsers Set rsUsers= Server CreateObject("ADODB. Recordset") strSqlselectUsers=" SELECt FROM users WHERE username LIKe%& userName &% rsUsers. Open strSqlselectUsers, connDemo <!一-结果输出 Head> metahttp-equiv=content-typecontent=text/html:charset=gb2312 < title>基础模块“查询记录”之“查询结果”</ title </head <body bgcolor="#COCOC0"> <p> < font face="华文行楷"size="6″>查询结果</font></h1> <h3>查询结果为:</h3 If Not rsusers. Eof Then Ktable 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=143"><% =rsUsers(email")%>/td>'建立记录集，存放查询结果 Dim rsUsers Dim strSqlSelectUsers Set rsUsers = Server.CreateObject("ADODB.Recordset") strSqlSelectUsers="SELECT * FROM users WHERE username LIKE '%" & userName & "%'" 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> <%