实验三 使用文件组件实现站点计数器

  • 格式:doc
  • 大小:1.61 MB
  • 文档页数:7

动态网页实验报告
实验三
实验题目:使用文件组件实现站点计数器
指导老师:杨晓敏
专业班级:计算机科学与技术系1105班
姓名:王媛(2011100529)
2013年 5月20日
实验三使用文件组件实现站点计数器
一、实验目的和要求
掌握ASP内置组件的使用方法
掌握第三方组件的注册和使用方法
掌握使用组件实现计数器功能
了解windows7中组件的注册和使用方法
二、实验内容
使用File Access组件实现计数器。

功能要求:
(1)必须使用File Access组件
(2)实现计数功能
(3)避免刷新页面计数器不加1
(4)统计的数字用图片显示
三、实验重点和难点
掌握ASP内置组件的使用方法
掌握第三方组件的注册和使用方法
掌握使用组件实现计数器功能
四、实验过程
1.在硬盘上新建文件夹,并将其创建为虚拟目录counter。

2.在该目录下创建count.txt文件,并且在第一行中添加数据0。

3.打开DreamWeaver8.0,新建站点counter。

4.创建网站网页counter.asp,输入代码并保存。

5.运行并调试程序。

五、实验代码
<html>
<head>
<title>梦想家园!</title>
</head>
<body background="10.jpg">
<br>
<h2 align="center">欢迎光临“梦想家园”</h2>
<hr>
<%
Dim Visitors
FileAddress=Server.MapPath("count.txt")
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject") Set CounterFile=MyFileObject.OpenTextFile(FileAddress)
Visitors=CounterFile.readline
CounterFile.close
If IsEmpty(Session("Complete"))Then
Visitors=Visitors+1
End If
Session("Complete")=true
Set CounterFile=MyFileObject.CreateTextFile(FileAddress) CounterFile.WriteLine(Visitors)
CounterFile.close
Set MyFileObject=nothing
%>
<center>您是本站第<%=Visitors%>位访问者!</center>
<center>
<%
CountLen =len(Visitors)
For i=1 To CountLen
Response.Write"<img src="& Mid(Visitors,i,1)&".jpg></img>"
Next %>
</center>
</body>
</html> 六、实验结果。