阅读下列说明,根据网页显示的效果图,回答问题1至问题4。 【说明】 以下是用ASP实现的一个网络论坛系统。用IE打开网页文件index.asp后的效果如图5-1所示。 【index.asp文档的内容】 <% set db

admin2009-09-20  28

问题 阅读下列说明,根据网页显示的效果图,回答问题1至问题4。
【说明】
   以下是用ASP实现的一个网络论坛系统。用IE打开网页文件index.asp后的效果如图5-1所示。
      
【index.asp文档的内容】
    <%
   set db=server.createobject ("Adodb. Connection")
   db. (1)  "Dbq=" & server.mappath("data/bbs.mdb") & ";Driver={Microsoft
   Access Driver  (*.mdb) }"
   %>
   <html>
   <body>
   <form  name="form1"  method="post"  action="aaa.asp">
     <table border="0" bgcolor="#0000FF" width="800" cellpadding=0 align=
     "center">
       <tr>
          <IMG onClick=over(this) title=放大 src="images/logo.gif" width="190" height="94"  />
       </tr>
       <tr bgcolor="#E1F3F4" height="40">
   <td>
        用户名<input type="text" name-"user_id" size=13 class="input">
        密码<input type="PassWord" name="password" size=13 class="input">
        <input class="inputbutton" type="submit" value="登 录" name=
        "Submit">
        <input class="inputbutton" onClick="window.open (’bbb.asp’, ’_self’)" type=
        "button" value="注 册"
        name="register">
       </td>
   </tr>
     </table>
   </form>
   <table border="0" bgcolor="#0000FF" width="800" align="center">
       <%
       ’打开记录集,显示所有论坛栏目
       dim rs,strSql
       strSql="eelect  *  from forum"
       set rs=db. (2)  (strSql)
       Dim no                        ’该变量用来显示图片
       no=0
       do while Not    (3)  
       no=no+1
       %>
   <tr bgcolor="#E1F3F4" height="60" valign="middle">
   <td width="10%"  align="center" bgcolor="#FFFFFF">
   <a href="ccc.asp?forum_id=<%-re("ID"}%>"><IMG onClick=over(this) title=放大 src="images/<%=no%>.gif"
   border="0"></a>
   </td>
   <td width="40%" align="left" bgcolor="#FFFFFF">
       <a href="ddd.asp?forum_id=<%=rs("ID")%>"><%=rs("forumname")%>>></a>
   </rd>
   <td width="20%" align="left" bgcolor="#FFFFFF">共有<%=rs("forumcount") %>
   篇文章
   </td>
   <td width="20%" bgcolor="#FFFFFF">版主:
               <%=rs("manager")  %>
   </rd>
        </tr>
        <%
             rs. (4)  
             loop
             db.Close
             Set db=Nothing
        %>
   </table>
   </body>
   </html>

选项

答案(1) A (2) C (3) D (4) B

解析 考查ASP动态网页编程技术中的一些命令。
   <%
   Dim db
   set db=server.createobject("ADODB.CONNECTION")
   db.open "DBQ=" & server.mappath("bbs.mdb")  & ";DRIVER={Microsoft Access
   Driver (*,mdb)}"
   %>
    首先声明了一个db的变量,将变量db初始化为一个ADODB.Connection对象(ADO中的连接对象),然后调用这个对象的open方法,用来打开一个连接。
   rs.eof=true时表明指针已移到最后记录,不能往下移(不等同是最后一条记录)。 rs.bof=true时表明指针已移到最前记录,不能往上移(同样,不等同是第一条记录)。
   使用rs.next()是把指针向下移动并且返回是否有记录。防止没有记录时进行操作的异常。当到达了EOF或者没有记录的时候指针就返回false。
转载请注明原文地址:https://kaotiyun.com/show/ua3Z777K
0

最新回复(0)