问答题
阅读下列说明，根据网页显示的效果图，回答问题1至问题7。
【说明】以下是用ASP实现了一个网络收藏夹网页，用于保存用户感兴趣的Web网页地址。用IE打开网页文件“index.asp”后的效果如图5-1所示。程序中使用的Access数据表结构如表5-1所示。
表5-1 address数据表结构
| 字 段 名 | 类 型 | 备 注 | | 字 段 名 | 类 型 | 备 注 |
| no | 自动编号 | 序号 | | url | 文本 | 超链接 |
| name | 文本 | 主页名称 | | category | 文本 | 网站类别 |
【index.asp文档的内容】
＜%@LANGUAGE="VBSCRIPT" %＞
＜%
set conn=server.
(5) ("Adodb.Connection")
provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
path="Data Source=" & Server.MapPath("main.mdb"
connstr= provider & path
corm.open connstr
%＞
＜html＞
＜head＞＜title＞网络收藏夹＜/title＞＜/head＞
(6) ＜center＞
＜%
set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from address"
rs.open() sql,corm, 1,3
if Request("name") = "" or Request("url")="" 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" cellpadding="0" cellspacing="0" bordercolor="#FFCC00"＞
＜tr＞＜td＞序号＜/td＞＜td＞名称＜/td＞＜td＞类别＜/td＞＜/tr＞
＜% rs.movefirst
for j=1 to rs.
(7) %＞
＜tr＞
＜td＞＜%=j%＞＜/td＞
＜td＞＜a href="＜%=rs("url")%＞" target=" blank"＞＜%=
rs("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" cellpadding="0" cellspacing="0"
bordercolor="#FFCC00"＞
＜tr＞
＜rd width=" 61"＞名称＜/td＞
＜td width="223" align="left"＞＜input name="name" type="text"
id="name" ＞＜/rd＞
＜/tr＞
＜tr＞
＜td＞超连接＜/td＞
＜rd align="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＞*为必填项目＜/rd＞
＜/tr＞
＜/table＞
＜br＞
(9) ＜/form＞
＜%
rs.close
conn.close
%＞
＜/center＞
＜/body＞
＜/html＞
【问题7】
假设连接的数据记录集当前指向的记录如下：| no | name | url | category | | 5 | 百度 | http://www.baidu.com | 搜索引擎 |
写出以下ASP代码经过IIS服务器解释后的结果。
＜a href="＜%=rs("url")%＞" target="_blank"＞＜%=rs("name")%＞＜/a＞ |
