訪問人數的制作
訪問人數:
<%
filepath=server.mappath("coount.txt")
set files=CreateObject("Scripting.FileSystemObject")
visitors=openfile.readline
openfile.close
countsize=len(visitors)
for n=1 to countsize
response.write mid(visitors,n,1)
next
visitors=visiotrs+1
set out=files.CreateTextFile(filepath)
out.WriteLine(visitors)
out.close
%>