如何使用ASP的计数器？

[xbdvcx2]

我从网上下载了一个ASP的计数器，解开后有两个文件：counter.asp,counter.mdb.这两个文件如何使用？我现有的主页是index.htm.另外如何知道申请的空间是否支持ASP？或CGI？（申请时没看清，又是外国的，不好询问。）

[sheng9hhd]

把counter.asp放首页~;
把index.htm改为index.asp
内容为：<%response.write "Hello world!"&time()%>

[netak47]

你先在本地调试好，然后在你的index页面把counter.asp链上去就可以了！
7HOST。COM支持asp

[wangbingxin]

<%
Dim CountFile
CouintFile = Server.MapPath("./") & "\visitors.txt"
'定义文件存取对象
Set FS = Server.CreateObject("Scripting.FileSystemObject")
'判断文件是否存在
if FS.FileExists(CouintFile) then
'设定读取数据的信道
Set InTxtStream = FS.OpenTextFile(CouintFile,1,false,0)
'将访问计数器的数值读取出来
VisitorCounter = InTxtStream.ReadLine
'关闭打开的信道
InTxtStream.Close
else
'文件未建立
VisitorCounter = 0
end if
'设定数据写入的信道
Set OutTxtStream = FS.CreateTextFile(CouintFile,True,false)
Application.Lock
VisitorCounter = VisitorCounter+1
OutTxtStream.WriteLine(VisitorCounter)
Application.Unlock
OutTxtStream.Close

dim images(20)

counter = VisitorCounter
countlen = len(counter)

for i=1 to countlen
images(i) = mid(counter,i,1)
next

zero = 9 - countlen

for j = 1 to zero
Response.Write "0"
next

Response.Write images(1)&images(2)&images(3)&images(4)&images(5)&images(6)&images(7)&images(8)&images(9)

%>

在要显示数字的地方用这段程序就行了