计算机毕业论文范文|计算机专业毕业论文—论文无忧>>首页

第4章 详细设计与实现

运用ASP和Microsoft Office Access 2003相结合开发投票系统，投票项目依据学院需要开设哪些新课程来制作，通过学生的投票结果统计确定下学期开设的新课程。以下就是设计投票系统步骤 内容来自www.paper51.com

4.1投票界面模块的设计 paper51.com

投票界面模块的功能是面向老师和学生的，因此不需要权限核实，进入系统页面后，点击“投票选项”即可进入。 copyright paper51.com

1、设计投票界面表单

内容来自www.paper51.com

投票项目表单由3部分组成：

paper51.com

·投票选项列表框——用来选择相应项目进行投票。

·投票按钮。 http://www.paper51.com

相应代码如下：

如果没有投票，则变量isvoted为1，可以投票。投票按钮代码如下： 内容来自论文无忧网 www.paper51.com

<input class=Submit type=submit value=' 投  票 ' name="submit onclick='returnSelectChk();'>

内容来自www.paper51.com

这是个可以选择多项的投票系统，在函数SelectChk中取得被投票项目信息，并提交

copyright paper51.com

//取得被投票项目的编号，打开新窗口，查看投票结果

paper51.com

function SelectChk() paper51.com

{

http://www.paper51.com

      vars=false;

http://www.paper51.com

      var deptid,n=0;

      var strid,strurl; 内容来自www.paper51.com

      var nn =self.document.all.item("poster");

      var j;

      for(j=0;j<nn.length;j++) copyright paper51.com

      {

内容来自www.paper51.com

             if(self.document.all.item("poster",j).checked) 内容来自论文无忧网 www.paper51.com

             { paper51.com

                    n= n + 1;

http://www.paper51.com

                    s=true;

                    deptid= self.document.all.item("poster",j).id+""; paper51.com

http://www.paper51.com

                    if(n==1) http://www.paper51.com

                    {

                           strid= deptid;

http://www.paper51.com

                    }

http://www.paper51.com

                    else

copyright paper51.com

                    { 内容来自www.paper51.com

                           strid = strid + "," + deptid;

                    }

内容来自www.paper51.com

             } copyright paper51.com

      }

      strurl ="postvote.asp?cid=" + strid; 内容来自论文无忧网 www.paper51.com

      if(!s)       { http://www.paper51.com

             alert("请选择投票项目!");

             returnfalse; 内容来自论文无忧网 www.paper51.com

      } 内容来自www.paper51.com

      window.open(strurl,"newwin","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,width=400,height=300"); 内容来自www.paper51.com

      return false;   

内容来自论文无忧网 www.paper51.com

}

function newwin(url) {

paper51.com

  varoth="toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,left=200,top=200"; paper51.com

  oth =oth+",width=400,height=300";

http://www.paper51.com

  varnewwin=window.open(url,"newwin",oth); 内容来自www.paper51.com

  newwin.focus();

内容来自www.paper51.com

  return false; 内容来自论文无忧网 www.paper51.com

copyright paper51.com

图4-2 投票界面

2、根据选择查询数据库 paper51.com

下面是实现该项功能的代码：

和数据库建立连接的代码如下：

paper51.com

<%

  'Server对象的CreateObject方法建立Connection对象

http://www.paper51.com

  Set Conn=Server.CreateObject("ADODB.Connection") 内容来自论文无忧网 www.paper51.com

 Conn.ConnectionString="driver={SQLServer};server=Ntserver;UID=sa;PWD=sa;Database=Vote"

  Conn.Open

copyright paper51.com

%> copyright paper51.com

这段代码使用Open方法连接数据库。

内容来自www.paper51.com

USE Vote http://www.paper51.com

GO 内容来自www.paper51.com

CREATE TABLE VoteItem paper51.com

( Id int Primary KeyIDENTITY,

 Item     varchar(50) NOT NULL,

 VoteCount          int DEFAULT 0 http://www.paper51.com

) 内容来自论文无忧网 www.paper51.com

创建表voteItem的脚本文件

USE Vote

GO paper51.com

CREATE TABLE VoteIP

( IP varchar(20)

copyright paper51.com

)

GO

表VoteIP用来保存已经投票的IP地址 内容来自论文无忧网 www.paper51.com

<%

内容来自www.paper51.com

       Dimrs,n 内容来自论文无忧网 www.paper51.com

       n= 0 paper51.com

       Setrs = Server.CreateObject("ADODB.RecordSet")

内容来自论文无忧网 www.paper51.com

       sql= "Select * From VoteItem Order By id" 内容来自www.paper51.com

       rs.Opensql,Conn,1,1 内容来自www.paper51.com

       Ifrs.Bof OR rs.Eof Then

内容来自www.paper51.com

         Response.Write "<tr><tdcolspan=3 align=center><font style='COLOR:Red'>目前还没有投票项目。</font></td></tr></table>" 内容来自论文无忧网 www.paper51.com

       Else paper51.com

              DoWhile Not rs.Eof http://www.paper51.com

               n= n + 1 http://www.paper51.com

 %> copyright paper51.com

从数据库中提取投票项目信息 内容来自www.paper51.com

4.2 投票项目模块的设计

投票项目模块的功能是进行投票选项的添加，修改，删除。可以根据每次需要投票的内容进行修改，添加，删除。 内容来自论文无忧网 www.paper51.com

1、验证用户是否登录

内容来自www.paper51.com

因为只有管理员用户才有修改项目的权利，包括添加、修改、删除，所以系统需要验证想要修改投票项目的用户是否为管理员用户。通过验证用户的Session对象的logined变量的值是否为1。如果Session对象的logined变量的值不为1，则跳转到用户登录页面（admin.asp）。 内容来自www.paper51.com

代码如下： 内容来自论文无忧网 www.paper51.com

<%

内容来自论文无忧网 www.paper51.com

If Session("logined")<>1 Then

内容来自论文无忧网 www.paper51.com

     Response.Redirect"admin.asp"

   End If

%> http://www.paper51.com

2、添加投票项目的设计与实现 http://www.paper51.com

添加课程由以下几部分组成： 内容来自www.paper51.com

·选择按钮框——用来选择投票选项名称。 http://www.paper51.com

·单行文本框——用来输入投票名称。 http://www.paper51.com

实现功能的关键代码如下：

http://www.paper51.com

<% copyright paper51.com

      DimSoperate 内容来自www.paper51.com

      Soperate= Request.QueryString("oper") '操作标记 内容来自论文无忧网 www.paper51.com

      Operid= Request.QueryString("id")    '项目编号

   If Soperate="add" Then     '添加项目 http://www.paper51.com

             newTitle= Request("txttitle") copyright paper51.com

             '判断数据库中是否存在此类别 copyright paper51.com

             sql= "Select * from VoteItem WhereItem='"&newTitle&"'" copyright paper51.com

             SetrsInsert = Conn.Execute(sql) 内容来自论文无忧网 www.paper51.com

             IfNOT rsInsert.Eof Then

内容来自www.paper51.com

               Response.Write "已经存在此投票项目,添加失败!"

http://www.paper51.com

             Else

内容来自论文无忧网 www.paper51.com

            sql ="Insert into VoteItem(Item) values('"&newTitle&"')"

           Conn.Execute(sql)

http://www.paper51.com

               Response.Write"投票项目已经成功添加！"

             EndIf 内容来自www.paper51.com

      ElseIfSoperate = "edit" Then    '修改项目

内容来自论文无忧网 www.paper51.com

             newTitle= Request("txttitle") http://www.paper51.com

             orgTitle= Request("sOrgTitle")

             '如果新类别名称和旧的不同则执行 copyright paper51.com

             IfnewTitle<>orgTitle Then

                    '判断数据库中是否存在此类别

                    sql = "Select * from VoteItem whereItem='"&newTitle&"'" 内容来自论文无忧网 www.paper51.com

                    SetrsInsert = Conn.Execute(sql)

                    IfNOT rsInsert.Eof Then http://www.paper51.com

                      Response.Write "已经存在此投票项目,添加失败!"

                    Else paper51.com

                    Conn.Execute("UpdateVoteItem set Item='"&newTitle&"' where Id="&cint(Operid))

内容来自论文无忧网 www.paper51.com

                    Response.Write"投票项目已经成功修改！" copyright paper51.com

                    EndIf copyright paper51.com

             EndIf

      ElseIfSoperate="delete" Then      '删除项目 内容来自www.paper51.com

       sqldelt = "Delete from VoteItem Where IdIN("&Cstr(Operid)&")" 内容来自www.paper51.com

             Conn.Execute(sqldelt)

             Response.Write"投票项目已经成功删除！" paper51.com

      EndIf

%>

删除项目

paper51.com

function sltAll()

{

      varnn = self.document.all.item("dept");

      for(j=0;j<nn.length;j++)

copyright paper51.com

      {

             self.document.all.item("dept",j).checked= true; 内容来自www.paper51.com

      }

内容来自论文无忧网 www.paper51.com

} 内容来自论文无忧网 www.paper51.com

function sltNull() copyright paper51.com

{

      varnn = self.document.all.item("dept");

      for(j=0;j<nn.length;j++)

paper51.com

      { 内容来自www.paper51.com

             self.document.all.item("dept",j).checked= false; copyright paper51.com

      }

} 内容来自论文无忧网 www.paper51.com