填空题
[问题1]
以下是该网站主页部分的html代码,请根据图1将横线处的空缺代码补齐。
<! -- # 1 file= "conn.asp" -->
<html>
<div id= "content" class= "layout">
<div class= "right_body">
< 2name= "guestbook" 3= "post" 4= "guestbook_add.asp">
<table class= "table">
<tr>
<th width= "60"> </th>
<td><label> </label> </td>
</tr>
<tr>
<th width= "60"> </th>
<td><input name= "title" type= " 5" size= "50"> </td>
</tr>
<tr>
<th> </th>
<td> < 6 name= "body" cols= "60" rows= "5"> </textarea> </td>
</tr>
<tr>
<tdcolspan= "2"> <p class= "tj">
<input name= "tj" type= " 7" " 8" = "提交吧">
</p></td>
</tr>
</table>
</form>
</div>
</html>
A. submit B. form C. text D. textarea
E. include F. action G. method H. value
填空题
[问题2]
该网站在主页上设置了分页显示,每页显示10条留言,以下是该网站页面分页显示部分代码,请阅读程序代码,并将下列横线中的空缺代码补齐。
……
<%
Setrs = server. CreateObjeet("adodb.recordset")
1= "select * from cont 2 by id desc"
rs. Open exect conn, 1, 1
If rs. 3Then
response. Write " 暂无留言!"
Else
rs.PageSize= 4 "每页记录条数
iCount = rs.RecordCount "记录总数
iPageSize = rs.PageSize
maxpage = rs.PageCount
page = request("page")
If NotIsNumeric(page) Or page = " " Then
page = 1
Else
page = 5
End if
If page<1 Then
page = 1
Else If page>maxpage Then
paqe = 6
EndIf
rs.AbsolutePage = Page
If page = maxpage Then
x = iCount - ( maxpage - 1) * iPageSize
Else
x = 7
End If
%>
</div>
A. CInt (page) B. exec C. maxpage D. 10
E. EOF F. iPageSize G. order