深入学习ASP动态网页技术之FSO组件之文件操作

<%
whichfile=server.mappath("counter.txt")

set fso=createobject("Scripting.FileSystemObject")
set openfile=fso.opentextfile(whichfile,1)
visitors=openfile.readline
openfile.close
CountLen=len(visitors)
response.write "您是本页的第"

for i=1 to 6-countLen        '表示最大值999999
 response.write "<img src=img/0.gif></img>"
next 
for i=1 to countlen
 response.write "<img src=img/" & mid(visitors,i,1) & ".gif></img>"
next
response.write "位访客"

visitors=visitors+1
set creatfile=fso.createtextfile(whichfile)
creatfile.writeLine(visitors)
creatfile.close
set fso=nothing
%>

<%
Function ShowCode(filename) 
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    Set cnrs = fso.OpenTextFile(filename, 1)
    While Not cnrs.AtEndOfStream
        rsline = cnrs.ReadLine
        rsline = server.HTMLEncode(rsline)
        Response.Write(rsline & "<br>")
    Wend
end Function

上一页 [1] [2] [3] [4] [5] [6] [7] 下一页

复制本页网址和标题，发送给你QQ/Msn的好友一起分享

上一篇:深入学习ASP动态网页技术之FSO组件之文件夹操作

下一篇:深入学习ASP动态网页技术之对文件系统的管理