学生网上答卷 ASP 代码
教学质量调查问卷
<% set conn=server.createObject("adodb.connection") conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" &; Server.MapPath("data\问 卷.mdb") set rs1=server.createObject("adodb.recordset") sql1="select 题目,选项1,选项2,选项3,选项4 from 问卷题" rs1.open sql1,conn,1,1 n=rs1.recordcount-1 redim wjt(n,9) redim wjtResult(n) for i=0 to n for j=0 to 4 wjt(i,j)=rs1(j) next rs1.movenext next ER="" count=0 for i=0 to n select case Request.Form("R" &; i &; "") case 1 wjt(i,5)="checked" case 2 wjt(i,6)="checked" case 3 wjt(i,7)="checked" case 4
wjt(i,8)="checked" case else count=count+1 ER=ER &; " " &; i+1 end select next %>
关于网学 |
万能工具 |
在线交流 |
会员中心 |
查询论文 |
招聘说明 |
精品资源 |
专题论文 |
会员中心 |
联系方式 |
下载目录
论文目录
Copyright 2005-2018 www.myeducs.cn All Rights Reserved 版权所有·网学网 提供大量原创论文 参考论文 论文资料 源代码 管理及投稿 E_mail:3710167@qq.com
郑重声明: 本网站论文均来自互联网,由本站会员上传或下载,仅供个人交流、学习、参考之用,版权归原作者所有
请下载完后24小时之内删除,任何人不得大幅抄录、在期刊上发表或作为商业之用。如涉及版权纠纷,本网站不承担任何法律及连带责任。