用ASP技术开发WEB调查(投票)系统 (2)

80酷酷网    80kuku.com

  web|投票|投票二、调查项目的创建和维护
  作 者 : 仙人掌工作室
  
     本节我们说明调查项目创建和维护功能的实现。
  
     创建与维护调查项目的起始页面是Startup.html,该页面负责设定PollMaker.asp和ItemMaker.asp等页面使用的帧结构(从上到下共分三个帧)。起始页面所引用的Blank.html只用于指定背景颜色,StartMsg.html提供启动时显示在最下面帧的提示信息。
  
     PollMaker.asp和ItemMaker.asp都包含运行于服务器的ASP脚本,同时也包含(和创建)浏览器脚本以支持客户端操作。运行于服务器的脚本由VBScript写成,而客户端脚本则是JavaScript,这使得它既可以运行于Netscape Navigator,也适合于IE。
  
     PollMaker.asp通过查找Poll数据库的MSysObjects系统表获得已经定义的调查项目名字。因此,ASP应用必须具有读取该表的权限。在Access97中的设定方法是:先选择菜单“工具/选项”设置系统对象可见,然后在“工具/安全/用户与组的权限”下设定。在本文所附代码中Poll.mdb已经设置了这个权限。如果要在不同的RDBMS上实现这个调查系统,这部分代码必须改写,使它适应目标数据库上的系统表结构。
  
     要将这些已定义的调查项目名字显示到下拉列表框,首先需要从S_表的表名中除去“S_”前缀,然后将这些字符串格式化为< SELECT>元素的< OPTION>字符串:
  
   
   < SELECT NAME="PollName">
   < OPTION VALUE="StartPoll" SELECTED>NEW POLL
   < %
    ' 获取当前已经定义的调查项目名字
    Set objConn = Server.CreateObject("ADODB.Connection")
    objConn.Open "poll"
    Set objRS = _
    objConn.Execute("SELECT Name FROM MSysObjects " & _
    "WHERE Type=1 AND Name LIKE 'S_%' ORDER BY Name")
    Do While Not objRS.EOF
    PollName = Mid(objRS("Name"), 3)
    Response.Write("< OPTION VALUE=""" & PollName & """>" & PollName)
    objRS.MoveNext
    Loop
   %>
   < /SELECT>
  
     ItemMaker将指定调查项目的所有定义信息下载到浏览器端的JavaScript数组中,从而实现问题的快速编辑和创建。所有的问题编辑操作都在浏览器内通过修改两个JavaScript数组完成,只有单击“保存” 按钮才可将修改结果写入数据库。
  
     ItemMaker.asp首先将Response.Buffer设置为True,因此在页面生成完成之前HTML输出将一直缓冲在服务器上,这使得产生错误或执行非编辑功能时ItemMaker.asp可以不下载那些JavaScript函数而退出。在Sub Main的开始处,程序通过检查表单变量OpType来决定是创建新的调查项目,还是删除调查项目或调查结果。这三个操作均在ItemMaker.asp内完成,即所有受密码保护的功能均在同一脚本内实现,这使得整个系统中密码只在一个地方存取。上述三个操作均需动态地生成与执行SQL语句。不论是脚本执行出现错误,还是指定的操作执行成功,都调用Response.Redirect语句重新加载PollMaker.asp,并把一个说明字符串传递给它:
  
   
   < %
   Dim PollName
   Dim Password
   Dim objConn
   Dim objRS
   
   PollName = Request("PollName")
   Password = UCase(Request("Password"))
   OpType = Request("OpType") ' 要求ItemMaker.asp执行的操作
   
   SName = "[S_" & PollName & "]"
   AName = "[A_" & PollName & "]"
   RName = "[R_" & PollName & "]"
   Call Main
   Sub Main
   If Password < > "WEBPOLL" Then ' 如密码错误返回PollMaker.asp并提示
    Response.Redirect "PollMaker.asp?Msg=密码错误,请再试一次。"
    Exit Sub '从ItemMaker.asp返回
   End If
   If OpType = "Edit" Then ' 编辑或创建调查调查项目
    If PollName = "StartPoll" Then
    If Not newPoll() Then '用户没有给出调查项目的名字
    Response.Redirect "PollMaker.asp?Msg=请输入调查项目名字"
    Exit Sub
    End If
    SName = "[S_" & PollName & "]"
    AName = "[A_" & PollName & "]"
    RName = "[R_" & PollName & "]"
    End If
   ElseIf OpType = "DelResp" Then ' 删除调查项目的已有结果
    If PollName = "StartPoll" Then
    Response.Redirect "PollMaker.asp?Msg=请输入调查项目名字"
    Exit Sub
    End If
    Set objConn = Server.CreateObject("ADODB.Connection")
    objConn.Open "poll"
    Set objRS = Server.CreateObject("ADODB.Recordset")
    objConn.Execute "DELETE FROM " & RName
    Response.Redirect "PollMaker.asp?Msg=已经删除指定调查项目的投票结果"
   ElseIf OpType = "DelPoll" Then ' 删除整个调查项目
    If PollName = "StartPoll" Then
    Response.Redirect "PollMaker.asp?Msg=不能删除新调查项目"
    Exit Sub
    End If
    Set objConn = Server.CreateObject("ADODB.Connection")
    objConn.Open "poll"
    Set objRS = Server.CreateObject("ADODB.Recordset")
    objConn.Execute "DROP TABLE " & SName
    objConn.Execute "DROP TABLE " & AName
    objConn.Execute "DROP TABLE " & RName
    Response.Redirect "PollMaker.asp?Msg=已经删除指定的调查项目。"
   End If
   %>
  
  
     在运行ItemMaker.asp编辑调查项目时,程序提取Poll数据库中定义的调查项目及其问题定义数据初始化数组stemArray[]和ansArray[]。这些用来初始化的字符串在写入时经过“转义”处理(即调用Escape()函数),从而避免了由于嵌入的引号或其它控制字符可能导致的问题,在使用这些数组之前这些字符串被还原(initPoll()函数):
  
  
 

分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: