问答题
[conn.asp文档的内容]
＜%
dim db,conn,connstr
db="film.mdb"
set Corm =server. CreateObject("ADODB.Connection")
connstr="provider=microsoft.jet, oledB.4.0;data source="& server. MapPath("data/"&db&"")
{{U}}conn. Ooen connstr{{/U}} 第(1)处
%＞
[index. asp文档内容]
{{U}} (2) {{/U}}
＜html＞
＜head＞
＜title＞在线电影＜/title＞
＜style type="text/css"＞
＜!--
td { font-size: 12px; line-height: 17px }
body { font-size: 12px; line-height: 17px }
p { margin-top: lpx; margin-bottom: lpx }
a:link { text-decoration: none; color: black }
a:visited { text-decoration: none; color: black }
{{U}}a:active { text-decoration: none; color: blue }{{/U}} 第(3)处
--＞
＜/style＞
＜/head＞
＜body lefimargin="0" topmargin="0"＞
＜!--#include file="heaD.asp"--＞
＜div align="center"＞ 第(4)处
＜table＞
＜td height="30" width="367"＞
＜%sql="select * from item"
set rs_item=server, createobj ect("adodB.recordset")
rs_item, open sql,connstr, 1,1
response.write "＜p＞＜b＞＜IMG onClick=over(this) title=放大 src=images/dot 1.gif＞＜a hre=index.asp＞全部电影＜/a＞ "
do while not rs_item, eof
response.write "＜IMG onClick=over(this) title=放大 src=images/dot1.gif borde=0＞＜a href=index.asp?item="&rs_item
("name") &"＞"&rs_item("name")&"＜/a＞ "
{{U}} (5) {{/U}}
{{U}}loop{{/U}} 第(6)处
response.write "＜/b＞ "
rs_item.close %＞
＜/td＞
＜/table＞
＜/div＞
＜div align="eenter"＞
＜% dim item_type
item_type={{U}} (7) {{/U}}
if item_type="" or item_type="全部电影" then
sq1="select * from data"
else
sql="{{U}} (8) {{/U}}"
end if
set rs=server, createobject("adodB.reeordset")
rs.open sql,connstr, 1,1
%＞
＜table＞
＜tr＞
＜rd width="125" background="imagesfog.gif"height="30"＞
＜IMG onClick=over(this) title=放大 border="0" src="images/biao_le ft.gif" width="15" height="15"＞影片名字＜/td＞
＜td width="115" baekground="images/bg.gif"height=-"30" align="center"＞在线播放＜/td＞
＜rd width="64" background="images/bg.gif"height="30" align="center"＞ 电影类型＜/td＞
＜td width="58" baekground="images/bg.gif"height=-"30" align="eenter"＞播放格式＜/td＞
＜td width="43" baekground="im?ges/bg.gif"height"30"align="center"＞点击＜/td＞
＜td width "70" baekground="imagesfog.gif"height="30" align="eenter"＞加入日期＜/td＞
＜rd width="73" baekground="images/bg.gif"height="30"align="eenter"＞推荐度＜/td＞
＜/tr＞
＜%do while not rs.eof%＞
＜tr＞
＜rd width "125" height="30" ＞ ＜IMG onClick=over(this) title=放大 border="0'' src="images/dian.gif'＞ ＜%=rs
("name")%＞＜/td＞
＜td width="115" height="30" align="cente"＞＜a href=""＞点播＜/td＞
＜rd width="64" height="30" align="eenter"＞＜a href="index.asp?item=＜%=rs("item")%＞"＞
＜%=s("item")%＞＜/td＞
＜td width="58" height="30" align="center"＞＜%=rsCtype")%＞＜/td＞
{{U}} (9) {{/U}}
＜rd width="70" height"30" align="center"＞＜%=rs("date")%＞＜/td＞
＜td width="73" height="30" aligd="center"＞＜font color="red"＞＜%=rs("mark")%＞＜/a＞＜/td＞
＜/tr＞
＜% {{U}}rs.movenext{{/U}} 第(10)
loop%＞
＜/table＞
＜/div＞
＜!--#include file="foot.asp"--＞
＜/body＞
＜/html＞＜/html＞
【正确答案】
【答案解析】数据库连接对象conll以Cornnstr中定义的连接字符串打开数据库连接
(2)＜!--#includefile="conn.asp"--＞
(3)当前处于活动超链接＜a＞中的文字显示为蓝色
(4)＜div＞标记下的内容居中
(5)rs item.movenext
(6)转下一次while循环
(7)Trim(request("item"))
(8)select*from data where item='"&item_type&"'
(9)＜tdwidth="43"height="30"align="center"＞＜％=rs("hits")％＞＜/td＞
(10)数据集对象rs移动到下一条记录
[分析] 试题五
本题考查有关HTML网页制作和ASP编程方面的知识。
某在线娱乐公司实现了一个用于在线点播电影的网页，通过ASP编程用Acess数据表中的数据自动生成一个点播页面“index．asp”。因此本程序涉及Web数据库编程和网页显示。
通过阅读很容易发现Corm．asp程序是用于实现数据库连接的。set Corm= server.CreateObiect("ADODB．Connection")用于生成数据库连接对象，connstr="provider= microsoR.iet.oledB.4.0；datasource="&server.MapPath("data/”&db&"")定义了连接字符串。而语句conn.Open cormstr的作用是打开数据库连接。
index.asp文档的开始处留下了一个填空，我们发现在文档的正文中没有关于数据库连接的ASP语句，因此该空处应该是关于数据库连接的内容。而corm.asp中已经定义了关于数据库连接的语句，这里只需要引用该程序文件即可。
a:active {text-decoration：none；color：blue}是一段CSS代码，其作用是设置当前处于活动超链接＜沪中的文字显示为蓝色。＜div align="center"＞用于内容居中。
空(5)和解释(6)处应该联合起来加以考虑，首先看loop的作用很明显是转下一次循环。那么(5)处就应该是数据库移向下一条记录。