1、利用Application对象编写一个简单的聊天室（要求5秒刷新一次） 2、编写函数计算a和b的立方和，并举例调用，调用时a、b分别是5和8。
3、编写一个利用Recordset对象更新数据库（表为users 字段分别为 name、 tel、 age ）姓名为李玫 电话为8888888 年龄为23，要求李玫更新为李梅、电话更新为6666666、年龄更新为24。
4、有100个和尚吃100个馒头，大和尚1人吃4个，小和尚4人吃1个，问有多少个大和尚和多少个小和尚？
5、请使用ASP提供的计数器组件，在页面上显示“您是第”X “位访客”。（只要写出主要代码即可） 6、假设有数据库address,内有表link,该表中包含字段：姓名（name varchar(50)）,电话(tel varchar(20)),email(email varchar(50))，请分页将link表中的数据显示出来，且每页显示记录8条。 7、使用asp 控制显示字体的大小，程序运行的结果如下图：（11分）
8、创建一个网站计数器，程序运行效果如下图：（10分） 自动泄压阀
9、假设数据库data.mdb中有个admin（username,password）表，用于存放管理员的信息,且数据库已连接成功。请开发一个管理员登录验证模块admin.asp，要求：只有当输入正确的口令才进入管理页面manage.asp, 否则弹出对话框“用户名或密码不对，请重新输入！”（15）
10、请编写代码，在页面上显示如下图形。注意：只要写出主要代码即可
**********
*********
********
*******
******
*****
****
***
**
*
11、利用Recodset对象也可以插入记录，现在针对图1所示的数据表，利用插入一条记录：其中网站名称为“搜狐”，网站地址为“www.sohu”，网站简介为“门户网站”，提交日期为当天。
注意：只给出主要代码即可，程序的开头部分已经给出。
<%
Dim db, strConn
strConn="Dbq=" & Server.Mappath("address.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
Set db=Server.CreateObject("ADODB.Connection")
12、针对图1，现在有两个文件add_form.asp和add.asp，这两个文件用来向表中添加记录，add_form.asp已经给出，请你完成add.asp。要求：（1）只要完成添加记录的主要代码；（2）网站简介（intro）可以省略，其它字段均不可以省略。
Add_form.asp
<form name="form1" method="post" action="add.asp">
<tr>
<td>网站名称</td><td><input type="text" name="name" size=20></td>
</tr><tr>
<td>网站地址</td><td><input type="text" name="URL" size=40></td>
</tr><tr>
<td>网站简介</td><td>
<textarea name="intro" rows="2" cols="40" wrap="soft"></textarea></td>
</tr><tr>
<td></td><td><input type="submit" value=" 确 定 "></td>
</tr>
</form>
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
%>
参考答案：
1、 index.html文件
<html>
<head>
<title> 简单聊天室 </title >
</head >
<frameset rows="*,60">
<frame name="message" src="pronunciation.asp">
<frame name="say" src="show.asp">
</frameset>
</html>
pronunciation.asp文件
<html>
<head>
<title> 简单聊天室</title>
</head>
<body>
<form name="form1" method="post" action="">
请发言：<input type="text" name="pronunciation" size="30">
<input type="submit" value=" 发送 ">
</form>
<%
If trim(request("pronunciation"))<>"" Then '如果有发言内容，就加到Application中
Application.Lock '先锁定
Application("show")= Request("pronunciation") & "<br>" & Application("show")
Application.Unlock '解除锁定
End if
%>
</body>
</html>
Show.asp 文件
<html>
<head>
<title> 简单聊天室</title>
<meta http-equiv="refresh" content="5">
</head>
<body>
<%
Response.Write Application("show") '显示聊天内容
%>
</body>
</html>
2、index.asp 文件
<% Option Explicit '放在程序首行，强制变量声明 %>
导电银胶
钢筋塑料垫块
<html>
<head>
旗杆模型 <title>求a和b的立方和</title>
</head>
<body>
<%
Dim m,n,sum 'm和n为实际参数
a=5
b=8
sum=pingfanghe(a,b) '调用函数
Response.write "a和b的立方和是：" & CStr(sum)
%>
</body>
切口铣刀</html>
Function.asp 文件
<%
'下面是函数，用来显示a和b的平方和
Function pingfanghe (a,b) 'a和b是形式参数
Dim sum
服装人台 sum=a^2+b^2
pingfanghe=sum '赋值给函数名，很重要
End Function
%>
3、
<html>
<head>
<title>利用Recordset对象更新数据库</title>
</head>
<body>
<%
Dim db,rs,strSql
'建立Connection对象
Set db=Server.CreateObject("ADODB.Connection")
豫公网安备41160202000603
站长QQ:729038198
关于我们
投诉建议