若考试通过,则显示考试的结果,包括姓名、准考证编号、总分和考试结果,分别由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) set myfile=nothing 数字图片我利用PHOTOSHOP中的文字特效制作了9个立方数字:
等
四.系统的使用说明与安装 4.1运行环境要求 Windows98 Personal Web Server 3.0(PWS) Microsoft? Access 2000 (9.0.2812)