《WEB程序设计与应用》网络教学平台

5．
<%
db.Execute " insert into article(title,name,articlebody,layer,parent_id,re_num,hit_num,submit_date) values (" _
& "'" & Request.Form("title") &"', " _
& "'" & Request.Form("articlebody") &"', " _
& "'" & Request.Form("name") &"', " _
& "" & layer &", " _
& "" & parent_id &", " _
& "" & re_num &", " _
& "" & hit_num &", " _
& "'" & date() & "') "
db.close ' 关闭连接对象
' 保存完毕，重定向回首页
%>
先找出一个错误，然后改动此程序，要求进行title、articlebody、name输入不为空的验证，程序结束时重定向到reg.asp页面，并设计相对应的表单。

6．编写系统，更新记录T1、T2、T3、T4，并产生一个新记录T5，T5=T1+Y2+T3+T4

7．编写系统，更新记录T1、T2、T3、T4，并产生一个新记录T5，T5为T1、Y2、T3、T4的均值

8．编写系统，用户输入年龄，发送后可以输出用户所输入年龄的最大值和最小值。

9．编写系统，用户在登录页login.asp，输入用户名和密码登录后进行页面a.asp，如果用户不经登录进入a.asp，将自动引导到login.asp。

10． 编写系统，往数据库中输入用户的姓名和年龄，查看记录时，按输入时间倒序排列。

11．
<%
if not request.form("message")=""then
Set FS=Server.CreateObject("Scripting.FileSystemObject")
Set Ts= Fs.OpenTextFile(""&server.mappath("sdmessage.txt")&"",8)
Ts.WriteLine(request.form("message"))
end if
%>
<%
Set FS=Server.CreateObject("Scripting.FileSystemObject")
Set Ts= Fs.OpenTextFile(""&server.mappath("sdmessage.txt")&"")
Do While Not Ts.AtEndOfStream
Response.Write Ts.ReadLine & "<br>"
Loop
%>
根据以上代码，配上相应的HTML代码及相关文件，并在ASP代码的每行后加上注释句。

12．

<table>
<tr bgcolor="#CCFFFF" align="center">
<td width="37" bgcolor="#C0C0C0" >序号</td>
<td width="239" bgcolor="#C0C0C0" >标题</td>
<td width="49" bgcolor="#C0C0C0" >回复数</td>
<td width="52" bgcolor="#C0C0C0" >浏览数</td>
<td width="101" bgcolor="#C0C0C0" >作者</td>
</tr>
<%
dim sql,rs
sql="select * from article where layer=1 order by submit_date desc"
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql,db,1
if not rs.bof and not rs.eof then
dim page_size
dim page_no
dim page_total
page_size=6
if Request("page_no")="" then
page_no=1
else
page_no=Request("page_no")
end if
rs.pagesize=page_size
page_total=rs.pagecount ' 返回总页数
rs.absolutepage=page_no ' 设置当前显示第几页
dim i,j
i=0
j=page_size
do while not rs.eof and j>0
i=i+1
j=j-1
%>
<tr align="center">
<td width="37"><%=(page_no-1)*page_size+i%> 　<td width="239"><a href="hit_num.asp?id=<%=rs("id")%>"><%=rs("title")%></a>　</td>
<td width="49"><%=rs("re_num")%>　</td>
<td width="52"><%=rs("hit_num")%>　</td>
<td width="101"><%=rs("name")%>　</td>
</tr>
<%
rs.movenext
loop
end if
%>
</table>
将每页显示的记录数改为20条，并补上以下功能的代码：将page_no存入session，以备其他页调用；表格中加入一列，显示文章发布时间；表格下部显示到上一页及下一页的翻页链接。

13． 有数据源studentinfo，表名“学生”中有字段：姓名、年龄、平时成绩、期中成绩、期末成绩、平时表现，请编写一更新此记录的程序。

14． 有数据库studentinfo，位于程序文件上一级目录studentdate下，表名“学生”中有字段：姓名、年龄、平时成绩、期中成绩、期末成绩、总评分、平时表现，请编写一更新此记录的程序。

15． 编写一聊天室的登录页面，其中能显示聊天室在线人数，及服务器系统时间，有进入注册reg.asp的链接，有用户输入用户名及密码的表单。

16． 在商品介绍4张图片，请编写一轮显程序。每张图片出现几率一致。

17． 使用AspUpload组件进行文件上传，编写文件上传的程序处理文件upload.asp，要求对所传文件不能超过2M，如遇用名文件不可覆盖，上传文件到文件夹upload，文件夹upload位于upload.asp同一级文件夹sdfile下。

18． 注册页reg.asp。注册项为姓名、密码。要求通过ASP进入输入验证：均不能为空；密码长度超过5位，并要求注册用户输入两次，两次输入要相用；用户名已存在的不能注册。

19． 登录页login.asp，要求验证用户名和密码，如果正确则引导到sdoffice.asp页面，如果不正确，引导到显示出错信息页errorinfo.htm。

20． 有数据源studentinfo，表名“学生”中有字段：姓名、年龄、班级、寝室号、家庭地址，请编写分别按姓名进行模糊查询和按班级名精确查询显示所有字段信息的程序。

21． 有数据库guest.mdb，数据表为guest，表中有字段name。设计一个简单的程序，采用参数查询方法查询name。

22． 假设有数据库guest.mdb，数据表为guest，表中字段name和sex，现有10条记录。设计一个简单的程序，从数据库里读取这些记录，并且设计一个表单，向数据库里添加记录。

23．

使用Cookies集合，初次提交后的结果图

使用Cookies集合，再次提交后的结果图
编写代码，使用Cookies集合，实现如图所示的效果。

24．有数据库guest.mdb，数据表为guest，表中有字段name。设计一个简单的程序，采用参数查询方法查询name。

25．有数据库guest.mdb，数据表为guest，表中字段name和sex，现有10条记录。设计一个简单的程序，从数据库里读取这些记录，并且设计一个表单，向数据库里添加记录。

26．编写一个用户输入自己的姓名和年龄的表单。表单输入要进行有效性验证，验证姓名输入必须为字符串，验证年龄输入必须为数字，并且检查两项输入不允许为空，如果输入错误将弹出一消息框提醒用户。

27．编写一个简单聊天室，要求用记事本储存聊天记录。

28．用VBScript编写一具有加法功能的计算器。

29．假设有数据库guest.mdb，数据表为guest，表中字段name和sex。设计通过表单向数据库里添加记录和设计删除记录。

30．

编写代码，用Request对象得到Form集合的内容，实现如图所示的效果。

~ 江西信息应用技术职业学院信息技术系制作 ~

E-Mail:lxlz2050@163.net Tel:0791-5275546