版权所有 © 2006 上海韩仕威服饰有限公司 |
上海市漕东支路 9 号 3 层 邮编：200235 电话：64517217, 64517407 传真：64513523 |
|
|
 |
 |
|
<%
file=server.mappath("counter.txt")
Set files = CreateObject("Scripting.FileSystemObject")
Set openfile = files.OpenTextFile(file)
visitors=openfile.readline
openfile.close
countsize=len(visitors)
for n=1 to countsize
response.write " & ) "
next
If IsEmpty(Session("visitors")) Then
visitors=visitors+1
Set out=files.CreateTextFile(file)
out.WriteLine(visitors)
out.close
End If
Session("visitors") = True
%>
|
|
