<% @ Langurage=VBScript %>
<%
Function Counts(CounterFile)
Dim objFSO,objTS
Application.Lock
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile),1,True)
If Not objTS.AtEndOfStream Then
Counts=CLng(objTS.ReadLine)
End If
Counts=Counts+1
objTS.Close
Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile),2,True)
objTS.WriteLine(Counts)
objTS.Close
Application.Unlock
End Function
%>
蓝雨数码科技--晶体管报价
