给网站添加一个注册表之 “类的应用”-ASP教程-爱易网页

给网站添加一个注册表之 “类的应用”

日期：2013-09-09　浏览次数：21123 次

下面，我们用这个“注册表”类来写一个简单的“计数器”应用，代码如下：

pagecount.asp:


<%
Dim Reg
Set Reg = New RegistryObject
Reg.Path = Server.MapPath("pagecount.xml")

Const BaseCount = 8000 '计数器基数

Dim Count
Count = Reg.ReadValue("Pagecount", "Common", "Count") '读取原有计数
If IsNumeric(Count) Then
Count = CLng(Count)
Else
Count = BaseCount
End If
If Count < BaseCount Then Count = BaseCount

Count = Count + 1
Reg.SaveValue "Pagecount", "Common", "Count", Count '保存新计数
Set Reg = Nothing

Response.Write("document.write ('您是第 " & Count & " 位来访者');") ' 显示计数
%>

test.htm:

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>测试XML计数器</title>
</head>

<body>
<script language="javascript" src="pagecount.asp"></script>
</body>
</html>

相关文章：

给网站添加一个注册表之 “类的设计”
给网站添加一个注册表之 “类的实现”