asp做問卷調查

1、asp做問卷調查投票新建一個文件夾將下列文件按照提示放到文件夾中在文件夾中建一個名為img的文件夾圖： 二將此圖片存入img文件夾名為bar.gif首先是數(shù)據(jù)庫鏈接文件coon.asp :制作一個用來投票的頁面add.asp :vmeta http-equiv=Content-Type content=text/html; charset=gb2312 問卷調查 1. 請問您公司的性質是什么？ input type=checkboxname=ask1value=A國家機關A 國家機關 B 全民企業(yè)單位 C 私營企業(yè) D 個體商戶 E 外資企業(yè) 2. 請問您公司的人數(shù)是多少？ A 0-10B 1

2、0-30C 30-50D 50-100E 100 以上 查看結果 單擊投票按鈕FORM表單將數(shù)據(jù)提交給updata.asp頁面進行處理updata.asp ： 投票成功 % str1 = Request.Form(ask1)str2 = Request.Form(ask2)if str1= or str2= then每題至少選一項，請response.write alert( 填寫完整 );history.back(); response.End()end if set rs=server.createobject(adodb.recordset) sql= select * from ask

3、Item where aId=1 rs.open sql,conn,1,1 do while not rs.eofif instr(str1,rs(askItem)0 thensql = update askItem set subNum=subNum+1 where id=&rs(id) conn.execute(sql)end ifrs.move nextlooprs.closesql= select * from askItem where aId=2rs.ope n sql,c onn ,1,1do while not rs.eofif instr(str2,rs(askltem)0

4、thensql = update askItem set subNum=subNum+1 where id=&rs(id) conn, execute(sql)end ifrs.move nextlooprs.closeResp on se.Redirect(show.asp)%vp&n bsp；v/pv/bodyupdata頁面將數(shù)據(jù)處理后重定向到 show.asp來顯示投票結果show.asp : 投票結果 請問您公司的性質是1.什么？ 選項 柱狀圖 票數(shù) % img src=img/bar.gif width= height=10 %請問您公司的人數(shù)是2.多少？ 選項 柱狀圖 票數(shù) % img src=img/bar.gif width= height=10 % 建立Access數(shù)據(jù)庫 首先建一個名為data的數(shù)據(jù)庫在data中建兩個表分別名為：askitem 和 askTitleaskTitle 中 id 自動編號 askTitle 文本askitem中id 自動編號 aiD數(shù)字 askitem 文本 subNum數(shù)字aaklt ek =去-1a r1l A國宗機冥1221 E生民企It單位a3ir業(yè)T斗i口 T蔣裔尸TS1 E外費傘業(yè)62 A D-LOI12 t 10-30582 C 3