以下是用ASP实现的一个在线留言系统。

index.html 文档如下:
＜html＞
 ＜head＞
 ＜title＞在线留言系统＜/title＞
 ＜/head＞
 ＜body＞
 ＜p align= "center" ＞＜font color="#006699"＞在线留言系统＜/font＞＜/p＞
 ＜form method="post" action="submit.asp"＞
 ＜table border="0" cellspacing="l" width="89%"＞
 ＜tr＞
 ＜td＞姓名: ＜/td＞
 ＜td＞＜ (2) name="name" size="30" class="text"maxlength="20"＞＜/td＞
 ＜/tr＞
 ＜tr＞
性别: ＜/td＞
 ＜td＞＜ (3) name="sex" size="1"
＜option selected＞请选择你的性别＜/option＞
 ＜option value="男"＞男＜/option＞
 ＜option value:"女"＞女＜/option＞
 ＜/select＞＜/td＞
 ＜/tr＞
 ＜tr＞
 ＜td＞＜b＞简短留言: ＜/b＞＜/td＞
 ＜td＞＜ (4) name:"content" rows="6" cols="45" class="tsxt"＞＜/textarea＞＜/td＞
 ＜/tr＞
 ＜tr＞
 ＜td＞＜ (5) name="submit" class:"btn" value="提交留言"＞＜/td＞
 ＜td＞＜ (6) name=:Bl" value="全部重填" class="btn"＞＜/td＞
 ＜/tr＞
 ＜/table＞
 ＜/form＞
 ＜/body＞
 ＜/html＞
submit.asp 文档的内容如下:
＜%
If request, form("name"):" " Then
 response. write" ＜script＞alert (’请填写留言人的姓名! ’; history, back ( ) ＜/script＞"
response. end
 End If
 If request.form("sex")=’ ’" or request. form("sex")="请选择你的性别" Then
 request. write" ＜script＞alert (’请选择留言人的性别’); history, back ( ) ＜/script＞"
response, end
 End If
 If len( (7) )＞100 Then
 request.write"＜script＞alert(’留言不能超过100字!’) ; history, back（　）＜/script＞"
response. end
 End If
 %＞
 ＜!--#include file="conn.asp"--＞
 ＜%
dim rs, sql
 set rs=server. (8)
sql="select * from data where ( id is null)"
 rs.open sql, conn, 1, 3
 rs. (9)
rs("name")= (10)
rs ("sex") =request. form("sex")
 rs("content")= request. form(" content")
 rs ("date") =now ( )
 rs("ip")=request.ServerVariables("remote addr")
 rs. (11)
rs. close
 conn. close
 response.redirect "success.asp"
 %＞

（5）（）

A:input type="reset" B:input type="submit" C:input type="text" D:textarea E:option F:select G:radio

以下是用ASP实现的一个在线留言系统。

index.html 文档如下:
＜html＞
 ＜head＞
 ＜title＞在线留言系统＜/title＞
 ＜/head＞
 ＜body＞
 ＜p align= "center" ＞＜font color="#006699"＞在线留言系统＜/font＞＜/p＞
 ＜form method="post" action="submit.asp"＞
 ＜table border="0" cellspacing="l" width="89%"＞
 ＜tr＞
 ＜td＞姓名: ＜/td＞
 ＜td＞＜ (2) name="name" size="30" class="text"maxlength="20"＞＜/td＞
 ＜/tr＞
 ＜tr＞
性别: ＜/td＞
 ＜td＞＜ (3) name="sex" size="1"
＜option selected＞请选择你的性别＜/option＞
 ＜option value="男"＞男＜/option＞
 ＜option value:"女"＞女＜/option＞
 ＜/select＞＜/td＞
 ＜/tr＞
 ＜tr＞
 ＜td＞＜b＞简短留言: ＜/b＞＜/td＞
 ＜td＞＜ (4) name:"content" rows="6" cols="45" class="tsxt"＞＜/textarea＞＜/td＞
 ＜/tr＞
 ＜tr＞
 ＜td＞＜ (5) name="submit" class:"btn" value="提交留言"＞＜/td＞
 ＜td＞＜ (6) name=:Bl" value="全部重填" class="btn"＞＜/td＞
 ＜/tr＞
 ＜/table＞
 ＜/form＞
 ＜/body＞
 ＜/html＞
submit.asp 文档的内容如下:
＜%
If request, form("name"):" " Then
 response. write" ＜script＞alert (’请填写留言人的姓名! ’; history, back ( ) ＜/script＞"
response. end
 End If
 If request.form("sex")=’ ’" or request. form("sex")="请选择你的性别" Then
 request. write" ＜script＞alert (’请选择留言人的性别’); history, back ( ) ＜/script＞"
response, end
 End If
 If len( (7) )＞100 Then
 request.write"＜script＞alert(’留言不能超过100字!’) ; history, back（　）＜/script＞"
response. end
 End If
 %＞
 ＜!--#include file="conn.asp"--＞
 ＜%
dim rs, sql
 set rs=server. (8)
sql="select * from data where ( id is null)"
 rs.open sql, conn, 1, 3
 rs. (9)
rs("name")= (10)
rs ("sex") =request. form("sex")
 rs("content")= request. form(" content")
 rs ("date") =now ( )
 rs("ip")=request.ServerVariables("remote addr")
 rs. (11)
rs. close
 conn. close
 response.redirect "success.asp"
 %＞

（6）（）

A:input type="reset" B:input type="submit" C:input type="text" D:textarea E:option F:select G:radio

从以下备选答案中为程序中空缺选择正确答案。
试题五
阅读下列说明，根据网页显示的效果图，回答问题。
[说明]
以下是用ASP实现的一个网络留言系统。用IE打开网页文件index.asp后的效果如下图所示。

index.asp文档的内容如下。
＜!--#include file="conn.asp"--＞
＜html＞
＜head＞＜title＞留言系统＜/title＞＜/head＞
＜body＞
＜%Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open"Select * From[message]order by id",Conn,1,1
if rs.eof and rs.bof then
(3) ．write("＜div align=’center’class=’bg’＞没有留言＜/div＞")
end if
i=1
do while (4)
%＞
＜table width="700"border="1"align="center"＞
＜tr＞
＜td height="30"＞＜strong＞＜%= (5) ＜/strong＞
＜%=rs("name")%＞ ；＜%=rs("ip")%＞ ；＜%=ms("time")%＞
＜a href="del.aspdel=＜%:rs("id")%＞"target:"=parent"＞删除＜/a＞
＜/td＞
＜/tr＞
＜tr＞
＜td width="700"height="20"＞＜%=rs("message")%＞＜/td＞
＜/tr＞
＜/table＞
＜%ms.movenext
i=i+1
loop
%＞
＜table width="700"border="0"align="center"＞
＜tr＞
＜td＞＜div align="left"＞＜%=ms. recordcount%＞条留言＜/div＞＜/td＞
＜/tr＞
＜/table＞
＜br/＞
＜table width="704"border="0"align:"center"＞
＜tr＞
＜td width="311"＞＜form id="forml" name="forml" method="post"
action="act.asp"＞
＜table width="302"border="0"＞
＜tr＞
＜td width="302"＞姓名＜input name="name"type="text"class="box"
id="name"size="15"/＞＜p/＞
验证码＜input name=’validatecode’type=’text’Class="box"size=’5’＞
＜img src=’imgchk/validatecode.asp’ align=’absmiddle’
border=’0’＞  ＜/td＞
＜/tr＞
＜tr＞
＜td＞内容 (6) ＜/td＞
＜/tr＞
＜tr＞
＜td height="30"＞＜input type=" (7) "name="tj"value="提交留言"/＞
＜input name="ip" type="hidden" id="ip" value= "＜%=
Request.serverVariables("REMOTE_ADDR")%＞"/＞＜/td＞
＜/tr＞
＜/table＞
＜/form＞
＜/td＞
＜/tr＞
＜/table＞
＜%rs.close%＞
＜/body＞
＜/html＞

A:＜table name="message"cols="40"rows="5"id="message"＞＜/table＞ B:＜textarea name="message"cols="40"rows:"5"id="message"＞＜/textarea＞ C:＜input name="message"cols="40"rows="5"id="message"＞＜/input＞ D:＜img name="message"cols="40"rows="5"id="message"＞＜/img＞

从以下备选答案中为程序中空缺部分选择正确答案。
试题五
阅读下列说明，根据网页显示的效果图，回答问题。
[说明]
以下是用ASP实现的一个网络收藏夹网页，用于保存用户感兴趣的Web网页地址。用IE打开网页index.asp后的效果如下图所示。程序中使用的Access数据表结构如下表所示。

Access数据表结构 　字段名 　类型 　　备注 no 自动编号 序号 name 文本 主页名称 url 文本 超链接 category 文本 网站类别

indet.asp文档的内容如下。
＜%@LANGUAGE="VBSCRIPT"%＞
＜%
set corm=server． (5) ("Adodb Connection")
provider="provider=Microsoft.Jet.OLEDB.4.0; "
path="Date Source="& Server.MapPath("main.mdb")
connstr=provider & path
conn.open connstr
%＞
＜html＞
＜head＞＜title＞网络收藏夹＜/title＞＜/head＞
(6)
＜center＞
＜%
set rs=Server.CreateObject("Adodb.RecordSet")
sql="Select*from address"
rs open（　）sql,conn,1,3
if Request("name")=""or Request("ur1")=""then
Response.write("内容填写不完整")
else
rs.addnew
rs(1)=request("name")
rs(2)=request("URL")
rs(3)=request("category")
rs.update
end If
%＞
＜table width="500" border="1" celipadding="0" cellspacing="0"
bordercolor="#FFCC00"＞
＜tr＞＜td＞序号＜/td＞＜td＞名称＜/td＞＜td＞类别＜/td＞＜/tr＞
＜%rs.movefirst
for J=1 to ms. (7) %＞
＜tr＞
＜td＞＜%=j%＞＜/td＞
＜td＞＜a href="＜%=rs("url")%＞"targer="blank"＞＜%"ms("name")%＞＜/a＞＜/td＞
＜td＞＜%=rs("category")%＞＜/td＞
＜/tr＞
＜%rs.movenext
(8) %＞
＜/table＞＜br＞
＜form action="index.asp"method="post"name="new"id="new"＞
＜table width:"300"border="1"celipadding="0"celispacing="0"bordercolor
="#FFCC00”＞
＜tr＞
＜td width="61"＞名称＜/th＞
＜td width="223" align="left"＞＜input name:"neme"type="text"
id="name"＞＜/td＞
＜/tr＞
＜tr＞
＜td＞超链接＜/td＞
＜td Width="left"＞＜input name="URL"type:"text"id="URL"＞＜/td＞
＜/tr＞
＜tr＞
＜td colspan:"2"＞类别＜/td＞
＜/tr＞
＜tr＞
＜td Colspan="2"＞＜textarea name="category" rows="5"
id="disc"＞＜/textarea＞
＜br＞★为必填项目＜/td＞
＜/tr＞
＜/table＞
＜br＞
(9)
＜/forn＞
＜%
rs close
conn.close
%＞
＜/Center＞
＜/body＞
＜/html＞

A:＜input type="submit"name="add"value="添加"＞ B:＜input type="post"name="add"value="添加"＞ C:＜input type="submit"name="添加"value="add"＞ D:＜input type="post"name="添加"value="add"＞

以下是用ASP实现的一个在线留言系统。

index.html 文档如下:
＜html＞
 ＜head＞
 ＜title＞在线留言系统＜/title＞
 ＜/head＞
 ＜body＞
 ＜p align= "center" ＞＜font color="#006699"＞在线留言系统＜/font＞＜/p＞
 ＜form method="post" action="submit.asp"＞
 ＜table border="0" cellspacing="l" width="89%"＞
 ＜tr＞
 ＜td＞姓名: ＜/td＞
 ＜td＞＜ (2) name="name" size="30" class="text"maxlength="20"＞＜/td＞
 ＜/tr＞
 ＜tr＞
性别: ＜/td＞
 ＜td＞＜ (3) name="sex" size="1"
＜option selected＞请选择你的性别＜/option＞
 ＜option value="男"＞男＜/option＞
 ＜option value:"女"＞女＜/option＞
 ＜/select＞＜/td＞
 ＜/tr＞
 ＜tr＞
 ＜td＞＜b＞简短留言: ＜/b＞＜/td＞
 ＜td＞＜ (4) name:"content" rows="6" cols="45" class="tsxt"＞＜/textarea＞＜/td＞
 ＜/tr＞
 ＜tr＞
 ＜td＞＜ (5) name="submit" class:"btn" value="提交留言"＞＜/td＞
 ＜td＞＜ (6) name=:Bl" value="全部重填" class="btn"＞＜/td＞
 ＜/tr＞
 ＜/table＞
 ＜/form＞
 ＜/body＞
 ＜/html＞
submit.asp 文档的内容如下:
＜%
If request, form("name"):" " Then
 response. write" ＜script＞alert (’请填写留言人的姓名! ’; history, back ( ) ＜/script＞"
response. end
 End If
 If request.form("sex")=’ ’" or request. form("sex")="请选择你的性别" Then
 request. write" ＜script＞alert (’请选择留言人的性别’); history, back ( ) ＜/script＞"
response, end
 End If
 If len( (7) )＞100 Then
 request.write"＜script＞alert(’留言不能超过100字!’) ; history, back（　）＜/script＞"
response. end
 End If
 %＞
 ＜!--#include file="conn.asp"--＞
 ＜%
dim rs, sql
 set rs=server. (8)
sql="select * from data where ( id is null)"
 rs.open sql, conn, 1, 3
 rs. (9)
rs("name")= (10)
rs ("sex") =request. form("sex")
 rs("content")= request. form(" content")
 rs ("date") =now ( )
 rs("ip")=request.ServerVariables("remote addr")
 rs. (11)
rs. close
 conn. close
 response.redirect "success.asp"
 %＞

（3）（）

A:input type="reset" B:input type="submit" C:input type="text" D:textarea E:option F:select G:radio

下面关于TextArea和JTextArea描述不正确的是( )。

A:TextArea和JTextArea都可以显示多行文本 B:TextArea和JTextArea都可以自己实现滚动 C:TextArea和JTextArea都可以实现文本的换行 D:TextArea和JTextArea都可以进行文本改变的事件监听

下面关于TextArea和JTextArea描述不正确的是( )。

A:TextArea和JTextArea都可以显示多行文本 B:TextArea和JTextArea都可以自己实现滚动 C:TextArea和JTextArea都可以实现文本的换行 D:TextArea和JTextArea都可以进行文本改变的事件监听

下面关于TextArea和JTextArea描述不正确的是( )。

A:TextArea和JTextArea都可以显示多行文本 B:TextArea和JTextArea都可以自己实现滚动 C:TextArea和JTextArea都可以实现文本的换行 D:TextArea和JTextArea都可以进行文本改变的事件监听