ASP模拟试卷(一)参考答案

BBDCB ABABB AACCB CCBAB

二．填空题（每题1分，共40分） 1． VBScript 2． IIS

3． “vbscript” 4． d

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． \"Dbq=\" & Server.Mappath(\"wwwlink.mdb\") & \";Driver={Microsoft Access Driver

(*.mdb)}\"

\"Select * From link Order By Submit_date Desc\" Not rs.Eof

<%=rs(\"URL\")%> rs.MoveNext 16． strSql,db,1

Not rs.Bof And Not rs.Eof CInt PageSize 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=\"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.AddNew rs(\"name\")= \"搜狐\" rs(\"url\")=\"www.sohu.com\" rs(\"intro\")=\"门户网站\" rs(\"submit_date\")=Date() rs.Update %> 3． <% If Request.Form(\"name\")<>\"\" And Request.Form(\"URL\")<>\"\" Then '以下连上数据库，建立一个Connection对象实例db Dim db Set db=Server.CreateObject(\"ADODB.Connection\") db.Open \"Dbq=\" & Server.Mappath(\"wwwlink.mdb\") & \";Driver={Microsoft Access Driver (*.mdb)};\" Dim sqla,sqlb,strSql sqla=\"Insert Into link(name,url,submit_date\"

sqlb=\" Values('\" & Request.Form(\"name\") & \"','\" & Request.Form(\"url\") & \"',#\" & Date() & \"#\" If Request.Form(\"intro\")<>\"\" Then sqla=sqla & \ sqlb=sqlb & \ End If strSql=sqla & \")\" & sqlb & \")\" db.Execute(strSql) End If %>