【说明】
某出版社用ASP实现了一个图书性能评价在线投票网页，主页文件名为“index.asp”，用IE打开该网页后的效果如图8-11所示。

程序中使用的Access数据表结构见表8-9。

【index.asp文档的内容】
＜html＞
＜head＞
＜title＞在线投票页面＜/title＞
＜%
Set cnn=Server.CreateObject("ADODB.Connection")
Set rec=Server.CerateObject("ADODB.Recordset")
cnn. ConnectionString="Driver=Microsoft Access Driver(*.mdb)；
Uid=；Pwd=；DBQ="&Server.MapPath("data.mdb")
cnn. (1)
dim rsq1
nq1= (2)
rec.open rsq1，cnn,3,3
rec. movefirst()
%＜＞
＜/head＞
＜body＞
＜form name="piao"action="results.asp"method="post"＞
＜table width="237" border=-"1" align="center"＞
＜tr＞
＜td valign=top width="216”＞
＜p align="center"＞ (3)
＜/td＞
＜/tr＞
＜tr＞
＜td valign=top width="216"＞
＜font size="2"＞
(4)
＜% dim num
num=0
do while not rec. eof
num=num+1
%＞

＜%
rec. (5)
loop
%＞
＜/font＞
＜/td＞
＜/tr＞
＜tr＞
＜td valign=top width="216"＞
＜input name="submit00" type="submit" id="submit00" value=“投 票”＞
＜input name="submit01" type="submit" id="submit00" value=“结 果”＞
＜/td＞
＜/tr＞
＜/table＞
＜/body＞
＜/html＞