2023年11月23日发(作者：)
编程一
1．请编写代码，在页面上显示如下图形。注意：只要写出主要代码即可
**********
*********
********
*******
******
*****
****
***
**
*
答案：<%
Dim I,J
For I=10 To 1 Step -1
For J=1 To I
"*"
Next
"
"
Next
%>
2．利用Recodset对象也可以插入记录，现在针对图1所示的数据表，利用插入一条记录：
其中网站名称为“搜狐”，网站地址为“”，网站简介为“门户网站”，提交日
期为当天。
注意：只给出主要代码即可，程序的开头部分已经给出。
<%
Dim db, strConn
strConn="Dbq=" & h("") & ";Driver={Microsoft Access
Driver (*.mdb)}"
Set db=Object("tion")
答：<%
rs("name")= "搜狐"
rs("url")=""
rs("intro")="门户网站"
rs("submit_date")=Date()
%>
3．针对图1，现在有两个文件add_和，这两个文件用来向表中添加记录，
add_已经给出，请你完成。要求：（1）只要完成添加记录的主要代码；（2）
网站简介（intro）可以省略，其它字段均不可以省略。
Add_
网站名称 网站地址 网站简介
（请在下面完成，开头部分语句和最后一条语句已经给出，只要在中间添加
语句即可）
<% Option Explicit %>
<%
If ("name")<>"" And ("URL")<>"" Then
'以下连上数据库，建立一个Connection对象实例db
Dim db
Set db=Object("tion")
"Dbq=" & h("") & ";Driver={Microsoft Access
Driver (*.mdb)};"
End If
%>
答案：
<%
If ("name")<>"" And ("URL")<>"" Then
'以下连上数据库，建立一个Connection对象实例db
Dim db
Set db=Object("tion")
"Dbq=" & h("") & ";Driver={Microsoft
Access Driver (*.mdb)};"
Dim sqla,sqlb,strSql
sqla="Insert Into link(name,url,submit_date"
sqlb=" Values('" & ("name") & "','" & ("url") &
"',#" & Date() & "#"
If ("intro")<>"" Then
sqla=sqla & ",intro"
sqlb=sqlb & ",'" & ("intro") & "'"
End If
strSql=sqla & ")" & sqlb & ")"
e(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
"
大人=" & I & " 小孩=" & J
End If
Next
%>
Next
2． 请使用ASP提供的计数器组件，在页面上显示“您是第”X “位访客”。（只要写出主
要代码即可）
答案：
<%
Dim count '声明一个组件实例变量
Set count=Object("unter")
t() '将当前网页访问次数加1
Dim visit_number
visit_number=() '获取当前网页访问次数
"您是第" & 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="&h("")&";Driver={Microsoft Access
Set db=Object("tion")
strCon
%>
成员列表
<%
'先输出表格的标题栏
%>
%> Driver (*.mdb)}" <% '建立Recordset对象 Dim rs,strSql Set rs=Object("set") strSql ="Select * From link Order By name " '以姓名为序排列 strSql,db,1 '因为要分页显示，所以用键盘指针 '下面查询记录，如果非空就显示记录，如果是空的，给出提示信息 If Or Then "现在还没有数据" Else '以下主要为了分页显示 Dim page_size '定义每页多少条记录变量 Dim page_no '定义当前是第几页变量 Dim page_total '定义总页数变量 page_size=8 '每页显示10条记录 '如果第一次打开，则page_no为1，否则由传回的参数决定 If tring("page_no")="" Then page_no=1 Else page_no=Cint(tring ("page_no")) '用Cint将字符串变为整 数 End If ze=page_size '设置每页多少条记录 page_total=unt '返回总页数 tePage=page_no '设置当前显示第几页 '下面一段利用表格显示当前页的所有记录 Dim I I=page_size '该变量用来控制显示当前页记录 Do While Not And I>0 '循环直到当前页结束或文件结尾 I=I-1 '下面将利用表格输出名单 " " " " " xt Loop "
" '表格结束 姓名 电话 email " " " & rs("name") & " " " & rs("tel") & " " " & rs("email")
& ""
"请选择数据页: "
'输出有关页数信息，从1到总页数循环，如不是当前页，就加上超链接
For I=1 To page_total
If I=page_no Then
I & " "
Else
"href='?page_no=" & I & "'>" & I & End If Next End If '关闭对象 Set rs=nothing Set db=nothing %> "
编程三：
（1） 使用asp 控制显示字体的大小，程序运行的结果如下图：（11分）
答案：
<%
for i=1 to 6%>
hello world
<%next%>
（2） 创建一个网站计数器，程序运行效果如下图：（10分）
答案：<%
application("num")=application("num")+1
("此页面被访问过"&application("num")&"次")%>
（3） 假设数据库中有个admin（username,password）表，用于存放管理员的
信息,且数据库已连接成功。请开发一个管理员登录验证模块，要求：只
有当输入正确的口令才进入管理页面, 否则弹出对话框“用户名或密码
不对，请重新输入！”（15）
答案：
<%
user=("admin_user")
pass=("admin_psw")
sql="select * from admin where username='"&user&"' and password='"&pass&"'"
set rs=e(sql)
if or then
""
else
session("admin_user")=user
ct ""
%>
<%
end if
%>
编程四：
1、利用Cookies设计一个客户的访问次数，记住客户端的访问。比如：你是第几次访问本
站
答案：
<% =True '注意，必须有这句话
<%
Dim varNumber '定义一个访问次数变量
varNumber=s("Number") '读取Cookies值
if varNumber="" then
varNumber=1 '如果是第一次，则令访问次数为1
Else
varNumber=varNumber+1 '如果不是第一次，则令访问次数加
1
End If
"您是第" & varNumber & "次访问本站"
s("Number")=varNumber '将新的访问次数存到Cookies中
s("Number").Expires=#2030-1-1# '设置有效期
%>
2、设计一个简单的留言板（要求：有主题、内容、姓名、邮箱。另外可以删除流言）数据
库已经设计好，要求设计的主要有---留言首页、连接数据库文件、
添加留言文件、为数据库文件名表如下：
答案：
1、 留言文件
<% option explicit%>
<%
'现在开始显示已有留言
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=e(Sql) '返回一个Recordset
对象
Do While Not '利用循环依次显示所
有记录
%>
'这里只是建立数据库连接对象db。 Dim db Set db=Object("tion") "Driver={Microsoft Access Driver (*.mdb)};Dbq="&h("") %> 添加留言文件 <% option explicit%> <% Dim title,body,name,email '声明变量 title=("title") '返回留言主题 body=("body") '返回留言内容 name=("name") '返回留言人姓名 email=("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 & ")" e(Sql) '插入记录 ct "" '重定向回首页 编程五： <一>、利用Application对象编写一个简单的聊天室（要求5秒刷新一次） 答案： 文件 文件 请发言： <% If trim(request("pronunciation"))<>"" Then '如果有发言内容， 就加到Application中 '先锁定 Application("show")= Request("pronunciation") & " Application("show") '解除锁定 End if %> 文件 <% Application("show") '显示聊天内容 %> <二>、编写函数计算a和b的立方和，并举例调用，调用时a、b分别是5和8。 答案： 文件 <% Option Explicit '放在程序首行，强制变量声明 %> <% Dim m,n,sum 'm和n为实际参数 a=5 b=8 sum=pingfanghe(a,b) '调用函数 "a和b的立方和是：" & CStr(sum) %> 文件 <% '下面是函数，用来显示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。 答案： <% Dim db,rs,strSql '建立Connection对象 Set db=Object("tion") "Dsn=addr" '这里利用数据源 连接 '建立Recordset对象 Set rs=Object("set") strSql ="Select * From users" strSql,db,0,2 '注意参数，锁 定类型为可以修改 '添加记录 rs("name")= "李玫" rs("tel")="88888888" rs("age")=23 rs("name")="李梅" rs("tel")="66666666" rs("age")="24" 编程教学|福州电脑网 编程教学
主题 <%=rs("title")%>
" & 
发布评论