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

5． Rnd或Rnd()

6． <% Option Explicit %> 7． 字段

记录

8． Preserve (说明：这样就可以保留原有数据，否则就不能保留) 9． 0

Sum+I^3 Cube 10．Weekday

2,3

Response.Write Response.Write

11．“”

Response.Redirect 12．VarNumber=””

Response.Cookies(“number”) Response.Cookies(“number”).Expires 13．Ubound UserOnLine(I) 14．Between

Desc

Count(*)

15．\& Server.Mappath(\& \Access (*.mdb)}\

\Not rs.Eof

<%=rs(\rs.MoveNext

16．strSql,db,1

Not rs.Bof And Not rs.Eof

CInt PageSize

9

Driver

AbsolutePage Not rs.Eof I>0

17．OpenTextFile

AtEndOfStream

三．编程题（每题10分，共30分） 1．

<%

Dim I,J

For I=10 To 1 Step -1 For J=1 To I

Response.Write \ Next

Response.Write \Next %> 2．

<%

Dim db, strConn strConn=\& Server.Mappath(\& \Access Driver (*.mdb)}\ Set db=Server.CreateObject(\ '建立Recordset对象 3．

Set rs=Server.CreateObject(\strSql =\rs.Open strSql,db,0,2 '添加记录 rs.AddNew

rs(\搜狐\rs(\rs(\门户网站\rs(\rs.Update %>

<%

If Request.Form(\ '以下连上数据库，建立一个Connection对象实例db

Dim db

Set db=Server.CreateObject(\

10