网络程序设计习题集含答案.docx
《网络程序设计习题集含答案.docx》由会员分享,可在线阅读,更多相关《网络程序设计习题集含答案.docx(20页珍藏版)》请在冰豆网上搜索。
![网络程序设计习题集含答案.docx](https://file1.bdocx.com/fileroot1/2023-1/23/78bbc985-8956-422a-85dd-44f5640fd487/78bbc985-8956-422a-85dd-44f5640fd4871.gif)
网络程序设计习题集含答案
《网络程序设计》课程习题集
一、综合设计题
1.本程序是一个留言处理程序,其主要功能是从用户表单中获取用户留言信息,进行组装处理后,写入文本文件(gbook.txt)中,供其它功能程序使用。
请画出程序流程框图,并说明其主要功能。
<%
Name=Request("Name")
Email=Request("Email")
Subject=Request("Subject")
Memo=Request("Memo")
IfName=""orSubject=""orMemo=""Then
Response.Write"对不起!
"
Response.Write".请在姓名栏、主题栏、留言栏中输入正确的内容!
"
Response.End
EndIf
Line1="作者:
"&Name
Line1=Line1&String(5," ")
Email=""&Email&">"&Email&""
Line1=Line1&"Email:
"&Email&"
"
Line2="主题:
"&Subject&"
"
Line3="" Line3=Line3&Memo&" |
"
Line4="时间:
"&now()&"
"
Setfso=Server.CreateObject("Scripting.FileSystemObject")
FilePath=Server.MapPath("gbook.txt")
OldFilePath=Server.MapPath("gbookold.txt")
fso.MoveFileFilePath,OldFilePath
Setfin=fso.OpenTextFile(OldFilePath,,True)
Setfout=fso.CreateTextFile(FilePath)
fout.WriteLineLine1
fout.WriteLineLine2
fout.WriteLineLine3
fout.WriteLineLine4
fout.WriteLine"
"
fout.WriteLinefin.ReadAll
fin.Close
fso.DeleteFileOldFilePath,True
%>
2.阅读下面程序段,请在标号处补出适当的注释,说明相应程序段或语句的作用。
小小聊天室<%
session("user_name")=request("user_name")'将用户呢称保存到session中
'下面几句返回来访者信息
DimsayStr
sayStr="来自"&Request.ServerVariables("Remote_Addr")&"的"'1)
sayStr=sayStr&""&session("user_name")&""'来访者呢称
sayStr=sayStr&"于"&time&"大驾光临"'来访时间
sayStr=""&sayStr&""'红色显示
'下面几句将来访信息保存到application中
Application.Lock'2)
Application("show")=sayStr&"
"&Application("show")'返回聊天信息
Application("user_online")=Application("user_online")+1'3)
Application.Unlock'4)
%>
'5)
此网页使用了框架,但您的浏览器不支持框架。