- 阅读 177
- 下载 26
- 格式 docx
- 大小 40.63 KB
- 约9页
- 2024-11-03 发布于河南
- 收藏
- 点赞(0)
- 海报
- 举报
第1页共9页编号:时间:2021年x月x日书山有路勤为径,学海无涯苦作舟页码:第1页共9页asp做问卷调查投票新建一个文件夹将下列文件按照提示放到文件夹中在文件夹中建一个名为img的文件夹图:将此图片存入img文件夹名为bar.gif首先是数据库链接文件coon.asp:<%'连接数据库开始dimconn,rs,sql'onerrorresumenextdbpath=server.mappath("data.mdb")setconn=server.createobject("adodb.connection")conn.open"PROVIDER=Microsoft.jet.OLEDB.4.0;datasource="&dbpath'创建记录对象setrs=server.createobject("adodb.recordset")%>制作一个用来投票的页面add.asp:
问卷调查1.请问您公司的性质是什么? |
A国家机关 |
B全民企业单位 |
C私营企业 |
D个体商户 |
E外资企业 |
第3页共9页第2页共9页编号:时间:2021年x月x日书山有路勤为径,学海无涯苦作舟页码:第3页共9页
2.请问您公司的人数是多少? |
A0-10 |
B10-30 |
C30-50 |
D50-100 |
E100以上 |
查看结果单击投票按钮FORM表单将数据提交给updata.asp页面进行处理第4页共9页第3页共9页编号:时间:2021年x月x日书山有路勤为径,学海无涯苦作舟页码:第4页共9页updata.asp:
投票成功<%str1=Request.Form("ask1")str2=Request.Form("ask2")ifstr1=""orstr2=""thenresponse.write"alert('每题至少选一项,请填写完整');history.back();"response.End()endifsetrs=server.createobject("adodb.recordset")sql="select*fromaskItemwhereaId=1"rs.opensql,conn,1,1dowhilenotrs.eofifinstr(str1,rs("askItem"))>0thensql="updateaskItemsetsubNum=subNum+1whereid="&rs("id")conn.execute(sql)endifrs.movenextlooprs.closesql="select*fromaskItemwhereaId=2"rs.opensql,conn,1,1dowhilenotrs.eofifinstr(str2,rs("askItem"))>0thensql="updateaskItemsetsubNum=subNum+1whereid="&rs("id")第5页共9页第4页共9页编号:时间:2021年x月x日书山有路勤为径,学海无涯苦作舟页码:第5页共9页conn.execute(sql)endifrs.movenextlooprs.closeResponse.Redirect("show.asp")%>
updata页面将数据处理后重定向到show.as...1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。