《动态网页设计与制作》作业参考答案

《动态网页设计与制作》作业参考答案

一填空题

１．服务器、客户机、网络

２．A、文件链接、锚链接和邮件链接

３．FileSystem、TextStream、File、Folder

４．VBSCRIPT、JAVASCRIPT

５．Web浏览器、HTTP协议、HTTPserver、HTML文档、CGI程序

６．背景图案、背景色

７．有序列表、无序列表、定义列表、菜单列表、目录列表

８．文字的颜色、文字的大小

９．Frameset、Frame

１０．Connection、Command、Recordset

１１．ADO、ADROTATOR

１２．table、TR、TD

１３．TCP/IP协议、服务器、客户机、网络

１４．counters、mswc.counters、Content Rotator、mswc.contentrotator

１５．Frameset、Frame

１６．ol、li

二简答题

１．内置对象：Request：获取客户端的信息、Response：根据用户的请求，向客户端输出信息、Server：实现对服务器端的设置、Session：用于对某一特定的客户端信息进行记录和管理、Application：用于记录所有客户信息。

内置组件：广告轮显器用于广告轮换显示、文件存取组件用于文件操作。文件超链接组件用于超链接管理。

２．ADO主要由三个对象：Connection、Command和Recordset。Connection：主要用于数据库的链接；Command 对象借助于SQL命令对数据库进行操作，把操作结果返回Recordset对象；Recordset对象用于返回一个对数据库操作后的数据集合记录。

三个数据集合：Fields、Parameters、Errors；Fields数据集合用于字段的管理；Parameters用于确定在存贮命令中的参数；Errors数据集合包含因运行命令而引起的错误的详细内容。

３．与INTERNET的永久链接、IP地址和域名、服务器硬件、WEB服务器软件。

４．

５．Target属性用于控制被链接页面打开的方式，常见的取值有：_blank、_Self、_Parent和_top；_blank 表示被链接的文件在新窗口中打开、_Self表示被链接的文件在当前窗口中打开、_top表示被链接的文件在当前窗口中打开，并清除所有框架、_Parent表示被链接的文件在父框架中打开。

６．普通HTML文件、服务器端的程序代码、客户端的程序代码。

７．(1)客户与服务器建立TCP链接

(2)客户向服务器发送请求

(3)如果请求被接受，服务器就向客户发送响应信息，其中包括状态码和所要求的文件

(4)客户与服务器关闭链接

三综合题

１．post、output.asp、text、password、submit、reset、name、passw、usern、userp

２．global.asa、Vbscript、server、onstart、0、

Onstart、Application(“User_Online”)+1、

onend、Application(“User_Online”)-1、User_Online

３．Sub Write()

for each x in Request.Cookies

response.write("

")

Response.Write(x & "=" & Request.Cookies(x) & "
")

response.write "

"

next

end sub

４．

<%

if request(“name”)=”” and request(“Passw”)=”” then

%>

用户名：

密  码：

<%

else

name=request(“name”)

passw=request(“passw”)

Dim Db,Strconn

StrConn=”Dbq=”&server.mappath(“Student.mdb”)&”Driver={Microsoft Access Driver(*.mdb)}”

Set db=server.createobject(“Adodb.connection”)

Db.open Strconn

Dim cmd

Set cmd=server.createobject(“https://www.360docs.net/doc/4716627850.html,mand”)

Set cmd.activeconnection=db

SqlStr=”insert into student(name,passw) value(‘“&name &”’,’” &passw& ”’)”

https://www.360docs.net/doc/4716627850.html,mandtext=sqlstr

cmd.execute

db.close

set db=nothing

end if

%>

５．vbScript 、server、CreateObject 、Scripting.FilesystemObject 、FileObj 、Textfile、FileObj 、FileSource、FileObject、TextFile

６．

<%

if request(“name”)=”” then

%>

用户名：

<%

else

<%

Dim Db,Strconn

StrConn=”Dbq=”&server.mappath(“Student.mdb”)&”Driver={Microsoft Access Driver(*.mdb)}”

Set db=server.createobject(“Adodb.connection”)

Db.open Strconn

Dim cmd

Set cmd=server.createobject(“https://www.360docs.net/doc/4716627850.html,mand”)

Set cmd.activeconnection=db

SqlStr=”delete from student where name=’” &name&”’ ”

https://www.360docs.net/doc/4716627850.html,mandtext=sqlstr

cmd.execute

db.close

set db=nothing

response.write “记录已删除”

end if

%>

７．

<%

dim pageobj

Set pageobj=server.createobject("mswc.pagecounter")

pageobj.pagehit()

response.Write(pageobj.hits())

%>

８．

<%

dim mylink,myrecordset

set mylink=server.CreateObject("adodb.connection")

mylink.ConnectionString="driver={Microsoft access driver (*.mdb)};dbq="&server.mappath("mydata.mdb")

mylink.open

set myrecordset=server.CreateObject("adodb.recordset")

myrecordset.CursorType = 0

myrecordset.CursorLocation = 1

myrecordset.LockType = 2

myrecordset.open "select * from person where uname='peter'",mylink

while not myrecordset.eof

myrecordset("country")="中国"

myrecordset.update()

myrecordset.movenext()

wend

myrecordset.close()

mylink.close()

response.write(“记录已修改”)

%>