特定のクライアントのニーズに合わせて、HTMLページのVBScriptでヒットカウンターを作成しようとしています。無料で利用できるヒットカウンターは使用できません。
私の問題は、ファイルが存在していても、コードがノートブック(ローカルC:\ドライブ)でのみテキストファイルを検出し、Webサイトでは検出しないことです。私の他の問題は、ページコードがserver.creatobject
行に到達すると、エラーが発生することMicrosoft VBScript runtime error: Object required: 'server'
です。
私は主にVBで書いていますが、クライアントはASP/ASPXではなく特定のHTMLページを望んでいます。誰かが私を助けてくれますか?私はしばらくの間試みてきました、そして私の上記の質問に対するまともな答えを得ることができません。
以下はコードです。
<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>