当前位置：文档之家› ASP编程题及答案

ASP编程题及答案

编程一

1．请编写代码，在页面上显示如下图形。注意：只要写出主要代码即可

**********

*********

********

*******

******

*****

****

***

答案：<%

Dim I,J

For I=10 To 1 Step -1

For J=1 To I

Response.Write "*"

Response.Write "
"

2．利用Recodset对象也可以插入记录，现在针对图1所示的数据表，利用插入一条记录：其中网站名称为“搜狐”，网站地址为“https://www.doczj.com/doc/033670187.html,”，网站简介为“门户网站”，提交日期为当天。

注意：只给出主要代码即可，程序的开头部分已经给出。

Dim db, strConn

strConn="Dbq=" & Server.Mappath("address.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"

Set db=Server.CreateObject("ADODB.Connection")

答：<%

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")="https://www.doczj.com/doc/033670187.html,"

rs("intro")="门户网站"

rs("submit_date")=Date()

rs.Update

3．针对图1，现在有两个文件add_form.asp和add.asp，这两个文件用来向表中添加记录，add_form.asp已经给出，请你完成add.asp。要求：（1）只要完成添加记录的主要代码；（2）网站简介（intro）可以省略，其它字段均不可以省略。

Add_form.asp

add.asp（请在下面完成add.asp，开头部分语句和最后一条语句已经给出，只要在中间添加语句即可）

<% Option Explicit %>

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)};"

End If

答案：

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 & ",intro"

sqlb=sqlb & ",'" & Request.Form("intro") & "'"

End If

strSql=sqla & ")" & sqlb & ")"

db.Execute(strSql)

End If

编程二：

1．有100个和尚吃100个馒头，大和尚1人吃4个，小和尚4人吃1个，问有多少个大和尚和多少个小和尚？

答案：

大小和尚吃馒头问题

Dim I,J,ren,mantou

For I=1 To 100 '大和尚从1到100循环

For J=1 To 100 '小和尚从1到100循环

ren=I+J '计算总人数

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

If ren=100 And mantou=100 Then

Response.write"
大人=" & I & " 小孩=" & J

End If

2．请使用ASP提供的计数器组件，在页面上显示“您是第”X “位访客”。（只要写出主要代码即可）

答案：

Dim count '声明一个组件实例变量

Set count=Server.CreateObject("MSWC.pagecounter")

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

Dim visit_number

visit_number=count.Hits() '获取当前网页访问次数

Response.Write "您是第" & cStr(visit_number) & "位访客"

3．假设有数据库address,内有表link,该表中包含字段：姓名（name varchar(50)）,电话(tel varchar(20)),email(email varchar(50))，请分页将link表中的数据显示出来，且每页显示记录8条。

答案：

<% Option Explicit %>

Dim db, strCon

strCon ="Dbq="&Server.Mappath("address.mdb")&";Driver={Microsoft Access Driver (*.mdb)}"

Set db=Server.CreateObject("ADODB.Connection")

db.Open strCon

查询全部成员

成员列表

'先输出表格的标题栏

'建立Recordset对象

Dim rs,strSql

Set rs=Server.CreateObject("ADODB.Recordset")

strSql ="Select * From link Order By name " '以姓名为序排列

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("page_no")="" Then

page_no=1

Else

page_no=Cint(Request.QueryString ("page_no")) '用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 "

rs.MoveNext

Loop

Response.Write "

姓名	电话	email
" & rs("name") & "	" & rs("tel") & "	" & rs("email") & "

" '表格结束

Response.Write "

请选择数据页: "

'输出有关页数信息，从1到总页数循环，如不是当前页，就加上超链接

For I=1 To page_total

If I=page_no Then

Response.Write I & " "

Else

Response.Write "" & I & " "

End If

'关闭对象

rs.Close

Set rs=nothing

db.Close

Set db=nothing

编程三：

（1）使用asp 控制显示字体的大小，程序运行的结果如下图：（11分）

答案：

for i=1 to 6%>

hello world

<%next%>

（2）创建一个网站计数器，程序运行效果如下图：（10分）

答案：<%

application.Lock

application("num")=application("num")+1

application.UnLock

response.Write("此页面被访问过"&application("num")&"次")%>

（3）假设数据库data.mdb中有个admin（username,password）表，用于存放管理员的信息,且数据库已连接成功。请开发一个管理员登录验证模块admin.asp，要求：只有当输入正确的口令才进入管理页面manage.asp, 否则弹出对话框“用户名或密码不对，请重新输入！”（15）

答案：

user=request.form("admin_user")

pass=request.form("admin_psw")

sql="select * from admin where username='"&user&"' and password='"&pass&"'"

set rs=conn.execute(sql)

if rs.eof or rs.bof then

response.write ""

else

session("admin_user")=user

response.redirect "manage.asp"

end if

编程四：

1、利用Cookies设计一个客户的访问次数，记住客户端的访问。比如：你是第几次访问本站

答案：

<% Response.Buffer=True '注意，必须有这句话

Dim varNumber '定义一个访问次数变量

varNumber=Request.Cookies("Number") '读取Cookies值

if varNumber="" then

varNumber=1 '如果是第一次，则令访问次数为1 Else

varNumber=varNumber+1 '如果不是第一次，则令访问次数加1

End If

Response.Write "您是第" & varNumber & "次访问本站"

Response.Cookies("Number")=varNumber '将新的访问次数存到Cookies中

Response.Cookies("Number").Expires=#2030-1-1# '设置有效期

2、设计一个简单的留言板（要求：有主题、内容、姓名、邮箱。另外可以删除流言）数据库已经设计好，要求设计的主要有index.asp---留言首页、conn.asp连接数据库文件、add.asp 添加留言文件、guest.mdb为数据库文件名表如下：

答案：

1、index.asp 留言文件

<% option explicit%>

我的留言板

onsubmit="JavaScript: return check_Null();">

主题：	size="60">**
内容：
姓名：	size="10">**
email：	size="60">
	Size="20">

'现在开始显示已有留言

Dim Sql,rs '声明变量

Sql="Select id,title,body,name,email,submit_date From guest "

Sql=Sql & " Order By submit_date desc,id desc" '这里用了两个字段排序

SET rs=db.Execute(Sql) '返回一个Recordset 对象

Do While Not rs.Eof '利用循环依次显示所有记录


主题	<%=rs("title")%>
内容	<%=rs("body")%>
留言人	"><%=rs("name")%>
时间	<%=rs("submit_date")%>

rs.MoveNext '将记录指针移动到下一条记录Loop

Conn.asp连接数据库文件

'这里只是建立数据库连接对象db。

Dim db

Set db=Server.CreateObject("ADODB.Connection")

db.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq="&Server.Mappath("guest.mdb")

add.asp添加留言文件

<% option explicit%>

Dim title,body,name,email '声明变量

title=Request.Form("title") '返回留言主题

body=Request.Form("body") '返回留言内容

name=Request.Form("name") '返回留言人姓名

email=Request.Form("email") '返回留言人email

Dim sqla,sqlb,sql

sqla = "Insert Into guest(name"

sqlb = "Values('" & name & "'"

sqla = sqla & ",title"

sqlb = sqlb & ",'" & title & "'"

If body<>"" Then '如果留言内容不为空

sqla = sqla & ",body"

sqlb = sqlb & ",'" & body & "'"

End If

If email<>"" Then '如果留言人email不为空sqla = sqla & ",email"

sqlb = sqlb & ",'" & email & "'"

End If

sqla = sqla & ",submit_date"

sqlb = sqlb & ",'" & now() & "'" '插入系统时间为留言时间

'下面一句就是将SQL语句的前后两部分组织成一个完整的Inser语句

sql = sqla & ") " & sqlb & ")"

db.Execute(Sql) '插入记录

Response.Redirect "index.asp" '重定向回首页

编程五：

<一>、利用Application对象编写一个简单的聊天室（要求5秒刷新一次）

答案：

index.html文件

简单聊天室

pronunciation.asp文件

简单聊天室

If trim(request("pronunciation"))<>"" Then '如果有发言内容，就加到Application中

Application.Lock '先锁定

Application("show")= Request("pronunciation") & "
" & Application("show")

Application.Unlock '解除锁定End if

Show.asp 文件

简单聊天室

Response.Write Application("show") '显示聊天内容

<二>、编写函数计算a和b的立方和，并举例调用，调用时a、b分别是5和8。

index.asp 文件

<% Option Explicit '放在程序首行，强制变量声明 %>

求a和b的立方和

Dim m,n,sum 'm和n为实际参数

a=5

b=8

sum=pingfanghe(a,b) '调用函数

Response.write "a和b的立方和是：" & CStr(sum)

Function.asp 文件

'下面是函数，用来显示a和b的平方和

Function pingfanghe (a,b) 'a和b是形式参数Dim sum

sum=a^2+b^2

pingfanghe=sum '赋值给函数名，很重要End Function

<三>、编写一个利用Recordset对象更新数据库（表为users 字段分别为 name、tel、 age ）姓名为李玫电话为8888888 年龄为23，要求李玫更新为李梅、电话更新为6666666、年龄更新为24。

答案：

利用Recordset对象更新数据库

Dim db,rs,strSql

'建立Connection对象

Set db=Server.CreateObject("ADODB.Connection")

db.Open "Dsn=addr" '这里利用数据源连接

'建立Recordset对象

Set rs=Server.CreateObject("ADODB.Recordset")

strSql ="Select * From users"

rs.Open strSql,db,0,2 '注意参数，锁定类型为可以修改

'添加记录

rs.AddNew

rs("name")= "李玫"

rs("tel")="88888888"

rs("age")=23

rs.Update

rs("name")="李梅"

rs("tel")="66666666"

rs("age")="24"

rs.Update

rs.Close

ASP期末考试

《ASP 动态网页设计》试题 2011年 1分，共15分） 1、网页通常可分为静态网页和网页，静态网页是由语言、JA V ASCRIPT 、 VBSCRIPT 等和所要显示的文本或图形所构成的一个文本文件，其扩展名通常为_______或_______，它运行于客户端的_______。 2、HTML 是一种________的标记语言，主要用于组织网页的内容和控制输出格式。JA V ASCRIPT 或VBSCRIPT 语言，常嵌入网页中使用，以实现对网页的编程控制，进一步增强网页的交互性和功能。 3、在HTML 标记语言中，代码：、、及<body>分别代表标记________标记_____标记及_____标记。 4.表格通过标记来定义；表格中的每一行通过标记来表示；行中的单元格通过或标记来定义；表格的标题通过标记来定义。 5、代码：<a href=BM.htm>部门介绍</a>定义了一个超链接，其中热点文本是部门介绍，超链接导航指向的目标网页文件名为 ______________________。 1分，共10分）（） A HTML 文件是一个包含标记的文本文件。 B 这些标记告诉浏览器怎样显示这个页面。 C HTML 文件必须以 .htm 为扩展名。 D HTML 文件可以用一个简单的文本编辑器创建。 2、关于HTML 文件说法正确的是：（） A HTML 标记都必须配对使用。 B 在<title>和标签之间的是头信息。 C HTML 标签是大小写无关的，跟表示的意思是一样的。 D 在和标签之间的文本会以加粗字体显示。 3、以下网页中，肯定没有使用动态网页技术的是（）。 A index.htm B default.asp C index.jsp D index.php 4、HTML 使用锚标签（）来创建一个连接到其他文件的链接，链接的资源（）。 A 只能是HTML 页面和图像 B 不可以是声音 C 不可以是影片 D 可以是网络上的任何资源 5、锚标签（）的target 属性，可以定义从什么地方打开链接地址，下列哪一个是target 属性的默认值（）。 A _self B _blank C _parent D _top 6、关于锚标签（）说法错误的是：（） A 用name 属性创建一个命名锚点，可以让链接直接跳转到一个页面的某一章节，而不用用户打开那一页，再从上到下慢慢找。 B 想要访问本页的锚点，在URL 地址的后面加一个“#”和这个锚点的名字。 C href 属性用来指定连接到的URL 。 D href 属性不能用来指定到一个邮箱地址。 7、关于HTML 框架说法错误的是：（） A 标签定义了如何将窗口拆分成框架。 B 可以给不支持框架的浏览器写上