网页设计与制作编程题
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Application.Unlock '解除锁定
End if
%>
</body>
</html>
Show.asp文件
<html>
<head>
<title>简单聊天室</title>
<meta http-equiv="refresh" content="5">
</head>
<body>
<%
Response.Write Application("show") '显示聊天内容
db.Open "Dbq=" & Server.Mappath("wwwlink.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
End If
%>
参考答案：
1、index.html文件
<html>
<head>
<title>简单聊天室</title >
Dim page_no '定义当前是第几页变量
Dim page_total '定义总页数变量
page_size=8 '每页显示10条记录
'如果第一次打开，则page_no为1，否则由传回的参数决定
If Request.QueryString("page_no")="" Then
page_no=1
Else
Response.Write "<td>" & rs("name") & "</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，开头部分语句和最后一条语句已经给出，只要在中间添加语句即可）
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.Open strSql,db,1 '因为要分页显示，所以用键盘指针
'下面查询记录，如果非空就显示记录，如果是空的，给出提示信息
If rs.Bof Or rs.Eof Then
Response.Write "现在还没有数据"
Else
'以下主要为了分页显示
Dim page_size '定义每页多少条记录变量
Set count=Server.CreateObject("MSWC.pagecounter")
count.PageHit() '将当前网页访问次数加1
Dim visit_number
visit_number=count.Hits() '获取当前网页访问次数
Response.Write "您是第" & cStr(visit_number) & "位访客"
<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>
<head>
<title>简单聊天室</title>
</head>
<body>
<form name="form1" method="post" action="">
请发言：<input type="text" name="pronunciation" size="30">
<input type="submit" value="发送">
'下面一段利用表格显示当前页的所有记录
Dim I
I=page_size '该变量用来控制显示当前页记录
Do While Not rs.Eof And I>0 '循环直到当前页结束或文件结尾
I=I-1
'下面将利用表格输出名单
Response.Write "<tr bgcolor='#E6E6E6' align='center'>"
<% Option Explicit %>
<%
If Request.Form("name")<>"" And Request.Form("URL")<>"" Then
'以下连上数据库，建立一个Connection对象实例db
Dim db
Set db=Server.CreateObject("ADODB.Connection")
</form>
<%
If trim(request("pronunciation"))<>"" Then '如果有发言内容，就加到Application中
Application.Lock '先锁定
Application("show")= Request("pronunciation") & "<br>" & Application("show")
Dim sum
sum=a^2+b^2
pingfanghe=sum '赋值给函数名，很重要
End Function
%>
3、
<html>
<head>
<title>利用Recordset对象更新数据库</title>
</head>
<body>
<%
Dim db,rs,strSql
'建立Connection对象
</head >
<frameset rows="*,60">
<frame name="message" src="pronunciation.asp">
<frame name="say" src="show.asp">
</frameset>
</html>
pronunciation.asp文件
<html>
%>
6、
<% Option Explicit %>
<%
Dim db, strCon
strCon ="Dbq="&Server.Mappath("address.mdb")&";Driver={Microsoft Access Driver (*.mdb)}"
Set db=Server.CreateObject("ADODB.Connection")
Set db=Server.CreateObject("ADODB.Connection")
db.Open "Dsn=addr" '这里利用数据源连接
'建立Recordset对象
Set rs=Server.CreateObject("ADODB.Recordset")
strSql ="Select * From users"
page_no=Cint(Request.QueryString ("page_no")) '用Cint将字符串变为整数
End If
rs.PageSize=page_size '设置每页多少条记录
page_total=rs.PageCount '返回总页数
rs.AbsolutePage=page_no '设置当前显示第几页
1、利用Application对象编写一个简单的聊天室（要求5秒刷新一次）
2、编写函数计算a和b的立方和，并举例调用，调用时a、b分别是5和8。
3、编写一个利用Recordset对象更新数据库（表为users字段分别为name、tel、age）姓名为李玫电话为8888888年龄为23，要求李玫更新为李梅、电话更新为6666666、年龄更新为24。
%>
</body>
</html>
2、index.asp文件
<% Option Explicit '放在程序首行，强制变量声明%>
<!--#Include file="3-6.asp"-->
<html>
<head>
<title>求a和b的立方和</title>
</head>
<body>
<%
Dim m,n,sum 'm和n为实际参数
<td width=10%>姓名</td>
<td width=15%>电话</td>
<td width=25%>email</td>
</tr>
<%
'建立Recordset对象
Dim rs,strSql
Set rs=Server.CreateObject("ADODB.Recordset")
strSql ="Select * From link Order By name " '以姓名为序排列
ren=I+J '计算总人数
mantou=I*4+J*0.25 '计算总馒头数
If ren=100 And mantou=100 Then
Response.write"<br>大人=" & I & " 小孩=" & J
End If
Next
Next
%>
</body>
</html>
5、<%
Dim count '声明一个组件实例变量
10、请编写代码，在页面上显示如下图形。注意：只要写出主要代码即可
**********
*********
********
*******
******
*****
****
***
**
*
11、利用Recodset对象也可以插入记录，现在针对图1所示的数据表，利用插入一条记录：其中网站名称为“搜狐”，网站地址为“www.sohu.com”，网站简介为“门户网站”，提交日期为当天。
db.Open strCon
%>
<html>
<head>
<title>查询全部成员</title>
</head>
<body>
<h2 align="center">成员列表</h2>
<%
'先输出表格的标题栏
%>
<center>
<table border="0" width="95%">
<tr bgcolor="#B7B7B7" align="center">
rs.Update
rs.Close
%>
</body>
</html>
4、<html>
<head>
<title>大小和尚吃馒头问题</title>
</head>
<body>
<%
Dim I,J,ren,mantou
For I=1 To 100 '大和尚从1到100循环
For J=1 To 100 '小和尚从1到100循环
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">
a=5
b=8
sum=pingfanghe(a,b) '调用函数
Respo来自百度文库se.write "a和b的立方和是：" & CStr(sum)
%>
</body>
</html>
Function.asp文件
<%
'下面是函数，用来显示a和b的平方和
Function pingfanghe (a,b) 'a和b是形式参数
注意：只给出主要代码即可，程序的开头部分已经给出。
<%
Dim db, strConn
strConn="Dbq=" & Server.Mappath("address.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
Set db=Server.CreateObject("ADODB.Connection")
4、有100个和尚吃100个馒头，大和尚1人吃4个，小和尚4人吃1个，问有多少个大和尚和多少个小和尚？
5、请使用ASP提供的计数器组件，在页面上显示“您是第”X“位访客”。（只要写出主要代码即可）
6、假设有数据库address,内有表link,该表中包含字段：姓名（name varchar(50)）,电话(telvarchar(20)),email(email varchar(50))，请分页将link表中的数据显示出来，且每页显示记录8条。
7、使用asp控制显示字体的大小，程序运行的结果如下图：（11分）
8、创建一个网站计数器，程序运行效果如下图：（10分）
9、假设数据库data.mdb中有个admin（username,password）表，用于存放管理员的信息,且数据库已连接成功。请开发一个管理员登录验证模块admin.asp，要求：只有当输入正确的口令才进入管理页面manage.asp,否则弹出对话框“用户名或密码不对，请重新输入！”（15）
End if
%>
</body>
</html>
Show.asp文件
<html>
<head>
<title>简单聊天室</title>
<meta http-equiv="refresh" content="5">
</head>
<body>
<%
Response.Write Application("show") '显示聊天内容
db.Open "Dbq=" & Server.Mappath("wwwlink.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
End If
%>
参考答案：
1、index.html文件
<html>
<head>
<title>简单聊天室</title >
Dim page_no '定义当前是第几页变量
Dim page_total '定义总页数变量
page_size=8 '每页显示10条记录
'如果第一次打开，则page_no为1，否则由传回的参数决定
If Request.QueryString("page_no")="" Then
page_no=1
Else
Response.Write "<td>" & rs("name") & "</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，开头部分语句和最后一条语句已经给出，只要在中间添加语句即可）
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.Open strSql,db,1 '因为要分页显示，所以用键盘指针
'下面查询记录，如果非空就显示记录，如果是空的，给出提示信息
If rs.Bof Or rs.Eof Then
Response.Write "现在还没有数据"
Else
'以下主要为了分页显示
Dim page_size '定义每页多少条记录变量
Set count=Server.CreateObject("MSWC.pagecounter")
count.PageHit() '将当前网页访问次数加1
Dim visit_number
visit_number=count.Hits() '获取当前网页访问次数
Response.Write "您是第" & cStr(visit_number) & "位访客"
<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>
<head>
<title>简单聊天室</title>
</head>
<body>
<form name="form1" method="post" action="">
请发言：<input type="text" name="pronunciation" size="30">
<input type="submit" value="发送">
'下面一段利用表格显示当前页的所有记录
Dim I
I=page_size '该变量用来控制显示当前页记录
Do While Not rs.Eof And I>0 '循环直到当前页结束或文件结尾
I=I-1
'下面将利用表格输出名单
Response.Write "<tr bgcolor='#E6E6E6' align='center'>"
<% Option Explicit %>
<%
If Request.Form("name")<>"" And Request.Form("URL")<>"" Then
'以下连上数据库，建立一个Connection对象实例db
Dim db
Set db=Server.CreateObject("ADODB.Connection")
</form>
<%
If trim(request("pronunciation"))<>"" Then '如果有发言内容，就加到Application中
Application.Lock '先锁定
Application("show")= Request("pronunciation") & "<br>" & Application("show")
Dim sum
sum=a^2+b^2
pingfanghe=sum '赋值给函数名，很重要
End Function
%>
3、
<html>
<head>
<title>利用Recordset对象更新数据库</title>
</head>
<body>
<%
Dim db,rs,strSql
'建立Connection对象
</head >
<frameset rows="*,60">
<frame name="message" src="pronunciation.asp">
<frame name="say" src="show.asp">
</frameset>
</html>
pronunciation.asp文件
<html>
%>
6、
<% Option Explicit %>
<%
Dim db, strCon
strCon ="Dbq="&Server.Mappath("address.mdb")&";Driver={Microsoft Access Driver (*.mdb)}"
Set db=Server.CreateObject("ADODB.Connection")
Set db=Server.CreateObject("ADODB.Connection")
db.Open "Dsn=addr" '这里利用数据源连接
'建立Recordset对象
Set rs=Server.CreateObject("ADODB.Recordset")
strSql ="Select * From users"
page_no=Cint(Request.QueryString ("page_no")) '用Cint将字符串变为整数
End If
rs.PageSize=page_size '设置每页多少条记录
page_total=rs.PageCount '返回总页数
rs.AbsolutePage=page_no '设置当前显示第几页
1、利用Application对象编写一个简单的聊天室（要求5秒刷新一次）
2、编写函数计算a和b的立方和，并举例调用，调用时a、b分别是5和8。
3、编写一个利用Recordset对象更新数据库（表为users字段分别为name、tel、age）姓名为李玫电话为8888888年龄为23，要求李玫更新为李梅、电话更新为6666666、年龄更新为24。
%>
</body>
</html>
2、index.asp文件
<% Option Explicit '放在程序首行，强制变量声明%>
<!--#Include file="3-6.asp"-->
<html>
<head>
<title>求a和b的立方和</title>
</head>
<body>
<%
Dim m,n,sum 'm和n为实际参数
<td width=10%>姓名</td>
<td width=15%>电话</td>
<td width=25%>email</td>
</tr>
<%
'建立Recordset对象
Dim rs,strSql
Set rs=Server.CreateObject("ADODB.Recordset")
strSql ="Select * From link Order By name " '以姓名为序排列
ren=I+J '计算总人数
mantou=I*4+J*0.25 '计算总馒头数
If ren=100 And mantou=100 Then
Response.write"<br>大人=" & I & " 小孩=" & J
End If
Next
Next
%>
</body>
</html>
5、<%
Dim count '声明一个组件实例变量
10、请编写代码，在页面上显示如下图形。注意：只要写出主要代码即可
**********
*********
********
*******
******
*****
****
***
**
*
11、利用Recodset对象也可以插入记录，现在针对图1所示的数据表，利用插入一条记录：其中网站名称为“搜狐”，网站地址为“www.sohu.com”，网站简介为“门户网站”，提交日期为当天。
db.Open strCon
%>
<html>
<head>
<title>查询全部成员</title>
</head>
<body>
<h2 align="center">成员列表</h2>
<%
'先输出表格的标题栏
%>
<center>
<table border="0" width="95%">
<tr bgcolor="#B7B7B7" align="center">
rs.Update
rs.Close
%>
</body>
</html>
4、<html>
<head>
<title>大小和尚吃馒头问题</title>
</head>
<body>
<%
Dim I,J,ren,mantou
For I=1 To 100 '大和尚从1到100循环
For J=1 To 100 '小和尚从1到100循环
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">
a=5
b=8
sum=pingfanghe(a,b) '调用函数
Respo来自百度文库se.write "a和b的立方和是：" & CStr(sum)
%>
</body>
</html>
Function.asp文件
<%
'下面是函数，用来显示a和b的平方和
Function pingfanghe (a,b) 'a和b是形式参数
注意：只给出主要代码即可，程序的开头部分已经给出。
<%
Dim db, strConn
strConn="Dbq=" & Server.Mappath("address.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
Set db=Server.CreateObject("ADODB.Connection")
4、有100个和尚吃100个馒头，大和尚1人吃4个，小和尚4人吃1个，问有多少个大和尚和多少个小和尚？
5、请使用ASP提供的计数器组件，在页面上显示“您是第”X“位访客”。（只要写出主要代码即可）
6、假设有数据库address,内有表link,该表中包含字段：姓名（name varchar(50)）,电话(telvarchar(20)),email(email varchar(50))，请分页将link表中的数据显示出来，且每页显示记录8条。
7、使用asp控制显示字体的大小，程序运行的结果如下图：（11分）
8、创建一个网站计数器，程序运行效果如下图：（10分）
9、假设数据库data.mdb中有个admin（username,password）表，用于存放管理员的信息,且数据库已连接成功。请开发一个管理员登录验证模块admin.asp，要求：只有当输入正确的口令才进入管理页面manage.asp,否则弹出对话框“用户名或密码不对，请重新输入！”（15）