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

新客网 XKER.COM 2004-08-14 来源：收藏本文

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

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>

相关文章：

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

上一篇：asp分页的一个类下一篇：一点准程序员工作经验总结

【收藏】【评论】【推荐】【投稿】【打印】【关闭】

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

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