基于ASP开发的校园摄影投票系统

基于ASP开发的校园摄影投票系统摘要：校园学生活动中公开民主投票评选是学生工作中非常重要的一块，利用网络技术开展这类活动已成为当今的一种趋势，如何配合校园学生活动的开展，实现便捷地对投票结果进行统计公开成为我们的主要课题。

关键词：评选投票ASP评选活动一直以来在学生活动当中都扮演了相当重要的地位，为了显示公平、公开原则，民主投票是我们最经常采用的形式。

因此，开发一套功能完善的网上评选管理系统，对于学生活动民主评选具有非常重要的意义。

本文利用Asp 作为开发技术，选择Access 数据库作为后台数据库，开发一套完整的校园摄影作品评选管理系统。

1 系统需求分析学生校园活动开展需要广泛性，评选活动则需要公平，公开原则。

随着计算机网络技术的不断发展，利用网络实现学生在线投票评选成为必然，在线投票即可使更多的人参与进来，又可显示公平、公开的原则，便于对评选结果进行统计、公布。

一次优秀的学生评选活动需要良好的策划方案，也需要一套完整的系统支持平台。

本文以校园摄影作品评选管理系统为支持，改系统需要能够方便学生上传作品，系统管理员对作品进行审核显示在页面中供大家投票，系统管理员可通过后台公布评选活动规则、公告，管理投票时间以及留言等，大家可在投票时间内通过相关页面查看作品的完整信息后进行投票和留言，评选活动票选结果在相关页面显示出来。

由于网络投票会存在着刷票的现象，我们还需对投票次数进行限制，限制重复投票的方法很多，本文主要是针对同一个IP地址用户一天只能对一个作品进行一次投票，但不影响该用户投票给其他作品。

2 系统设计本系统分为前台和后台两大模块，前台介绍活动规则，活动公告，展示摄影作品供用户查看、进行投票、留言讨论，并将各个作品统计结果实时显示出来，后台则由管理员管理活动信息，对作品信息上传及留言审核。

投票设置开关，由后台管理员在后台在规定时间打开，活动时间结束后可关闭投票功能。

系统流程如图1。

3 系统实现3.1 数据库实现本系统采用access作为后台数据库，数据库主要由管理员，公告，信息，作品，评论，票数统计等工作表组成，作品工作表主要由作品图片、作品名称、参赛者、专业名称、联系方式等信息组成。

数据库连接代码如下：dim connstr,datapath,conndatapath=“Manage/DataBase/Db.mdb”connstr=“Provider=Micros oft.JET.OLEDB.4.0;DataSource=“ & Server.mappath(datapath)Set conn=Server.CreateObject(“ADODB.Connection”)conn.open connstr3.2 前台设计前台首页页面显示公告及所有参赛作品的简图，每页显示20个，每个作品下面显示得票数及投票按钮，每幅作品可点击进去显示大图以及用户对该作品的评价，也可进行留言。

首页菜单栏上面可以进入活动信息介绍，以及可以查看投票排行榜和学校主页链接。

用户在进行投票时须先进行投票检测,判断投票系统是否开启，如果投票系统关闭，则提示“投票已关闭”，否则可进行投票，具体代码如下：sql=“Select info from Mu where id=4”set t=conn.execute(sql)if t(0)=“关” thenResponse.write “<script language=´javascript´>alert(´投票已关闭´);history.go(-1);</script>”Response.End()end if为防止用户刷票，本系统采用限制用户IP地址的方法，需要获取用户IP地址getip=Request.ServerVariables(“REMOTE_ADDR”) ，检测该IP地址当天是否已经进行过投票，已经投过则显示“不能继续投票”，具体代码如下：if cip(ip,id,date())=true thenResponse.write “<script language=´javascript´>alert(´您的IP”&ip&”在今日已经给这张图片投票，不能继续投票！´);history.go(-1);</script>”Response.End()end if如果该IP地址当天没有进行投票则票数累加一张rs(“hit”)=rs(“hit”)+1rs.update最终票数统计结果将按得票数由多到少排列显示，主要显示作品序号<%=rs(“id”)%>，作品名称<%=rs(“name”)%>，得票数<%=rs(“hit”)%>。

用户在查看作品时可以参加评论，评论内容需审核才能通过。

3.3 后台设计后台设计用户登录界面，需验证才允许进入，后台验证代码如下：if Request(“Action”)=1 thenIf Trim(Request.Form(“validatecode”))=Empty Or Trim(Session(“_ValidateCode”))<>Trim(Request.Form (“validatecode”)) Thenresponse.write(“<scriptlanguage=´javascript´>alert(´验证码错误!´);document.location.href(´Login.asp&ac ute;);</script>”)response.endend ifSQL=“Select * from A_d_m_i_n where name=´” & R(Trim(Request(“name”))) & “´ and pass=´” &MD5(R(Trim(Request(“pass”)))) & “´”set nrs=server.createobject(“adodb.recordset”)nrs.open SQL,conn,1,3if nrs.Bof and nrs.Eof thenResponse.Write “<script language=´javascript´>alert(´用户名或密码错误!´);document.location.href(´Login.asp&ac ute;);</script>”Response.End()elseSession(“Admin”)=nrs(“name”)Session(“flag”)=nrs(“flag”)nrs.CloseResponse.Redirect “Admin_Index.asp”end ifend if进入系统后分为基本信息管理以及图片管理两个模块。

基本信息主要是管理员用户名和密码的修改、公告及活动信息的添加修改，还可以设置投票开关，具体如下：if Request(“Action”)=1 thenif rs(“info”)=“开” thenrs(“info”)=“关”elsers(“info”)=“开”end ifrs.Updaters.CloseSet rs=nothingResponse.Write “<script language=´javascript´>alert(´成功修改了指定信息!´);document.location.href(´ok.asp?id=4& acute;);</script>”Response.End()end if图片管理则负责对参赛作品进行管理，包括参赛作品的信息上传、删除以及对参赛作品评论的审核。

上传图片是对图片有相关要求，代码如下：dim upload,file,formName,formPath,iCount,filename,fileExtset upload=new upload_5xSoft ´´建立上传对象formPath=“uploadimages/”´´在目录后加(/)if right(formPath,1)<>”/” then formPath=formPath&”/”iCount=0for each formName in upload.file ´´列出所有上传了的文件set file=upload.file(formName) ´´生成一个文件对象if file.filesize<100 thenresponse.write “<font size=3><br>请先选择你要上传的图片[ <a href=# onclick=history.go(-1)>重新上传</a> ]</font>”response.endend ifif file.filesize>1000000 thenresponse.write “<font size=3><br>图片大小超过了限制[ <a href=# onclick=history.go(-1)>重新上传</a> ]</font>”response.endend iffileExt=lcase(right(file.filename,4))if fileEXT<>”.jpg” and fileEXT<>”.gif” thenrespo nse.write “<font size=3><br>文件格式只能为jpg 和gif格式[ <a href=# onclick=history.go(-1)>重新上传</a> ]</font>”response.endend ifrandomizeranNum=int(90000*rnd)+10000filename=formPath&year(now)&month(now)&day(n ow)&hour(now)&minute(now)&second(now)&fileEx tfilename1=year(now)&month(now)&day(now)&hour (now)&minute(now)&second(now)&fileExtif file.FileSize>0 then ´´如果FileSize > 0 说明有文件数据file.SaveAs Server.mappath(filename) ´´保存文件response.write“<script>parent.form1.img.value=´”&FileName1&”´</script>”iCount=iCount+1end ifset file=nothingnextset upload=nothing ´´删除此对象Response.Write“<imgsrc=´”&”../UpLoad/UpLoadImages/”&FileName1 &”´ onload =´DrawImage(this)´>”response.end管理图片及图片在首页显示均按每页显示20个，具体代码如下：if Request(“type”)<>”“ thenSQL=“Select * from Photo where ok=0and t=“&Request(“type”)&” order by id desc”elseSQL=“Select * from Photo where ok=0 order by id desc”end ifset rs=server.createobject(“Adodb.Recordset”)rs.open SQL,conn,1,1dim i,bgcif not rs.eof thenpages = 20 ´定义每页显示的记录数rs.pageSize = pages ´定义每页显示的记录数allPages = rs.pageCount´计算一共能分多少页page = Request.QueryString(“page”)´通过浏览器传递的页数´if语句属于基本的排错处理if isEmpty(page) or Cint(page) < 1 thenpage = 1elseif Cint(page) > allPages thenpage = allPagesend ifrs.AbsolutePage = pagei=0Do while not rs.eof and pages > 04 小结本系统界面美观，对于校园活动评选投票公正公开，功能强大，后台管理员管理简单轻松，可方便快捷正确统计出投票情况，该系统目前已经用于学生校园活动中并取得不错效果，可用于其余各项学生校园评选活动中。