内容发布更新时间 : 2025/3/9 8:10:38星期一 下面是文章的全部内容请认真阅读。

《网络程序设计》课程习题集

一、综合设计题

1. 本程序是一个留言处理程序，其主要功能是从用户表单中获取用户留言信息，进行组

装处理后，写入文本文件（gbook.txt）中，供其它功能程序使用。请画出程序流程框图,并说明其主要功能。

<%

Name = Request(\Email = Request(\Subject = Request(\Memo = Request(\

If Name = \ Response.Write \对不起！
\

Response.Write \请在姓名栏、主题栏、留言栏中输入正确的内容！\ Response.End End If

Line1 = \作 者：\

Line1 = Line1 & String(5, \\

Email = \Line1 = Line1 & \Line2 = \主 题：\

Line3 = \Line3 = Line3 & Memo & \Line4 = \时 间：\

Set fso = Server.CreateObject(\FilePath = Server.MapPath(\

OldFilePath = Server.MapPath(\fso.MoveFile FilePath, OldFilePath

Set fin = fso.OpenTextFile(OldFilePath, , True) Set fout = fso.CreateTextFile(FilePath) fout.WriteLine Line1 fout.WriteLine Line2 fout.WriteLine Line3 fout.WriteLine Line4 fout.WriteLine \

fout.WriteLine fin.ReadAll fin.Close

第 1 页 共 16 页

fso.DeleteFile OldFilePath, True

%>

2. 阅读下面程序段，请在标号处补出适当的注释，说明相应程序段或语句的作用。

<%

session(\将用户呢称保存到session中

'下面几句返回来访者信息 Dim sayStr

sayStr=\来自\的\） sayStr=sayStr & \来访者呢称

sayStr=sayStr & \于\大驾光临\来访时间 sayStr=\红色显示

'下面几句将来访信息保存到application中

Application.Lock ' 2）

Application(\返回聊天信息

Application(\） Application.Unlock '4） %>

此网页使用了框架，但您的浏览器不支持框架。

3. 阅读下面程序段，请补出适当的注释，说明相应程序段或语句的作用。

<% option explicit%> <%Response.Buffer=True%>

第 2 页 共 16 页