ASP动态网页服务器设置 第5页CounFile=Server.MapPath("用来存放计数器值的文件名")
SET FileObject=Server.CreateObject("Scripting.FileSyst emObject")
SET InStream=Server.OpenTextFile(FileObject,1,false,fa lse)
'使用对象FileSystemObject提供方法OpenTextFile产生文本文件，
'其中参数"True"表示覆盖原来的文件，"False"表示文件为ASCII类型
"要读取的数据"=InStream.ReadLine
'其中InStream.ReadLine为从文件中读取的一行数据
下面是一个用ASP实现页面计数器功能的计数器例子(simplecounter.asp)，我在代码中详细注释了语句。你可以把以下代码粘贴到你需要计数的页面代码中。当然，你的服务器必须支持ASP，且你已经在主页所在的目录下创建了一个内容为0的文本文件simplecounter.txt。
简单的ASP计数器simplecounter.asp代码及注释：
<%
CountFile=Server.MapPath("simplecounter.txt")
'文件aspconter.txt是用来储存数字的文本文件，初始内容一般是0
Set FileObject=Server.CreateObject("Scripting.FileSyst emObject")
Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALS E)
counter=Out.ReadLine
'读取计数器文件中的值
Out.Close
'关闭文件
SET FileObject=Server.CreateObject("Scripting.FileSyst emObject")
Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE )
Application.lock
'方法Application.lock禁止别的用户更改计数器的值
counter= counter + 1
'计数器的值增加1
Out.WriteLine(counter)
'把新的计数器值写入文件
Application.unlock
'使用方法Application.unlock后，允许别的用户更改计数器的值
Response.Write("您是第")
Response.Write("<font color=red>")
Response.Write(counter)
'把计数器的值传送到浏览器，以红(red)色显示给用户
Response.Write("</font>")
Response.Write("位访问者")
Out.Close
'关闭文件
%>
说到安全，大家肯定会不由自主地想起类似防火墙之类的专业安全保障软件，难到非要有软件才能达到安全防范的目的吗？不，这里我们使用ASP，同样也能实现简单地防范网页安全的功能。下面笔者就举例来说明如何实现一个简单的页面安全防范功能，此页面只允许本单位内部网的用户访问，如果是单位外部用户进行访问则要求输入访问密码。
在此主要使用request对象的ServerVariables属性，通过它来获得环境变量的值。使用的语法为：Request.ServerVariables(variable)
，"variable"表示环境变量的名称，如服务器主机名称、WEB服务器软件名等等，若"variable"为"REMOTE_ADDR"则表示访问者的IP地址，通过它就可以实现IP地址的过滤。
源程序如下：(文件名：demo.asp)
上一页 [1] [2] [3] [4] [5] [6] 下一页
ASP动态网页服务器设置 第5页下载如图片无法显示或论文不完整，请联系qq752018766
