<% Dim fsoObject Dim tsObject Dim filObject Dim lngVisitorNumber Dim intDisplayDigitsLoopCount On Error Resume Next lngVisitorNumber = 0 Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") Set filObject = fsoObject.GetFile(Server.MapPath("visitor_counter.txt")) Set tsObject = filObject.OpenAsTextStream lngVisitorNumber = CLng(tsObject.ReadAll) If Session("lngSessionVisitorNum") = "" Then lngVisitorNumber = lngVisitorNumber + 1 Session("lngSessionVisitorNum") = lngVisitorNumber Else Session("lngSessionVisitorNum") = lngVisitorNumber End if Set tsObject = fsoObject.CreateTextFile((Server.MapPath("visitor_counter.txt")), True) tsObject.Write CStr(lngVisitorNumber) Set fsoObject = Nothing Set tsObject = Nothing Set filObject = Nothing Response.Write ("") Response.Write ("您是本站的第"&lngVisitorNumber) Response.Write "位客人" Response.Write("") %>
名称:杭州华祥电器控制设备厂 地址:中国杭州东新路336号
邮政编码:310004  传真/电话:0571-85370026 85367136
杭州鼎商