| <%=domain%> |
|
客户反馈单 欢迎访问我们的网站，请留下您宝贵的意见或建议 |
您是第<%
dim visitors
whichfile=server.mappath("../count.txt")
Set fs = CreateObject("Scripting.FileSystemObject")
Set thisfile = fs.OpenTextFile(whichfile)
visitors=thisfile.readline
thisfile.close
countlen=len(visitors)
for i=1 to countlen
response.write ""
next
visitors=visitors+1
Set out=fs.CreateTextFile(whichfile)
out.WriteLine(visitors)
out.close
set fs=nothing
%>位访问者
如有任何意见和问题，欢迎与我们联系 webmaster@watertech.net.cn