你是第
<%
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
%>
位訪問者 |
| 備案號：粵ICP備14028436號 版權所有:深圳奧生醫藥科技有限公司 2014 技術支持:賽虎互動 |
|
 電話:0755-25481332 25487709 13603080589 13510649336  unita#szaosh.com |
|
|
