一．选择题（每小题 2 分，共 40 分）BBDCB ABABB AACCB CCBAB二．填空题（每小题 1 分，共 40 分）1． VBScript2． IIS3． “vbscript”4． d5． Rnd 或 Rnd()6． <% Option Explicit %>7． 字段 统计8． Preserve (阐明：这样就能够保存原有数据，否则就不能保存)9． 0 Sum+I^3 Cube10．Weekday 2,3 Response.Write Response.Write 11．“” Response.Redirect12．VarNumber=”” Response.Cookies(“number”) Response.Cookies(“number”).Expires 13．Ubound UserOnLine(I)14．Between Desc Count(*)15．"Dbq=" & Server.Mappath("wwwlink.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}""Select * From link Order By Submit_date Desc"Not rs.Eof<%=rs("URL")%>rs.MoveNext16．strSql,db,1Not rs.Bof And Not rs.EofCIntPageSizeAbsolutePageNot rs.Eof I>017．OpenTextFileAtEndOfStream三．编程题（每小题 10 分，共 30 分）1．<%Dim I,JFor I=10 To 1 Step -1For J=1 To IResponse.Write "*" NextResponse.Write "
"Next%>2．<%Dim db, strConnstrConn="Dbq=" & Server.Mappath("address.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"Set db=Server.CreateObject("ADODB.Connection") '建立 Recordset 对象Set rs=Server.CreateObject("ADODB.Recordset")strSql ="Select * From link"rs.Open strSql,db,0,2 '添加统计rs.AddNewrs("name")= "搜狐"rs("url")=".com"rs("intro")="门户网站"rs("submit_date")=Date()rs.Update%>3．<% If Request.Form("name")<>"" And Request.Form("URL")<>"" Then'下列连上数据库，建立一种 Connection 对象实例 dbDim db Set db=Server.CreateObject("ADODB.Connection") db.Open "Dbq=" & Server.Mappath("wwwlink.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"Dim sqla,sqlb,strSqlsqla="Insert Into link(name,url,submit_date"sqlb=" Values('" & Request.Form("name") & "','" & Request.Form("url") & "',#" & Date() & "#"If Request.Form("intro")<>"" Thensqla=sqla & ",intro"sqlb=sqlb & ",'" & Request.Form("intro") & "'"End IfstrSql=sqla & ")" & sqlb & ")"db.Execute(strSql)End If%>
