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