【说明】
某大学利用voD视频服务系统提供教学课件在线点播服务。该视频服务系统用Asp语言编程实现，主页文件名为“inDEx.Asp”，部分网页运行的效果如图2-13所示。程序中使用的ACCEss数据表结构见表2-8和表2-9。


【Conn.Asp文档的内容】
＜%
Dim DB,Conn,Connstr
DB="voD、mDB"
sEtConn=sErvEr.CrEAtEoBjECt ("ADoDB、ConnECtion")
Connstr="proyiDEr=miCrosoFt.jEt.olEDB、4.0;DAtA sourCE=" &sErvEr.mAppAth ("DAtA/"&DB&"")

%＞
【inDEx.Asp 文档的内容】
(2) ＜!--第(2)处 --＞
＜html＞
＜hEAD＞
＜titlE＞视频服务系统＜/titlE＞
＜stylE typE="tExt/Css"＞
＜!
tD Font-sizE:12px;linE-hEight:17px
BoDy Font-sizE:12px;linE-hEight:17px
pmArgin-top:1px;mArgin-Bottom:1px
A:link tExt-DECorAtion:nonE;Color:BlACk
A:visitED tExt-DECorAtion:nonE;Color:BlACk

--＞
＜/stylE＞
＜/hEAD＞
＜BoDy lEFtmArgin="0" topmArgin="0"＞
＜!--#5nCluDE FilE="hEAD、Asp" --＞

＜tABlE＞
＜tD hEight="30" wiDth="367"＞
＜%sq1="sElECt * From itEm"
sEtrs_itEm=sErvEr, CrEAtEoBjiECt ("ADoDB、rECorDsEt")
rs_itErm.opEn sq1,Connstr, 1,1
rEsponsE.writE"＜p＞＜B＞＜img srC=imAgEs/Dot1.giF＞＜A hrEF=inDEx.Asp＞全部节目＜/A＞"
Do whilE not rs_itEm.EoF
rEsponsE.writE "＜imgstC--imAgEs/Dot1.giF BotDEr=-0＞＜A hrEF=inDEx.Asp itEm="&rs_itEm ("nAmE")
&"＞"&rs_itEm ("nAmE")A"＜/A＞"
(5) ＜!-- 第(5)处 --＞

rEsponsE.writE "＜/B＞"
rs hm.ClosE%＞
＜/tD＞
＜/tABlE＞
＜/Div＞
＜Div Align="CEntEr"＞
＜% Dim itEm_typE
itEm_typE= (7) ＜!-- 第(7)处 --＞
iF itEm_typE="" or itCrn_typE ="全部节目" thEn
sq1="sClECt * From DAtA"
ElsE
sq1=" (8) ＜!-- 第(8)处 --＞
EnD iF
sEt rs=sErvEr, CrEAtEoBjECt ("ADoDB、rECorDsEt")
rs.opEn sql,Connslr,1,1
%＞
＜tABlE
＜tr＞
＜tD wiDth="125" BACkgrounD="imAgEs/Bg.giF’ hEight="30"＞
＜img BorDEr="0" wiDth="15" hEight="15"＞节目名称＜/tD＞
＜tD wiDth="58" BACkgrounD="imAgEs/Bg.giF" hEight="30" Align="CEntEr"＞格式类型＜/tD＞
＜tD wiDth="43" BACkgrounD-"imAgEs/Bg, giFt hEight="30" Align="CEntEr"＞点播次数＜/tD＞
＜tD wiDth="70" BACkgrounD="imAgEs/Bg.giF" hEight="30" Align="CEntEr"＞创建日期＜/tD＞
＜tD wiDth="ll5" BACkgrounD="imAgEs/Bg.giF" hEight="30" Align="CEntEr"＞点播＜/tD＞
＜tD wiDth="73" BACkgrounD="imAgEs/Bg, giF" hEight="30’" Align="CEntEr"＞下载＜/tD＞
＜/tr＞
＜%Do whilE not rs.EoF%＞
＜tr＞
＜rD wiDth=" 125" hEight" 30" ＞＜img BgrDEr=-"0"＞＜%=rs("nAmE") %＞＜/tD＞
＜tD wiDth="115" hEight="30" Align="CEntEr"＞＜A hrEF=""＞ 点播＜/tD＞
＜tD wiDth="58" hEight="30" Align="CEntEr"＞＜%=rs ("typE") %＞＜/tD＞
(9) ＜!-- 第(9) --＞
＜tD wiDth="70" hEight="30" Align="CEntEr"＞＜%=rs ("DAtE") %＞＜/rD＞
＜/tr＞

loop%＞
＜/tABlE＞
＜/Div＞
＜!-- 此处省略了部分代码--＞
＜!-- #inCluDE FilE="Foot.Asp" --＞
＜/BoDy＞
＜/html＞