|
|
 |
 |
 |
 |
 |
 |
 |
<%
countfile=server.mappath("counter/counter.txt")
Set fs=CreateObject("Scripting.FileSystemObject")
Set thisfile=fs.OpenTextFile(countfile)
visitors=thisfile.readline
thisfile.close
if Session("Count")<>True then
visitors=CLng(visitors)+1
visitors=CStr(visitors)
end if
countlen=len(visitors)
for i=1 to 7-countlen
response.write" "
next
for i=1 to countlen
response.write"![](counter/images/1-"){kind=small} "
next
Set thisfile=fs.CreateTextFile(countfile)
thisfile.WriteLine(visitors)
thisfile.close
set fs=nothing
Session("Count")=True
%>
|
| 版权所有：南京航空航天大学继续教育学院 联系电话：(025)4892733 |