网络程序设计模拟试卷（5份及答案）(6)

ren=I+J '计算总人数 mantou=I*4+J*0.25 '计算总馒头数

17

If ren=100 And mantou=100 Then

Response.write\大人=\小孩=\End If

Next Next %>

2．<% Dim count '声明一个组件实例变量 3． <%

Dim db, strCon

strCon =\Access Driver <% Option Explicit %>

Set count=Server.CreateObject(\

count.PageHit() '将当前网页访问次数加1 Dim visit_number

visit_number=count.Hits() '获取当前网页访问次数 Response.Write \您是第\位访客\%>

(*.mdb)}\ Set db=Server.CreateObject(\

db.Open strCon %>

<%

'先输出表格的标题栏 %>

姓名

18

电话 email

<%

'建立Recordset对象 Dim rs,strSql

Set rs=Server.CreateObject(\

strSql =\ '以姓名为序排列

rs.Open strSql,db,1 '因为要分页显示，所以用键盘指针 '下面查询记录，如果非空就显示记录，如果是空的，给出提示信息 If rs.Bof Or rs.Eof Then Response.Write \现在还没有数据\ Else

'以下主要为了分页显示

Dim page_size '定义每页多少条记录变量 Dim page_no '定义当前是第几页变量 Dim page_total '定义总页数变量 page_size=8 '每页显示10条记录 '如果第一次打开，则page_no为1，否则由传回的参数决定 If Request.QueryString(\ Else

page_no=Cint(Request.QueryString (\ '用Cint将字符串变为整数 End If

rs.PageSize=page_size '设置每页多少条记录 page_total=rs.PageCount '返回总页数 rs.AbsolutePage=page_no '设置当前显示第几页 '下面一段利用表格显示当前页的所有记录 Dim I

I=page_size '该变量用来控制显示当前页记录 Do While Not rs.Eof And I>0 '循环直到当前页结束或文件结尾

I=I-1

'下面将利用表格输出名单

Response.Write \Response.Write \Response.Write \

Response.Write \href='mailto:\& rs(\& \& rs(\& Response.Write \rs.MoveNext page_no=1

\

Loop

19

Response.Write \ '表格结束 Response.Write \请选择数据页: \

'输出有关页数信息，从1到总页数循环，如不是当前页，就加上超链接 For I=1 To page_total If I=page_no Then

Else

Response.Write \href='index.asp?page_no=\& I & \& I & Response.Write I & \

\

End If

Next End If '关闭对象 rs.Close Set rs=nothing db.Close Set db=nothing %>

20