|
首先，要在机房的服务器上安装IIS管理工具。可以在网上根据服务器系统版本下载一个IIS安装压缩包并解压到一个盘上。然后，选择“开始→控制面板→添加或删除程序”，选择“添加/删除Windows组件”，在弹出的“Windows组件向导”窗口中勾选“Internet 信息服务(IIS)”进行安装。如果提示选取安装文件，就选择IIS安装包所在的文件夹即可。安装完成后，单击“开始→设置→控制面板→管理工具→Internet信息服务”命令，在弹出的窗口左侧依次展开“本地计算机→网站→默认网站”，右击“默认网站”，选择“属性”菜单，在弹出的“默认网站属性”窗口中选择“主目录”选项卡上点击“浏览”按钮，选择index.htm所在的文件夹“D:\123”，勾选下面的选项“读取”“写入”。接下来，还需要选择“文档”选项卡，勾选“启用默认文档”，如果列表框中没有index.htm，需要点击“添加”按钮输入index.htm。最后点击“确定”按钮，关闭“Internet 信息服务”对话窗口。
图6 这个调查网页发布后，员工在各自电脑上打开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(" // ") %> |
