。

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）各域的数据。配合 表格的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 将记录的数据用图片显示出来

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)



4．2安装设置

A. 将本网站拷贝到硬盘上的某一目录下，如：拷贝至c:\y1下。

B. 运行PWS，将默认的Web站点主目录设置为该目录，如上例应为c:\y1；

具体步骤：

a. 选择“高级”项；

b. 单击“编辑属性”按钮，在出现的“编辑属性”对话框中的“目录”项中填入“c:\y1”，其他不变，确定；



C. 设置启动默认文档为：yy.asp



致谢

通过这次毕业设计，使我感到高科技、新知识的力量。这次毕业设计过程中，得到了长沙市工商职业中专学校的大力支持，给我提供了舒适的工作学习环境，也得到了科大老师、教授的精心指导，在此表示衷心的感谢！





五．参考文献



[1]李世杰 Active Server Pages(ASP)3.0 网页设计手册 北京:清华大学出版社 1999

[2]前沿电脑图像工作室 巧学巧用Dreamweaver、Fireworks、Flash制作网页 北京:人民邮电出版社

[3]ASP入门与实例演练薄 小志编著 中国青年出版社