COPYRIGHT(C)2008-2010 WWW.HGXDC.COM.ALL
RIGHTS RESERVED.DESGINED BY WWW.QZDNW.COM
您是当前第
<%
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
%>
位访客，江西上高华冠动力电源有限公司欢迎您！
---本站由 泉州电脑网 设计制作---
