怎么轻松制作网上调查问卷
来源： 系统之家 2014/11/24 15:53
大到国家，小到公司和组织的决策很多都是依据调查问卷取得底层对某件事或某个观点的态度。如果用纸质的话，不仅浪费资源，而且会增加统计的难度，可是用电子问卷的话，这些问题就能迎刃而解。下面系统之家为大家介绍一下如何制作电子调查问卷。
实例描述：近日，领导交给办公室主任老张一项紧急任务，要对公司内部全体员工进行问卷调查。公司的员工上千，这项统计工作以往得好几天才能完成，费时费力，老张犯愁了。我说可把调查问卷做成网页的形式发布在内网上，由员工在客户端进行选择提交，电脑自动统计结果，这样不是既省事又高效吗？老张听了高兴了。
网页调查问卷的制作
首先，打开Word新建一个空白文档，选择“视图→工具栏→Web工具箱”，在弹出的“Web工具”窗口上选择“提交”按钮，这时就会在文档中出现“窗体顶端”“窗体底端”及它们中间的“提交”按钮。将光标放到空行处，输入或粘贴所要调查的内容。接下来，将光标放到第一道调查内容的“【请选择：】”后，选择“Web工具箱”上的“选项按钮”在光标处插入一个单选按钮，在它后面输入大写的A，右击这个单元按钮设置它的HTMLNname属性（即它在网页中的名字）为R1，Value属性（即它的值）设置为A；插入第二个单选按钮，在它后面输入大写B，设置它的HTMLNname属性也为R1，Value属性为B，依次类推。在插入第二道调查内容的四个单选按钮时，需要将它们的HTMLNname属性都设置为R2，其他设置和第1题的按钮一样，依次类推，直到添加完最后一道调查内容的四个单选按钮。（图1）
如果在调查内容最后想让员工填写对公司的其他建议，可以点击“Web工具箱”上的“文本区”控件，在页面中插入一个“文本区”控件，设置这个“文本区”控件的HTMLNname属性为“yj”。右击“提交”按钮，将它的Action属性设置为“jg.asp”，即用户将各单选按钮的值都提交给jg.asp这个文件（图2）。
小技巧：为了轻松添加单选按钮，我们可以选择“工具→宏→Visual Basic编辑器”菜单，在弹出的VBA窗口中选择“插入→模块”菜单，在右边代码编辑窗口输入图中代码。回到Word文档窗口，选择“工具栏→自定义”菜单，在弹出的“自定义”窗口中选择“命令”选项卡，在“保存于”处选择这个Word文档名，在“类别”处选择“宏”，在“命令”处选择代码的过程名（如“插入单选按钮”），将它用鼠标拖到工具栏上，并右击重命名，关闭“自定义窗口”。此后，将光标放到需要插入单选按钮的位置，直接单击这个按钮，输入题号后确定，这时就会自动添加A、B、C、D四个单选按钮，无需再对其进行设置了。如果你不想输入题号而直接插入单选按钮，可以将代码中的第二行删除并用第三行代替，注意要把这行前面的“'”去掉（图3）。
小提示：要想使代码能够运行，还要选择“工具→宏→安全性”菜单，在弹出的窗口中将宏的安全性设置为“低”。
最后将文档另存为网页文件index.htm。本文将index.htm保存在D:\123文件夹中。
编写接收文件
在编写接收文件前，还需要在D:\123文件夹中建立一个名称为“调查结果.xls”的Excel文件，在该文件中建立两个工作表，一个名称为“结果”，另一个名称为“建议”。其中，名称为“结果”的工作表中每道题的总人数、答A人数、答B人数、答C人数、答D人数处必须先都输入0，每题的选项比率都是由相应选项人数除以该题的总人数，格式为百分比样式；名称为“建议”的工作表用来存放员工对公司提出的建议。（图4）
接下来，就是编写接收代码了。我们可以先在D盘的名称为“123”的文件夹中建立一个文本文件，然后在这个文件中输入图中的代码，最后把这个文本文件的名称改为jg.asp，注意扩展名也要更改（图5）。
发布网页及员工访问网页
首先，要在机房的服务器上安装IIS管理工具。可以在网上根据服务器系统版本下载一个IIS安装压缩包并解压到一个盘上。然后，选择“开始→控制面板→添加或删除程序”，选择“添加/删除Windows组件”，在弹出的“Windows组件向导”窗口中勾选“Internet 信息服务(IIS)”进行安装。如果提示选取安装文件，就选择IIS安装包所在的文件夹即可。安装完成后，单击“开始→设置→控制面板→管理工具→Internet信息服务”命令，在弹出的窗口左侧依次展开“本地计算机→网站→默认网站”，右击“默认网站”，选择“属性”菜单，在弹出的“默认网站属性”窗口中选择“主目录”选项卡上点击“浏览”按钮，选择index.htm所在的文件夹“D:\123”，勾选下面的选项“读取”“写入”。接下来，还需要选择“文档”选项卡，勾选“启用默认文档”，如果列表框中没有index.htm，需要点击“添加”按钮输入index.htm。最后点击“确定”按钮，关闭“Internet 信息服务”对话窗口。
这个调查网页发布后，员工在各自电脑上打开IE浏览器，在地址栏输入机房服务器的IP地址，就能够浏览并在网页上答题了。员工完成调查提交网页后，调查结果的数据也都收集到了建立的Excel文件里（图6）。
附录：代码
<%
set strConn = server.createobject("adodb.connection")
strConn.open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("调查结果.xls") & ";Extended Properties=""Excel 8.0;HDR=Yes;"";"
for i=1 to 15
tmp=request("R"&i)
if tmp<>"" then
da=tmp
else
da=da+"."
end if
set rs = server.CreateObject("adodb.recordset")
sql = "Select * From [结果$] Where 题号=" & i
rs.Open sql,strConn,1,3
if da="A" then
rs("答A人数")=rs("答A人数")+1
rs("总人数")=rs("总人数")+1
end if
if da="B" then
rs("答B人数")=rs("答B人数")+1
rs("总人数")=rs("总人数")+1
end if
if da="C" then
rs("答C人数")=rs("答C人数")+1
rs("总人数")=rs("总人数")+1
end if
if da="D" then
rs("答D人数")=rs("答D人数")+1
rs("总人数")=rs("总人数")+1
end if
rs.Update
set rs=nothing
next
if trim(request("yj"))<>"" then
set rs = server.CreateObject("adodb.recordset")
sql = "Select * From [建议$]"
rs.Open sql,strConn,1,3
rs.addnew
rs("序号")=rs.recordcount+1
rs("建议")=request("yj")
rs.Update
set rs=nothing
end if
strConn.close
set strConn=nothing
response.write(" // ")
%>
本文来自于【系统之家】 www.xp85.com
实例描述：近日，领导交给办公室主任老张一项紧急任务，要对公司内部全体员工进行问卷调查。公司的员工上千，这项统计工作以往得好几天才能完成，费时费力，老张犯愁了。我说可把调查问卷做成网页的形式发布在内网上，由员工在客户端进行选择提交，电脑自动统计结果，这样不是既省事又高效吗？老张听了高兴了。
网页调查问卷的制作
首先，打开Word新建一个空白文档，选择“视图→工具栏→Web工具箱”，在弹出的“Web工具”窗口上选择“提交”按钮，这时就会在文档中出现“窗体顶端”“窗体底端”及它们中间的“提交”按钮。将光标放到空行处，输入或粘贴所要调查的内容。接下来，将光标放到第一道调查内容的“【请选择：】”后，选择“Web工具箱”上的“选项按钮”在光标处插入一个单选按钮，在它后面输入大写的A，右击这个单元按钮设置它的HTMLNname属性（即它在网页中的名字）为R1，Value属性（即它的值）设置为A；插入第二个单选按钮，在它后面输入大写B，设置它的HTMLNname属性也为R1，Value属性为B，依次类推。在插入第二道调查内容的四个单选按钮时，需要将它们的HTMLNname属性都设置为R2，其他设置和第1题的按钮一样，依次类推，直到添加完最后一道调查内容的四个单选按钮。（图1）
如果在调查内容最后想让员工填写对公司的其他建议，可以点击“Web工具箱”上的“文本区”控件，在页面中插入一个“文本区”控件，设置这个“文本区”控件的HTMLNname属性为“yj”。右击“提交”按钮，将它的Action属性设置为“jg.asp”，即用户将各单选按钮的值都提交给jg.asp这个文件（图2）。
小技巧：为了轻松添加单选按钮，我们可以选择“工具→宏→Visual Basic编辑器”菜单，在弹出的VBA窗口中选择“插入→模块”菜单，在右边代码编辑窗口输入图中代码。回到Word文档窗口，选择“工具栏→自定义”菜单，在弹出的“自定义”窗口中选择“命令”选项卡，在“保存于”处选择这个Word文档名，在“类别”处选择“宏”，在“命令”处选择代码的过程名（如“插入单选按钮”），将它用鼠标拖到工具栏上，并右击重命名，关闭“自定义窗口”。此后，将光标放到需要插入单选按钮的位置，直接单击这个按钮，输入题号后确定，这时就会自动添加A、B、C、D四个单选按钮，无需再对其进行设置了。如果你不想输入题号而直接插入单选按钮，可以将代码中的第二行删除并用第三行代替，注意要把这行前面的“'”去掉（图3）。
小提示：要想使代码能够运行，还要选择“工具→宏→安全性”菜单，在弹出的窗口中将宏的安全性设置为“低”。
最后将文档另存为网页文件index.htm。本文将index.htm保存在D:\123文件夹中。
编写接收文件
在编写接收文件前，还需要在D:\123文件夹中建立一个名称为“调查结果.xls”的Excel文件，在该文件中建立两个工作表，一个名称为“结果”，另一个名称为“建议”。其中，名称为“结果”的工作表中每道题的总人数、答A人数、答B人数、答C人数、答D人数处必须先都输入0，每题的选项比率都是由相应选项人数除以该题的总人数，格式为百分比样式；名称为“建议”的工作表用来存放员工对公司提出的建议。（图4）
接下来，就是编写接收代码了。我们可以先在D盘的名称为“123”的文件夹中建立一个文本文件，然后在这个文件中输入图中的代码，最后把这个文本文件的名称改为jg.asp，注意扩展名也要更改（图5）。
发布网页及员工访问网页
首先，要在机房的服务器上安装IIS管理工具。可以在网上根据服务器系统版本下载一个IIS安装压缩包并解压到一个盘上。然后，选择“开始→控制面板→添加或删除程序”，选择“添加/删除Windows组件”，在弹出的“Windows组件向导”窗口中勾选“Internet 信息服务(IIS)”进行安装。如果提示选取安装文件，就选择IIS安装包所在的文件夹即可。安装完成后，单击“开始→设置→控制面板→管理工具→Internet信息服务”命令，在弹出的窗口左侧依次展开“本地计算机→网站→默认网站”，右击“默认网站”，选择“属性”菜单，在弹出的“默认网站属性”窗口中选择“主目录”选项卡上点击“浏览”按钮，选择index.htm所在的文件夹“D:\123”，勾选下面的选项“读取”“写入”。接下来，还需要选择“文档”选项卡，勾选“启用默认文档”，如果列表框中没有index.htm，需要点击“添加”按钮输入index.htm。最后点击“确定”按钮，关闭“Internet 信息服务”对话窗口。
这个调查网页发布后，员工在各自电脑上打开IE浏览器，在地址栏输入机房服务器的IP地址，就能够浏览并在网页上答题了。员工完成调查提交网页后，调查结果的数据也都收集到了建立的Excel文件里（图6）。
附录：代码
<%
set strConn = server.createobject("adodb.connection")
strConn.open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("调查结果.xls") & ";Extended Properties=""Excel 8.0;HDR=Yes;"";"
for i=1 to 15
tmp=request("R"&i)
if tmp<>"" then
da=tmp
else
da=da+"."
end if
set rs = server.CreateObject("adodb.recordset")
sql = "Select * From [结果$] Where 题号=" & i
rs.Open sql,strConn,1,3
if da="A" then
rs("答A人数")=rs("答A人数")+1
rs("总人数")=rs("总人数")+1
end if
if da="B" then
rs("答B人数")=rs("答B人数")+1
rs("总人数")=rs("总人数")+1
end if
if da="C" then
rs("答C人数")=rs("答C人数")+1
rs("总人数")=rs("总人数")+1
end if
if da="D" then
rs("答D人数")=rs("答D人数")+1
rs("总人数")=rs("总人数")+1
end if
rs.Update
set rs=nothing
next
if trim(request("yj"))<>"" then
set rs = server.CreateObject("adodb.recordset")
sql = "Select * From [建议$]"
rs.Open sql,strConn,1,3
rs.addnew
rs("序号")=rs.recordcount+1
rs("建议")=request("yj")
rs.Update
set rs=nothing
end if
strConn.close
set strConn=nothing
response.write(" // ")
%>
本文来自于【系统之家】 www.xp85.com
