校园网站设计

set result=result+1 where name=''''杨兰''''")
end if
if instr(vo,"3") then
cn.execute("update stud set result=result+1 where name=''''江道明''''")
end if
if instr(vo,"4") then
cn.execute("update stud set result=result+1 where name=''''段启文''''")
end if%>
显示当前投票情况show.asp
由于投票处理页面已经完成了绝大部分的工作，所以 显示结果页面就很简单了，其功能是从 Stud表文件中读取候选人所得票数，显示在页面上。
页面显示如图

值得注意的代码主要有以下几处：
该页面有自动刷新功能，使在线用户可以尽快的看到最新的选举情况。我们这里设定每隔30秒钟自动刷新一次。
<meta http-equiv="refresh" content="10;URL=show.asp">

显示投票时，我们采用了while循环，把候选人及其得票数，整齐地显示在一个表格中，这种技术在数据库查询结果的显示中也经常用到。代码如下：
<%while not hs.eof %>
<tr>
<td width="100%"><center>
<font color="#8000ff"><big>
<%=hs("name")&" "&hs("result")&"票"%>
</big> </font>
</center>
</td>
</tr>
<%hs.movenext%>
<%wend%>
3．4达级考试在线查分系统与计数器的制作
3．4．1功能：
它提供了在线查看成绩。考生可以在网上使用这一系统，通过输入准考证编号来查

询达级考试的结果。
3．4．2数据表的设计
与评优系统共用STUd表，表设计同上。
3．4．3界面设计与重点难点代码的设计
该模块需要查询者输入准考证号后来查看结果。若ID1不为空时，表示有表单输入，开始查询数据库。使用 SELECT的SQL指令查询数据库的数据。先设定SQL指令，查询ID符合准考证编号Request.Form("ID1")的数据，下个“Execute”指令，即可开始执行存取、查询数据的动作了。并将查询结果储存到Recordsets组件RS中。
IF Request.Form("ID1")<>"" THEN
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("FILEDSN=c:\Program Files\Common Files\ODBC\Data Sources\ms access database.dsn")
SQL = "SELECT name,id,score FROM stud WHERE id=''''" & Request.Form("ID1") & "''''"
Set RS = Conn.Execute(SQL)

若考试通过，则显示考试的结果，包括姓名、准考证编号、总分和考试结果，分别由RecordSets 组件的RS（0）、RS（1）、RS（2）、RS（3）得到。FS.Field.Count表示RecordSets组件的域的总数，由“for I=0 to RS.Fields.count-1”，取得RS（I）各域的数据。配合 <Table> 表格的HTML语法，将结果填入表格的各单元格中。 若还有下一个数据，就使用RS.MoveNext 移到下一个位置。

3.4.4页面访问计数器的制作
利用文件处理组件FILESYSTEM的强大功能来制作，比用Application对象计数器要好，Application计数器当有20分钟没有人连上该网页或关机时，计数器会被归零。而文件计数器却不会因时间而消失。我用Count.txt存放访问人次。代码如下：
whichfile=server.mappath("pic\count.txt")
set myfile=server.createobject("scripting.filesystemobject") 创建一个
set thisfile=myfile.opentextfile(whichfile) 组件对象

visit=thisfile.readline
thisfile.close 读取计数器数据文件Count.txt中的计数数据
visit=visit+1 记录自加一次
length=len(visit)
for i=1 to length
response.write "<img src="&mid(visit,i,1)&".jpg></img>" 将记录的数据用图片显示出来
next
set thisfile=myfile.createtextfile(whichfile,1) 将新计数数据写入文件thisfile.writeline(visit

《校园网站设计(第8页)》