电子商务第10.pptVIP

第10章 网上应用信息系统设计 10.2 网上调查系统设计 10.3 网上考试系统设计 在控制面版里找到ODBC DATA SOURCE图标点击图标→选取SYSTEM DSN→增加Micosoft Access drive (＊.mdb) →点击“完成” →为数据源起名poll，并选定数据库所在路径（事先把已建好的数据库拷贝到相应的路径上）→点击“OK”。 10.2.2 调查网页的编写 ?　 先用Frontpage 2000建立如图10-3所示的网页poll.htm。 需要注意的是，在图10-3所示的网页中将每一项Radio按钮的value值分别设为1、2、3、4、5、6、7、8、9、10。在网页编辑器中点选“提交并查看结果”，在form属性上选“send to other”,然后点选“options”,在“action”栏中填写调查结果的网页名称result.asp，即应包含如下代码： form method=POST action=result.asp target=_blank 10.2.3 ASP及数据库操作 　　下面介绍ASP网页（result.asp）的制作。因为要进行数据库的读写操作，所以必须用ASP实现。这里我们用result.asp实现调查结果的输出。 　　1.读取数据库表中的值 　 将数据表中的调查计数及总投票数取到变量中，其代码如下: ％pollno=1 Set Myconnection=Server.CreateObject(ADODB.Connection) MyConnection.Open poll 上两句代表设定MyConnection与ODBC的链接，并指定数据源名称为poll SetMyCommand=Server.CreateObject(ADODB.Command) MyCommand.CommandType=1 MyCommand.CommandText=Select ＊ from polldata where id=＆pollno＆ 上句表示在数据库poll的表中取polldata的第pollno条记录 Set MyCommand.ActiveConnection=MyConnection Set RS1=MyCommand.Execute p1=RS1.Fields(p_1) 此句代表，将数据表的p_1字段取出赋值给变量p1 p2=RS1.Fields(p_2) p3=RS1.Fields(p_3) p4=RS1.Fields(p_4) p5=RS1.Fields(p_5) p6=RS1.Fields(p_6) p7=RS1.Fields(p_7) p8=RS1.Fields(p_8) p9=RS1.Fields(p_9) p10=RS1.Fields(p_10) psum=RS1.Fields(p_sum) plook=RS1.Fields(p_look) plook=plook＋1 ％ 　　其中pollno为数据表中的id号，选择不同的id号则可选择不同的调查。 　　2.对调查表提交的数据值进行判别计算 　　如果某一项不为空，对应此项的变量则进行累计，加1。算法如下： select case aa case 1 p1=p1＋1 case 2 p2=p2＋1 case 3 p3=p3＋1 ... case 10 p10=p10＋1 end select psum=p1＋p2＋p3＋p4＋p5＋p6＋p7＋p8＋p9＋p10 　　3.将统计结果再写回数据表 　　代码格式如下： sqlstr=update polldata SET p_1=＆p1＆,p_2=＆p2＆,...,p_10=＆p10＆,p_sum=＆psum＆,p_look=＆plook＆ where id=＆pollno＆ 　 上句代表用update命令将变量值分别赋给数据表中的各变量。 　　4.将统计结果输出到网页上 　　先设计好一个如图10-4所示的空表格，然后将各变量分别填到相应的位置，便可输出。比如％=p1％表示将第一项调查结果输出到网页上， ％=psum％ 表示将总投票数输出到网页上。 　 显示时，可以通过嵌入带某种背底颜色的表格的长短来表示调查数量的多少。例如，代码 td width= ％=int(p5/psum＊300)％ 中的p5表示第五项调查的投票数，当投票人数多时，此带有某种背底颜色的表格就会变得较宽。 制作完网上调查的页面后，在网页poll.h