创建命中计数器

Question

我正在尝试在HTML页面上的VBScript中创建一个命中计数器，以满足特定的客户需求。我不能免费使用任何点击计数器。

我的问题是我的代码只在我的笔记本上找到文本文件（本地C：\驱动器），而不是在网站上，即使文件确实存在。我的另一个问题是当页面代码到达server.creatobject行时，我收到错误Microsoft VBScript runtime error: Object required: 'server'。

我主要用VB编写，但客户端想要一个特定的HTML页面而不是ASP / ASPX。有谁可以帮助我吗？我已经尝试了一段时间，并且无法对上述问题得到合适的答案。

以下是代码。

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

Dim fso
dim tso
dim FilObject
dim VisitorCount
dim strOutputName
dim objOutputfile
strfilename ="counter.txt"

set fso=server.createobject("scripting.filesystemobject")


set filobject=fso.getfile(strfilename)
set tso=filobject.openastextstream

visitorcount=clng(tso.readall)
visitorcount=visitorcount + 1
stroutputname=strfilename
set objoutputfile=fso.createtextfile(stroutputname,true)

objoutputfile.writeline visitorcount

document.write(visitorcount)
</script>

Answer 1

  

...客户想要一个特定的HTML页面而不是ASP

但是您已经使用VBScript脚本语言编写了一个ASP脚本（runat="server"）。 Server对象仅在ASP中可用。您的文件需要是.asp文件（或以某种方式由服务器作为ASP处理），否则您的脚本将作为客户端VBScript运行，Server对象将不可用，这是你似乎得到的错误。